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I.  INTRODUCTION 

Volume  III  of  the  documentation  of  the  GLAS  fourth  order  general  circulation 
model  contains  compiler  listings  of  the  full  precision,  vectorized  version  of 
the  model  for  the  CYBER  205  computer  system.  At  the  time  of  this  work  the  FORTRAN 
compiler  in  use  at  the  NASA  High  Speed  Computing  Facility  was  Version  2.0  Cycle  VK2G. 

The  FORTRAN  language  for  the  CYBER  200  series  contains  both  Control  Data 
Corporation  and  unique  CYBER  200  extensions  to  the  standard  FORTRAN  (American 
National  Standards  X3. 9-1966).  These  extensions  allow  the  FORTRAN  user  to 
take  full  advantage  of  the  vector  processing  architecture  of  the  computer  and 
are  therefore  used  extensively  throughout  the  program.  Because  of  the  overriding 
advantage  of  speed  - the  CPU  time  for  a twenty  four  hour  simulation  with  the 
four  degree  latitude  by  five  degree  longitude,  nine  layer  resolution,  is  approx- 
imately three  minutes  - this  optimized  model  is  used  for  extended  objective 
analysis  and  forecast  experiments. 

As  noted  elsewhere,  the  vectorized  code  presented  here  and  the  scalar  code 
presented  in  Volume  II  are  indentical  in  the  sense  that  zero  differences  are 
obtained  on  all  prognostic  and  diagnostc  quantities  after  three  simulated  hours 
of  integration. 

Chapter  II  contains  the  dictionary  of  the  FORTRAN  variables  used  in  the 
scalar  version  of  the  model.  An  equivalent  dictionary  for  the  vectorized  code 
has  been  purposely  omitted  because  the  same  variables  are  used  here  as  in  the 
scalar  code  (Volume  II)  and  because  new  terms  defined  in  the  vector  code  refer 
only  to  temporary  space.  These  temporary  work  areas  are  documented  internally. 

Chapter  III  contains  the  listings  of  the  FORTRAN  code  compiled  with  the 
”C”  option.  As  a result,  cross  reference  maps  of  local  variables  are  included 
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for  each  subroutine. 


CHAPTER  II 


VARIABLE  NAME  DICTIONARY  FOR  THE  SCALAR  CODE 


VARIABLE  LIST  OF  THE  GLAS  4TH-ORDER  MODEL 


VARIABLE 

COMMON 

SUBRTN 

A 

FILFFT 

AAA 

COMP  3 

ACLEAR 

DSOLAR 

SOLAR  1 

ACLOUD 

DSOLAR 

SOLAR  1 

ADATE 

CUTCHK 

ADATE 

CCNTRL 

GWSGCM 

ADLOP 

RDPARM 

C0MP2 

DEPEND 

ADLDPS 

C0MP2 

ag 

LINKHO 

AL 

03INT 

AL 

RADuOM 

SOLAR t 
CLOUOS 

ALB001 

MNTHLY 

DAILY 

ALBD02 

MNTHLY 

DAILY 

ALBEDO 

QANDQT 

DAILY 

RADIO 

AOZONE 

STAT  FUNC 

SOLAR  1 

APHEL 

RCNTRL 

DAILY 

APRI 

LINKHO 

AS 

RADCOM 

C0MP3 
RADIO 
SOLAR  1 

ASGL 

COMP  3 

ASGLM1 

C0MP3 

ATIME 

CUTCHK 

ATIME 

CCNTRL 

GWSGCM 

AV 

LINKHO 

AVI 

LINKHO 

A WATER 

STAT  FUNC 

SOLAR  1 
CLOUDS 

BB 

LINKHO 

BBB 

COMP3 

BB  1 

LINKHO 

BETA 

RCNTRL 

SMSHAP 

BG 

LINKHO 

BLANK 

DEFALT 

BPRI 

LINKHO 

C 

LINKHO 

CA 

COMMON 

CONHTR 

CAP 

LINKHO 

CAPPSI 

LINKHO 

CAP  1 

LINKHO 

CAP2 

LINKHO 

CARD 

COMMON 

INPUT 

CATA 

COMMON 

AVRX 

SMSHAP 

CC 

CCNTRL 

CONHTR 

IOQ 

CCC 

COMP3 

CD 

DCOMP3 

COMP  3 

VARIABLE  DESCRIPTION 


ARRAY  TO  FILTER. 

LOCAL  TEMPORARY  VARIABLE. 

INCIDENT  SOLAR  RADIATION  MULTIPLIED  BY 
FRACTIONAL  CLEAR  AREA. 

INCIDENT  SOLAR  RADIATION  MULTIPLIED  BY 
FRACTIONAL  CLOUDY  AREA. 

CONTAINS  MM/DD/YY. 

MM/OD/YY  FOR  CURRENT  RUN. 

SPHERICAL  COORDINATE  SCALING  FACTOR. 


SPHERICAL  COORDINATE  SCALING  FACTOR. 

VARIABLE  USED  IN  FLUX  QUADRATURE. 
LOCAL  TEMPORARY  VARIABLE. 

CALCULATION  OF  ABSORBED  SOLAR 
RADIATION  IN  CLEAR  AND  CLOUDY  SKIES. 

MONTHLY  DATA  FIELD. 

MONTHLY  DATA  FIELD. 

MODEL  ALBEDO  FIELD. 


FUNCTION  USED  TO  OBTAIN  ABSORPTION  OF 
SOLAR  RADIATION  DUE  TO  OZONE. 

DAY  OF  YEAR  OF  EARTH ' S APOGEE. 

of^watc o^wADno^ E CT I ON  TO  THE  OPTICAL  DEPTH 

ABSORBED  SOLAR  * RAD I ATION . 


t./DSIG(L) 

1 ./DSIG(LM1 ) 

HH/MM/SS 

HH/MM/SS  FOR  CURRENT  RUN. 

TEMPORARY  VARIABLE  USED  FOR  VARIOUS  THINGS. 
JnKn??^2V,.«5IABLE  USE0  F0R  VARIOUS  THINGS. 

USED  TO  0BTAIN  ABSORPTION  OF  SOLAR 
RADIATION  DUE  TO  WATER  VAPOR. 

PLANCK  FUNCTION  EVALUATED  AT  A GIVEN 
RADIATION  MODEL  LEVEL. 

LOCAL  TEMPORARY  VARIABLE. 

PLANCK  FUNCTION  EVALUATED  AT  1 MB  LEVEL 
MOIST  ADIABATIC  LAPSE  RATE. 

PLANCK  FUNCTION  EVALUTATED  AT  THE  GROUND 
CHARACTER  ARRAY  CONTAINING  BLANKS. 
TEMPERATURE  CORRECTION  TO  THE  OPTICAL  DEPTH 
OF  WATER  VAPOR. 

CONSTANTS  USED  IN  CURTI S-G00D50N 
APPROXIMATION. 

CHARACTER  ARRAY  FOR  HISTORY  HEADER. 

CORRECTED  SPECIFIC  HUMIDITY. 

COEFFICIENT  USED  TO  GET  CORRECTED  SPECIFIC 

INTERPOLATION  COEFFICIENT 
INTERPOLATION  COEFFICIENT 
Y/ORK  SPACE  TO  READ  INPUTZ  NAMELIST. 

TEMPORARY  USED  TO  COMPUTE  SEA  LEVEL  PRESSURE 


ARRAY  OF  CHARACTER  VARAIBLES  ON  MODEL 
HISTORY  RECORD. 

LOCAL  TEMPORARY  VARIABLE. 

SURFACE  DRAG  COEFFICIENT. 


O O 

» 

*TJ  Q 
O g 
O $5 
SJ  I- 

lO  T3 

C Z& 

> Si 


ca 


Ln 
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CDATE 

R A DC  Oil1 

OZONE  2 

CALENDAR  DAY  ASSOCIATED  WITH  THE  FOUR 
SEASONS. 

CDATE l 

OZONE 2 

CALENDAR  DAY  LIMIT  USED  IN  INTERPOLATION. 

CDATE J 

OZONE  2 

CALENDAR  DAY  LIMIT  USED  IN  INTERPOLATION. 

CD  AY 

OZONE2 

CALENDAR  DAY. 

CDC 

CONHTR 

STRING  REPRESENTING  COC  READABLE  RECORDS. 

CDFR 

CNTRLP 

COMP  3 
CONSTA 

FRICTIONAL  WIND  SHEAR  ADJUSTMENT  PARAMETER. 

CDXL 

CNTRLP 

COMP  3 
CONSTA 

DRAG  COEFFICIENT  ADJUSTMENT  PARAMETER  OVER 
LAND. 

CD  XO 
CG 

CNTRLP 

COMP3 

CONSTA 

LINKHO 

DRAG  COEFFICIENT  ADJUSTMENT  PARAMETER  OVER 
OCEANS. 

CLEAR 

dsolar 

SOLAR1 

CLOUDS 

LOGICAL  VARIABLE  WHICH  IS  TRUE  IF  NO  CLOUDS 
ARE  PRESENT. 

CLH 

CNTRLP 

C0MP3 

CONSTA 

CUMULO 

RATIO  OF  LATENT  TO  SPECIFIC  HEAT. 

CLOUD 

R A DCOM 

COMP  3 
CUMULO 
LINKHO 
SOLAR  t 

VARIABLE  REPRESENTING  EXISTING  CLOUD  TYPES. 

CLOUDY 

OSOLAR 

SOLAR  1 

LOGICAL  VARIABLE  WHICH  IS  TRUE  IF  CLOUDS 
ARE  PRESENT. 

CM 

LINKHO 

USED  IN  CALCULATION  OF  THE  OPTICAL  DEPTH 
OF  WATER  DIMER. 

CMASS 

CONSTA 

10  X MASS  OF  A COLUMN  OF  AIR  EXTENDING 
TO  SEA  LEVEL  PRESSURE. 

CMI 

LINKHO 

SAME  AS  CM. 

CM  I 1 

LINKHO 

SAME  AS  CM. 

CNUCUB 

LINKHO 

PARAMETER  USED  IN  PLANCK r S FUNCTION. 

COE 

CNTRLP 

C0MP3 

CONSTA 

TEMPERATURE  CHANGE  RESULTING  FROM  AN  INPUT 
OF  ONE  CALORIE  TO  A GIVEN  LAYER  L OF  A 
UNIT  COLUMN  OF  AIR. 

COEF 

CNTRLP 

CONSTA 

TEMPERATURE  CHANGE  RESULTING  FROM  IN  INPUT 
OF  ONE  CALORIE  TO  A UNIT  COLUMN  OF  AIR. 

COEFS 

CNTRLP 

COMP3 

CONSTA 

PARAMETERIZED  CONSTANT. 

COLMR 

DC0MP3 

COMP3 

COLUMN  MASS  RATIO. 

CONI 

LINKHO 

USED  IN  WATER  DIMER  CALCULATION. 

CONTI 

LINKHO 

USED  IN  WATER  DIMER  CALCULATION. 

CONT2 

LINKHO 

USED  IN  WATER  DIMER  CALCULATION. 

CONV 

QMSAVE 

COMPt 

VERT 

MASS  CONVERGENCE  AT  A GIVEN  LEVEL. 

CONI 

RDPARM 

COMPO 

COMPt 

DEPEND 

VERT 

CONSTANT  USED  IN  POLE  EQUATIONS. 

CON2 

R DP ARM 

COMPO 
COMP  1 
DEPEND 
VERT 

CONSTANT  USED  IN  POLE  EQUATIONS. 

CON3 

RDPA  RM 

COMPO 

DEPEND 

CONSTANT  USED  IN  POLE  EQUATIONS. 

CON4 

RDPARM 

COMPO 

DEPEND 

CONSTANT  USED  IN  POLE  EQUATIONS. 

CON  1 0T 

RDPARM 

COMPO 
COMP  1 

CONI  * DT. 

C0N2DT 

RDPARM 

COMPO 
COMP  1 

CON2  * DT. 

C0N3DT 

RDPARM 

COMPO 
COMP  2 

CON3  ♦ DT. 

C0N4DT 

RDPARM 

COMPO 

COMP2 

CON4  ♦ OT. 

CONS 

RDPARM 

C0MP2 

DEPEND 

VERT 

SCALING  CONSTANT. 

COSD 

RCNTRL 

C0MP3 

DAILY 

COSINE  OF  SOLAR  DECLINATION. 

COSJ 

DEFALT 

PMEAN 

USED  IN  COMPUTING  WEIGHT  FUNCTION  FOR 
GLOBAL  AVERAGES. 
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COSL  RDPARM 
COSLON  RDPARM 


COSMAG 

DSOLAR 

COSROT 

CNTRLP 

COSZ 

CP 

RADCOM 

rcntrl 

CPD2 

RDPARM 

CPP 

CNTRLP 

CQ1P 

C03P 

CQ5P 

CTID 

CNTRLP 

CTIN 

CTINF 

CTRANS 

CT1P 

CT3P 

CT5P 

CUMDAY 

CNTRLP 

CUMRAT 

CNTRLP 

CUTOFF 

CVO 

RADCOM 

CVQ1P 

DCUMU 

CVQ3P 

CVQ5P 

CVT 

DCUMU 

DCUMU 

RADCOM 

CVT1P 

DCUMU 

CVT3P 

CVT5P 

CX 

OCUMU 

DCUMU 

CXD 

CXL 

RADCOM 

CY 

CZFAC 
CZH 
CIO 
Cl  00 
C40 

n 

RADCOM 

CNTRLP 

CNTRLP 

CNTRLP 

DEPEND 
SOLAR  1 
COMP  1 
COMP  2 
DEPEND 
POL INP 
SMSHAP 
SOLAR  1 
VERT 
SOLAR  1 
CLOUDS 
CONSTA 
SOLAR  t 
SOLAR  1 
DEPEND 
GEOHT 
DEPEND 
GEOHT 
COMP  3 
CONSTA 
CUMULO 

CUMULO 
CUMULO 
COMP  3 
CONSTA 
LINKHO 


LINKHO 

LINKHO 

CUMULO 

CUMULO 

CUPFUL  O 

COMP  3 

CONSTA 

COMP3 

CONSTA 

RADIO 

CUTCHK 

GWSGCM 

C0MP3 

CUMULO 

CUMULO 

CUPFUL  O 

CUMULO 

COMP3 

CUMULO 

CUMULO 

CUMULO 

CUMULO 

SM5HAP 

CUMULO 

CUMULO 

SMSHAP 

C0MP35 

C0MP3 

comp  3 

C0MP3 

COMP3 

DEFALT 

PMEAN 

CLOUDS 


COSINE  OF  LATITUDE. 
COSINE  OF  LONGITUDE, 


FACTOR  FOR  SLANT  PATH  AND 
rnctM?Ti?Nr0F  SOLAR  RADIATION. 

COSINE  OF  EARTH'S  ROTATION, 

22fl?l*2F  S0LAR  ZENITH  ANGLE. 

SPECIFIC  HEAT  AT  CONSTANT  PRESSURE. 

CP  / 2 . 

SPECIFIC  HEAT  AT  CONSTANT  PRESSURE. 

SPECIFIC  HUMIDITV  CHANGE  AT  PRIMED  I p\/ci 
FR™  CUMULUS  PA«AMlTtRliATloNRIMED  LEVEL 

IaKI  BUT  F0R  PRIMED  LEVEL  3. 

SAME  AS  CQ1P  BUT  FOR  PRIMED  LEVPI  e: 

THERMAL  CONDUCTIVITY  of  ICE. 

BETuJIfmS?ImS  £2£!CTI0N  0F  car90N  DIOXIDE 
LEVELEN  1 MB  AND  A GIVEN  m°DEL  RADIATION 

SAME  AS  CTIN  BUT  FOR  5 MB. 

IS TttlpiS?i2NM^2CTION  OF  CARBON  DIOXIDE 
T^0  MODEL  RADIATION  LEVELS 
TEMPERATURE  CHANGE  AT  PRIMED  LEVEL  1 

pahambtshizatiom. 

IaJJI  21 2?  5UT  F0R  PRIMED  LEVEL  3. 

^AME  AS  CTtP  BUT  FOR  PRIMED  LEVEL  5 

THE  NUMBER  OF  HISTORY  WRITES  PER  DA V . 

IeS  Sis™hyNw”!^sOF  PHVSICS  calls 

OD/HH/MM 

cSMStuiPiowecT?oN!D1TV  CHANGE  DUE  TO 

TOTAL  SPECIFIC  HUMIDITY  CHANGE  AT  PRTMFn 

«*gL  i £2S?„C!",ULUS  parametbbiSItiom "E0 

SAME  AS  CV0 1 P BUT  FOR  PRIMED  LFVPi 
SAME  AS  CVQSP  BUT  F6r  primed  LEVEL  I' 

CONVEClfoNERATURE  CHANGE  DUE  TO  CUMULUS 
TOTAL  TEMPERATURE  CHANGE  AT  PRIMED  LFVPi 
FROM  CUMULUS  PARAMETERIZATION  L 

SAME  AS  CVT1P  BUT  FOR  PRIMED  LEVEL  3 

l£'iL?ioc!fI^^uJ^0n  ««»*>  lIvIl  i: 

XEDIBECTIONC  0 R SHAPIRO  FILTER  - 

P°MtTRA?f^GPCOHVI^?oSl:OUD  F°B  "ID0LB  AND 

CONVECTION. FLUA  INT°  C‘-OUD  FOn  LOW-LEVEL 

YEDIRECTIONCTOR  F0R  SHAPIR0  FILTER  - 

TOTAL  hIaJ  S2pASi^.°VER  LAN°  °R  FR0ST- 
NUMERICAL  CONSTANT. 

NUMERICAL  CONSTANT. 

NUMERICAL  CONSTANT. 

LOCAL  TEMPORARY  VARIABLE 


I 
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CO 


DA 

DARK 


DATA 


DAYSPY 

DB 

DDSIG 

DEC 

DECMAX 

DELNU 
DELTA 
DEL  TAP 
OENGM 

O I A BAT 


DIST 

DL 

OLAT 

DLATI 

DLATJ 

DLON 

DLOWG 

DNORM 

DP 

DPI 

DPI 

DP2 

DRAD 

DRAW 

DSHS 

DS1G 

DSQG 

DStP 

DS3P 

DS5P 

DT 


DTC3 

DTL 

DTOUT 

DTS 

DU 

DUDVS 

DUMMY 

DV 

DXDATE 

DXDLAT 


DSOLAR 

CLOUDS 

OZONE2 

COMMON 

SOLAR  1 
CLOUDS 
AVRX 

RCNTRL 

PRO  I AG 
DEFALT 
SMSHAP 
DAILY 

RCNTRL 

CLOUDS 
COMP  3 
DAILY 

RCNTRL 

DAILY 

CNTRLP 

DEPEND 

LINKHO 

SOLAR! 

QANDQT 

DAILY 

COMPS 

CLOUDS 

C0MP3 

RCNTRL 

DEPEND 

INITSD 

DAILY 

RCNTRL 

DEFALT 

PMEAN 

OZONE 2 

0Z0NE2 

OZONE2 

DEPEND 

D COMP 3 

DEFALT 

DEFALT 

LINKHO 

DEFALT 

LINKHO 

LINKHO 

C0MP3 

C0MP3 

DCOMP3 

COMP  3 

RDPARM 

COMP  3 

RCNTRL 


CNTRLP 


CNTRLP 

DCOMP3 


CUMULO 

CUMULO 

CUMULO 

COMPO 

COMP  I 

COMP2 

GWSGCM 

C0MP3 

CONSTA 

COMP  3 

CONSTA 

COMP  3 

C0MP3 

COMP  3 

CLOCKS 

COMP3 

OZONE2 

OZONE2 


ABSORBED  SOLAR  RADIATION  ABOVE  CLOUDS, 

LOGICAL  FLAG  FOR  OARKNESS. 

HIGH  LATITUDE  FILTER  COEFFICIENTS. 

CONTAINS  WAVE-NUMBERS  OF  SEA  LEVEL  PRESSURE. 

NUMBER  OF  DAYS  IN  A YEAR. 

ABSORBED  SOLAR  RADIATION  BELOW  CLOUDS. 

RATIO  OF  TWO  ADJACENT  THICKNESSES, 

SUN  DECLINATION. 

MAXIMUM  SUN  DECLINATION. 

FREQUENCY  WIDTH  OF  SPECTRAL  INTERVAL. 
NUMERICAL  CONSTANT. 

CORRECTION  FOR  ATMOSPHERIC  MASS  LOSS. 

LOCAL  TEMPORARY  VARIABLE* 

TOTAL  DIABATIC  HEATING. 

FRACTION  OF  A YEAR  ELAPSED  SINCE  EARTH'S 
APHELION. 

LATITUDINAL  GRID  LENGTH. 

ABSOLUTE  VALUE  OF  LATITUDE. 

INTERPOLATED  LATITUDE. 

INTERPOLATED  LATITUDE. 

LONGITUDINAL  GRID  LENGTH. 

LONGITUDINAL  GRID  LENGTH. 

RATIO  OF  LONGITUDINAL  TO  LATITUDINAL  GRID 

PReIsURE  DIFFERENCE  BETWEEN  TWO  ADJACENT 
MODEL  RADIATION  LEVELS. 

PRESSURE  DIFFERENCE  BETWEEN  1 MB  AND 

PRe!sUREEDIFFERENCE  BETWEEN  5 MB  LEVEL 
AND  THE  FIRST  MODEL  RADIATION  LEVEL. 

CHANGE  IN  UPWARD  FLUX  OF  LONGWAVE  RADIATION 
WITH  RESPECT  TO  GROUND  TEMPERATURE. 

AIR/SURFACE  INTERACTION  COEFFICIENT.  

DIFFERENCE  BETWEEN  SATURATED  AND  UNSATURATED 
SPECIFIC  HUMIDITY  AT  THE  GROUND. 

SIGMA  LEVEL  THICKNESS,  USED  IN  MOST 

SUBROUTINES.  

CHANGE  IN  UPWARD  FLUX  OF  LATENT  HEAT 
WITH  REPECT  TO  GROUND  TEMPERATURE. 

VERTICAL  GRID  INCREMENT  AT  PRIMED  LEVEL  t 
USED  IN  CUMULUS  PARAMETERIZATION. 

SAME  AS  DS1P  BUT  FOR  PRIMED  LEVEL  3* 

SAME  AS  DS1P  BUT  FOR  PRIMED  LEVEL  5* 

MODEL  TIME-STEP  IN  SECONDS. 


PHYSICS  TIME-STEP  IN  SECONDS. 

TOTAL  DIABATIC  HEATING. 

TIME  BETWEEN  HISTORY  WRITES. 

TEMPERATURE  DIFFERENCE  BETWEEN  THE  GROUND 
AND  THE  TOP  OF  THE  PBL. 

ZONAL  WIND  DIFFERENCE  BETWEEN  SURFACE 
AND  LEVEL  NLAY. 

SQUARE  OF  WIND  DIFFERENCES. 

LOCAL  TEMPORARY  VARIABLE. 

MERIDIONAL  WIND  DIFFERENCE  BETWEEN  SURFACE 
AND  LEVEL  NLAY. 

INTERPOLATED  DATE.  

INTERPOLATED  LATITUDINAL  GRID  DISTANCE. 
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OXOCM 

OZONE2 

DXP 

RDPARM 

COMPt 
COMP  2 
DEPEND 
VERT 

DXPRO 

OZONE2 

DXYP 

RDPARM 

COMP  1 
COMP  2 
DEPEND 
SCALED 
VERT 

DYP 

RDPARM 

COMP  1 
C0MP2 
DEPEND 
VERT 

ECCN 

RCNTRL 

DAILY 

EO 

CNTRLP 

COMP3 

CONSTA 

EDLE 

COMP  3 

EDNM 

CNTRLP 

COMP  3 

EDNS 

COMP  3 

EDV 

DC0MP3 

C0MP3 

EFLUX 

QANDQT 

COMP  3 
INITSD 

ETP 

CLOUDS 

EVACO 

□COMP 3 

COMP3 

EVAL 

COMP3 

EVAP03 

CUMULO 

EVAPOB 

CUMULO 

EVE 

DCOMP3 

C0MP3 

EX 

COMP  3 
CUMULO 

EXL 

COMPS 

EXPBYK 

FUNCTION 

COMP  1 

COMP  3 

DEPEND 

EXPBYK 

GEOHT 

SMSHAP 

EXPNO 

GWSGCM 

F 

FILFFT 

FC 

SOLAR  1 

FOLD 

DSOLAR 

SOLAR  1 
CLOUDS 

FCLEAR 

DSOLAR 

SOLAR  1 

FCLOUD 

DSOLAR 

SOLAR  1 

FCOEF 

CNTRLP 

COMP3 

CONSTA 

FCOEF 1 

DC0MP3 

C0MP3 

FCORLS 

RDPARM 

C0MP2 

DEPEND 

FOATt 

DAILY 

FDAT2 

DAILY 

FDA  V 

DAILY 

FDXYP 

COMP  2 

FILTER 

LDPARM 

COMPO 

DEPEND 

INPUT 

FJEQ 

DEPEND 

FK 

RAD COM 

CLOUDS 

FKK 

CLOUDS 

FLD 

COMMON 

SMSHAP 
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TIME  INDEX  OF  PREVIOUS  STEP,  USED  IN  MOST 
SUBROUTINES. 

TIME  INCREMENT  TO  INVOKE  ANALYSIS. 

NUMBER  OF  NIGHT-TIME  LONGITUDINAL  GRID 
POINTS. 

CURRENT  OATE  IN  THE  MODEL. 

CURRENT  JULIAN  OAY. 


TIME  INCREMENT  BETWEEN  CALLS  TO  THE 
LONGWAVE  RAOIATION. 

TIME  INCREMENT  TO  WRITE  HISTORY  RECORDS. 


TIME  INCREMENT  TO  INVOKE  PHYSICS. 


THE  NUMBER  OF  DAYS  IN  EACH  MONTH. 

TIME  INCREMENT  FOR  RESTART  WRITE. 

TIME  INCREMENT  TO  INVOKE  SHAPIRO  FILTER. 

MODEL  TIME  STEP. 

NUMBER  OF  SECONDS  BETWEEN  CALLS  TO  PHYSICS. 
LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE. 

NUMBER  OF  FREQUENCY  BANDS  FOR  SOLAR 
RADIATION  ABSORPTION. 

LOCAL  TEMPORARY  VARIABLE. 

NUMBER  OF  FREQUENCY  BANDS  USED  IN  THE 
LONGWAVE  RADIATION  ROUTINE. 

CURRENT  MODEL  TIME. 


ENDING  TIME. 

CONVERTS  SECONDS  TO  HHMMSS  FORMAT. 
BEGINNING  TIME. 

TIME  AT  START  OF  EXPERIMENT. 


FLAG  FOR  RESTART  RECORD  WRITE  TO  HISTORY. 

NUMBER  OF  VERTICAL  LAYERS  IN  MODEL,  USEO 
IN  MOST  SUBROUTINES. 

NLA Y - t.  USED  IN  MOST  SUBROUTINES. 

LOCAL  TEMPORARY  VARIABLE. 

NLA Y * <NB  - 1 > . 


Ln 
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Mr.  U 

.vX  . i ..i 


NLAYND 


NLAYOZ 

NLA VO! 

NLA YP 1 

NLAYPZ 

NLAYP3 

NLE 

NLEV 

NM 

NMON 

NM0N1 

NMON2 

NN 

NOZ 

NP 

N5DAY 

NSEC 

NSECF 

NSEQ 

NSM 

NSTEP 

NTH 

NTM 

NTOP 

NTOPF 

NTOPT 

NXTMOD 

NY 

NYMO 


NYMDE 

NYMDO 

NYMD1 


NYOO 
NO 
N 1 


N2 


OCEAN 

OCMXX 

OCM22 
OCM30 
0CM38 
0CM46 
OD  1 

OD2 

OLAPR 


RADCOM 


ICNTRL 


RADCOM 

ICNTRL 

STAT  FUNC 
ICNTRL 

ICNTRL 


DSOlAR 

DSOLAR 
OSOLAR 
STAT  FUNC 

ICNTRL 


ICNTRL 

ICNTRL 

IOPARM 


RADCOM 

RADCOM 

RADCOM 

RADCOM 

RADCOM 

RADCOM 


RADCOM 


COMP  1 
COMPS 
VERT 
SOLAR1 

OZONE2 
SOLAR t 


NLA V * i NB  - 1 ) . 


Ke  1F.2«0F  LEVELS  USED  IN  OZONE 
OF  SHORTWAVE  RADIATION. 

NLAYOZ  + 1 . 


ABSORPTION 


SOLAR  1 

SOLAR  1 

LINKHO 

LINKHO 

INCYMD 

CLOUDS 

daily 

DAILY 

DAILY 

LINKHO 

CLOUDS 

OZONE 2 

OZONE2 

CONSTA 

GWSGCM 

I NCHMS 

INCHMS 

DEFALT 

GWSGCM 

SMSHAP 

DEFALT 

GWSGCM 

GWSGCM 

GWSGCM 

SOLAR  1 

CLOUDS 

SOLAR! 

SOLAR! 

GWSGCM 

INCYMD 

DAILY 

DEPEND 

GWSGCM 

INCYMD 

INPUT 

TWRITE 

DEFALT 

GWSGCM 

DEFALT 

DEPEND 

DEFALT 

INPUT 

INCYMD 

CLOUDS 

ADDQ 

COP  YQ 

DIFFO 

CLOUDS 

ADDQ 

COPYQ 

DIFFQ 

COMP  3 

OZONE 2 

OZONE2 
OZONE2 
OZONE2 
0Z0NE2 
OZONE 2 

OZONE 2 
OZONE 2 


NLAY  * g USE°  M0ST  SUBROUTINES. 

NLA Y «*•  3 * 

LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE 
LOCAL  TEMPORARY  VARIABLE. 

CURRENT  MONTH. 

LOCAL  TEMPORARY  VARIABLE 
LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE. 

vertical^  interpolation^*"^  USED  IN  °*-ONE 

LOCAL  TEMPORARY  VARIABLE. 

CURRENT  TIME  OF  MODEL  DAY  IN  SECONDS. 

INCREMENT  TIME  IN  SECONDS 

SS2XS2TS  HHMMSS  format  to 'seconds 

SEQUENCE1"  STEPS  IN  C0MpLETE  TIME-SCHEME 

T?2£A2tlr,2OR  LONGITUDINAL  SMOOTHING. 

TIME  STEPS  SINCE  INITIAL  START. 

INDEX  FOR  NEXT  TIME-STEP  TYPE  IN  MLF 
CURRENT  CPU  USAGE  FROM  CLOCKS. 

CLOUD  TOP  LEVEL. 

S,L2H2  122  LEVEL  FOR  FRACTIONAL  CLOUDINESS 
2J;22D  TOP  LEVEL  FOR  TOTAL  CLOUDINESS 
ADDS  ONE  TO  THE  MOD  FUNCTION 
YEAR  CONVERTED  TO  INTEGER. 

CURRENT  MODEL  DATE  IN  YYMMDD  FORMAT. 


ENDING  DATE  IN  YYMMDD  FORMAT. 

KSEWnSE1  lN  VVMMDD  FORMflT- 


INTEGER  CONTAINING  " !900*' 

LOCAL  TEMPORARY  VARIABLE. 

rrJil  fl|2  P0JNTER  OF  VALUES  TO  WHICH  TO  ADD 
UK!  POINTER  TO  WHICH  TO  COPY  VALUES. 

SJ12o2°INTER  FROM  WHICH  TO  SUBTRACT. 
LOCAL  TEMPORARY  VARIABLE 

JJS2I  1112  22INTER  0F  VALUES  TO  ADD. 

1112  22iNTER  FROM  WHICH  TO  COPY  VALUES. 
PTR*  0F  VALUES  WHICH  TO  SUBTRACT 
LOGICAL  FLAG  FOR  OCEANS.  V ’ 

l nI»52?tATED  VERTICAL  PROFILE  FOR  AN 
«55ir2,?.RV  TOTAL  OZONE  AMOUNT. 

2522 -2  2OR  0Z0NE  amount  of  .22  cm. 

wi5II£?,L  PROFILE  FOR  OZONE  AMOUNT  OF  .30  CM 

2522 ILE  F0R  OZONE  AMOUNT  OF  .38  CM* 

PROFILE  FOR  OZONE  AMOUNT  OF  .46  CM 

amTad2?t5I55  OZONE  AMOUNT  CORRESPONDING  TO 
AN  ARBITRAflY  LATITUDE  AND  DAY. 

SAME  AS  OD ! . 

TOTAL  VERTICAL  OZONE  AMOUNT  IN  APRIL 


ORIGINAL  PAGE  V>. 
OF  POOR  QUALIY., 


] 
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OL  JAN 
OL  JUL 
OLOCT 
OMEGA 

OMEGA2 
□ ZALE 


PAREA 

PCLOW 


PHI8AR 
PHI  I 
PH  J L 
PHIP 
PHIS 


PHlXt 
PHIX2 
PHI  Y 1 
PHIY2 
PHI  1 

PH  I 2 

PHI  ICS 

PHItSS 

PHI2CS 

PHI2SS 

PI 


RADCOM 
R A DCOM 
RADCOM 
QANDQT 

RCNTRL 

RADCOM 


QPOLES 

OANDOT 


PIMEAN  RCNTRL 


PIO 
PI  tso 


RCNTRL 


COMMON 


OZONE2 
OZONE  2 
OZONE2 
INITSD 
VERT 
DEPEND 
OZONE 2 
SOLAR  1 

PMEAN 
COMP  3 
CUMULO 
COMPS 
CUMULO 
COMP  3 
CUMULO 
LINKHO 

LINKHO 

COMP  2 

VERT 

LINKHO 

LINKHO 

LINKHO 

LINKHO 

COMP  2 

GEOHT 

LINKHO 

GEOHT 

LINKHO 

GEOHT 

GEOHT 

C0MP3 

GEOHT 

SMSHAP 

COMP  2 

COMP  2 

COMP2 

COMP  2 

COMP  2 

COMP2 

COMP2 

COMP2 

COMP  2 

COMP  2 

CONSTA 

DAILY 

DEPEND 

comps  : 

CONSTA 

DAILY  ( 

DEFALT 

COMP  1 f 

COMP  2 

VERT 

CLOUDS  ; 
CONSTA  C 
DEPEND 
COMPS  C 
CONSTA 
DEPEND 
GEOHT  1 


total  vertical  ozml  amount  in  ^ly^' 
VEnTICALRVELSciTY0NE  AM°UNT  IN  OCTO0En ■ 

! T,HE  ANGULAR  VELOCITY  OF  THE  EARTH 

: OZONE  AMOUNT  IN  A GIVEN  LAYER.  EARTH. 

s!S??ne!ressu*g-  used  in  most 

AREA  OF  POLAR  CAP. 

PRECIPITATION  DUE  TO  LOW-LEVEL  CONVECTION. 
PRECIPITATION  DUE  TO  MIO-LEVEL  CONVECTION. 
PRECIPITATION  DUE  TO  PENETRATING  CONVECTION 
dimerAL  DEPTH  of  WATEn  VAP0R  AND  "“TER 

MEASURE  OF  THE  RATIO  OF  PRESSURP  to 
GROUND  PRESSURE.  Htb5URE  T0 

LOCAL  TEMPORARY  VARIABLE. 

PRelsSRE°[EVELSRATr0  °F  ™°  A0JACE«T 

SPECIFIC  HUMIDITIES. 

POTENTIAL  TEMPERATURE  DIFFERENCE 
TEMPORARY  VARIABLE.  tHtNCE' 
GEOPOTENTIAL  HEIGHT. 

LOCAL  TEMPORARY  VARIABLE. 
temporary  VARIABLE. 

I ^ ^ HEIGHT  AT  A GIVEN  LEVEL 
GEOPOTENTIAL  HEIGHT  AT  THE  POLES  EL' 

SURFACE  GEOPOTENTIAL  HEIGHT 

ZONALL Y AVERAGED  GEOPOTENTIAL  hpttut 
ZONALLV  AVERAGED  GEOPOTENTIAL  HEjid?' 

£*OMAL*’Y  averaged  geopotential  height 
I?M?SeA^lesR1ABLE^ *sb°  *y "SSSBIant 

SAME  AS  PHI  t * 

SAME  AS  PHI  1 . 

SAME  AS  PHI  t . 

SAME  AS  PHI  f . 

SAME  AS  PHIt. 

PI  CONSTANT. 

STANDARD  MODEL  ATMOSPHERE  PRESSURE  OEPTH . 
GLOBAL  MEAN  PRESSURE. 

NET  COLUMN  MASS  CONVERGENCE. 

SINGLE  SCATTERING  ALBEDO. 

CONVERSION  FACTOR  PI/tQO.O. 


COMP  1 
GEOHT 
COMP  I 
GEOHT 


CONSTANT  2.0  X PI. 

GRADIANTV  VABIASLE  USED  T°  COMPUTE  PRESSURE 
SAME  AS  PK . 

SAME  AS  PK. 


PKD1 

PKD2 

PKSTD 

PKTOP 

PL 


PLE 


PLEN 

PLK 

PL2 

PM 


PMEAN 

PP 

PREACC 

PRECIP 

PRECON 

PREP 

PROCM 

P ROOM I 

PROCMJ 

PRT5H 

PRTT 

PRTU1 

PRTU2 

PRTU3 

PRTU4 

PRTU5 

PRTU6 

PRTU7 

PRTU8 

PRTU9 

PR  TV  1 

PRTV2 

PR  TV  3 

PRTV4 

PRTV5 

PRTV6 

PRTV7 

PR  TVS 

PRTV9 

PS 

PSK 

PSMAX 

PSP/JIN 

PSTD 

PTOP 

PU 

PU1 

PU2 

PV 


RDPARM 

RDPARM 

RAOCOM 

R A DCOM 


RAOCOM 

QMSAVE 

FUNCTION 

QPOLES 

OANDOT 

OANDQT 

R A DCOM 
RADCOM 


RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

COMPTON 

common 

COMMON 

OMSAVE 


GEOHT 

GEOHT 

DEPEND 

GEOHT 

OEPEND 

COMP  3 

CUMULO 

LINKHO 

COMP  3 

LINKHO 

OZONE  2 

SOLAR t 

OZONE 2 

C0MP3 

GEOHT 

LINKHO 

RESTQM 

SAVEQM 

TIMAVG 

DAILY 

DEFALT 


COMP  3 

INITSD 

COMP3 

COMP  3 

INITSD 

COMP  3 

0Z0NE2 

OZONE2 

OZONE2 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

PRDIAG 

COMPO 

C0MP3 

COMP  3 

COMPO 

DEFALT 

COMPO 

DEFALT 

CONSTA 

DEFALT 


COMF1 
VERT 
COMP  1 
VERT 
COMP  1 
VERT 
COMP  1 
VERT 


SAME  AS  PK. 

SAME  AS  PK. 

PSTD  RAISED  TO  THE  POWER  ROCP . 

PTOP  RAISED  TO  THE  POWER  ROCPP 1 . 
REFERENCE  PRESSURE  AT  MID-LEVELS. 


REFERENCE  PRESSURE  AT  EDGE-LEVELS. 


REFERENCE  PRESSURE  AT  A GIVEN  LEVEL. 
REFERENCE  PRESSURE  RAISED  TO  THE  POWER  ROCP. 
PRESSURE  AT  EDGE  OF  LAYER. 

SAVED  BASE  FIELD  P. 


CALCULATES  GLOBAL  MEAN  SURFACE  PRESSURE. 

REFERENCE  PRESSURE  AT  THE  POLES,  USED  IN 
MOST  SUBROUTINES. 

TOTAL  ACCUMULATED  PRECIPITATION. 

LARGE  SCALE  PRECIPITATION. 

TOTAL  CONVECTIVE  PRECIPITATION. 


TOTAL  PRECIPITATION. 

ATMOSPHERIC  MODEL  PRESSURES  AT  MID-LEVELS. 
PRESS.  LIMIT  USED  IN  PRESSURE  INTERPOLATION. 
PRESS.  LIMIT  USED  IN  PRESSURE  INTERPOLATION. 
FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POI.SIT  LABEL . 

FIELD  AND  GRID  POINT  LABEL . 

FIELD  AND  GRIO  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

FIELD  AND  GRID  POINT  LABEL. 

SURFACE  PRESSURE. 


SURFACE  PRESSURE  RAISED  TO  THE  POWER  ROCP. 
MAXIMUM  ALLOWABLE  REFERENCE  PRESSURE. 

MINIMUM  ALLOWABLE  REFERENCE  PRESSURE. 

REFERENCE  PRESSURE  FOR  NORMALIZATION. 

CONSTANT  PRESSURE  AT  THE  TOP  OF  THE 
ATMOSPHERE,  USED  IN  MOST  SUBROUTINES. 

ZONAL  MASS  FLUX. 

AVERAGED  ZONAL  MASS  FLUX. 

AVERAGED  ZONAL  MASS  FLUX. 

MERIDIONAL  MASS  FLUX. 
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PV1 

PV2 

PVIS 

PV2S 

PVDS 

PVH1S 
PVH2S 
PVT  IS 
PVT2S 
PVU1S 
PVU2S 
PVV1S 
PVV2S 
PX1 

PX2 

PY  t 

PY2 

PI 

P2 

0 

QALT 

QBEG 

ODAY 

QENO 
QFLUX 
QFLUX 1 
QFLUX2 
QHOG 

QOUT 


QPHY 

QRSH 


ORSW 

QS 

QSA 

OSAT 

OSH 

OSHF 

OSTtP 

QUA 

OUH 

QUITE 

Qt 

Q2 

Q2P 

Q3P 

Q4P 

Q5P 

R 

RA 


LCNTRL 

LCNTRL 

LCNTRL 


COMP  1 
VERT 
COMP  1 
VERT 

comp  t 

VERT 
COMP  t 
VERT 
COMP  2 
VERT 
COMP  1 
COMP  t 
COMP  1 
COMP  1 
COMP  1 
COMP  t 
COMPt 
COMP  1 
COMP2 
VERT 
COMP  2 
VERT 
COMP  2 
VERT 
COMP  2 
VERT 
LINKHO 
LI NR HO 
LINKHO 
GWSGCM 
GWSGCM 
GWSGCM 


LCNTRL 

GWSGCM 
COMP  1 
COMPl 
COMP  t 

CNTRLP 

CONSTA 

RADIO 

LCNTRL 

COMP  3 
CUMULO 
GWSGCM 
TWRITE 

LCNTRL 

GWSGCM 

LCNTRL 

CONHTR 

GWSGCM 

TWRITE 

LCNTRL 

GWSGCM 

TWRITE 

QANDQT 

IOQ 

COMMON 

CONHTR 

FUNCTION 

COMP  3 
CUMULO 

AMAM 

CONHTR 

GWSGCM 

LCNTRL 

GWSGCM 

DCUMU 

CUMULO 

COMMON 

CONHTR 

AMAM 

CONHTR 

PMEAN 

LINKHO 

LINKHO 

DCUMU 

CUMULO 

DCUMU 

CUMULO 

DCUMU 

CUMULO 

DCUMU 

CUMULO 

LINKHO 

COMMON 

CONHTR 

AVERAGED  MERIDIONAL  MASS  FLUX. 

AVERAGED  MERIDIONAL  MASS  FLUX. 

MERIDIONAL  MASS  FLUX  AT  THE  POLES. 

MERIDIONAL  MASS  FLUX  AT  THE  POLES. 

NET  MASS  CONVERGENCE  AT  THE  POLES. 

WWIDITV  MASS  FLUX  AT  THE  POLES 
SPECIFIC  HUMIDITY  MASS  FLUX  AT  THE  POLES 

rl«Ei5ATURE  MASS  FLU*  AT  THE  POLES; 

J£K?FRATURE  MASS  FLUX  AT  THE  POLES. 

ZONAL  WIND  MASS  FLUX  AT  THE  POLES. 

ZONAL  WIND  MASS  FLUX  AT  THE  POLES 
MERIDIONAL  WIND  MASS  FLUX  AT  THE  POLES 
MERIDIONAL  WIND  MASS  FLUX  AT  THE  pSlII* 
ZONALLY  AVERAGED  PRESSURE. 

ZONALLY  AVERAGED  PRESSURE. 

MERIDIONALLY  AVERAGED  PRESSURE. 

MERIDIONALLY  AVERAGED  PRESSURE. 

0NE  OF  THE  STRATOSPHERIC  LEVELS. 

s?il?F?c  M!t?f  the  5™*t°s™er*c  LEVEL!! 

TruI  if  tunnim  TJUSIIIJIp  f|  f5f Ti*iSs?J|P - 

TRUE  IF  CURRENT  TIME-STEP  IS  THE  FIRST  STEP. 

TRUE  IF  CURRENT  TIME-STEP  IS  THE  LAST  STEP 
LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE. 

FLAG  TO  INVOKE  LONGWAVE  RADIATION 

HOUT I Nt • 

LOGICAL  FLAG  TO  WRITE  HISTORY  FILE. 


LOGICAL  FLAG  TO  DO  PHYSICS  STEP. 

LOGICAL  FLAG  TO  WRITE  RESTART  TO  HISTORY, 

LOGICAL  FLAG  TO  WRITE  RESTART  FILE. 

MODEL  ARRAY  CONTAINING  SURFACE  AND 
DIAGNOSTIC  FIELDS. 

WORK  SPACE  FOR  HISTORY  RECORD. 

STATEMENT  FUNCTION  USED  TO  COMPUTE 
SATURATION  SPECIFIC  HUMIDITY. 

LOGICAL  FLAG  TO  DO  SHAPIRO  FILTER. 
?A™RAT!ON  SPECIFIC  HUMIDITY  AT  PRIMED 
LEVEL  t . 

WORK  SPACE  FOR  HISTORY  RECORD 
iJ.1.fIORV  RECORD  - UPPER  AIR  FIELDS. 

ofIconstant!NTROL  ONE  time  computation 

SPECIFIC  HUMIDITY  AT  THE  1 MB  LEVEL. 
SPECIFIC  HUMIDITY  AT  THE  5 MB  LEVEL. 
fEfSIEJS  HUMIDITY  AT  PRIMED  LEVEL  2. 

HUMIDITY  AT  PRIMED  LEVEL  3. 
SPECIFIC  HUMIDITY  AT  PRIMED  LEVEL  4. 
SPECIFIC  HUMIDITY  AT  PRIMED  LEVEL  5 
TOTAL  TRANSMISSION  FUNCTION 
REAL  ARRAY  FOR  HISTORY  HEADER. 
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RADE 

RCNTRL 

DEPEND 

RADIM3 

DEPEND 

RADLW 

QANDOT 

RADIO 

RADLWG 

QANDQT 

RADIO 

RADSW 

QANDQT 

INIT5D 

RADIO 

HADSWG 

QANDOT 

INITSD 

RADIO 

RADTRM 

RADCOM 

COMP  3 
RADIO 

RBRAY 

SOLAR  f 

RBROZ 

SOLAR  1 

RC 

RCNTRL 

CONHTR 

100 

RCLEAR 

□SOLAR 

SOLAR  1 

RCLOUD 

RADCOM 

SOLAR  1 
CLOUDS 

RE 

RADCOM 

C0MP3 

LINKHO 

RADIO 

RETA 

CUMULO 

RF 

SOLAR  1 

RGAS 

RCNTRL 

COMP  3 
CONSTA 
DEPEND 
GEOHT 

RH 

RADCOM 

COMP  3 
CUMULO 

RHOS 

DC0MP3 

C0MP3 

RHPWET 

C0MP3 

RH5 

C0MP3 

RICH 

C0MP3 

RKDN 

C0MP3 

RKUP 

COMP  3 

RLAT 

RDPARM 

COMP  3 
DEPEND 

RLATD 

RDPARM 

DEPEND 

INPUT 

RADIO 

RMEAN 

DSOLAR 

SOLAR  1 

RN 

RADCOM 

CLOUDS 

RNK 

CLOUDS 

RNN 

CLOUDS 

ROCP 

RCNTRL 

C0MP3 

DEPEND 

ROCPP1 

RDPARM 

DEPEND 

GEOHT 

ROT 

CONSTA 

RSDIS* 

RCNTRL 

CONSTA 

DAILY 

RSURF 

RADCOM 

LINKHO 
RADIO 
SOLAR  1 
CLOUDS 

RTOP 

STAT  FUNC 

CLOUDS 

S 

LINKHO 

5AREA 

PMEAN 

SB 

CLOUDS 

SCOSZ 

DSOLAR 

SOLAR t 

SD 

QMSAVE 

COMPt 

SDAY 

RCNTRL 

C0MP3 

CONSTA 

DEPEND 

SD1 

COMF1 

SD2 

VERT 

PLANETARY  RADIUS. 

LOCAL  TEMPORARY  VARIABLE. 

LONGWAVE  RADIATION  DIAGNOSTIC. 

LONGWAVE  RADIATION  AT  THE  GROUNO . 

SHORTWAVE  RADIATION  DIAGNOSTIC. 

SHORTWAVE  RADIATION  AT  THE  GROUND. 

NET  RADIATION  AT  THE  GROUND. 

ATMOSPHERIC  ALBEDO  DUE  TO  RAYLEIGH 
SCATTERING. 

RAYLEIGH  SCATTERING  FOR  OZONE. 

C0NATIN5  REAL  PARAMETERS  ON  HISTORY  RECORD. 

COMBINATION  OF  RAYLEIGH  AND  GROUND  ALBEDO . 
CLOUD  ALBEDO  IN  THE  VISIBLE. 

UPWARD  FLUX  OF  LONGWAVE  RADIATION. 


INVERSE  OF  THE  CLOUD  ENTRAINMENT. 
REFLECTED  SOLAR  RADIATION  AT  THE  SURFACE. 
GAS  CONSTANT  FOR  DRY  AIR. 


RELATIVE  HUMIOITY. 

ATMOSPHERIC  DENSITY  AT  THE  SURFACE. 

RELATIVE  HUMIDITY  AT  LEVEL  NLA Y PLUS 
GROUND  WETNESS. 

RELATIVE  HUMIDITY  AT  THE  SURFACE. 

BULK  RICHARDSON  NUMBER. 

RATIO  OF  PRESSURES  FROM  TWO  ADJACENT  LEVELS. 
INVERSE  OF  RKDN. 

LATITUDE  IN  RADIANS. 

LATITUDE  IN  DEGREES. 


ALBEDO  OF  LOWER  ATMOSPHERE  AND  GROUND  FOR 
OZONE . 

INDIVIDUAL  CLOUD  LAYER  REFLECTIVITY. 

TOTAL  JLOUD  REFLECTANCE. 

REFLECTANCE  FOR  A CLOUD  LAYER. 

RGAS  / CP. 

ROCP  * 1 . 

CURRENT  ANGLE  OF  EARTH'S  ROTATION. 

SQUARE  OF  DISTANCE  FROM  SUN. 

SURFACE  REFLECTANCE. 


CLOUD  REFLECTIVITY  FUNCTION. 

RADIATION  FLUX  AT  TOP  OF  A GIVEN 
MODEL  LAYER. 

TOTAL  GLOBAL  AREA. 

AVERAGED  CLOUDY  SKY  ABSORPTANCE , SK . 
OVER  ALL  ANGLES. 

SOLAR  CONSTANT  MODIFIED  BY  SOLAR  ZENITH 
ANGLE. 

NET  MASS  CONVERGENCE. 

NUMBER  OF  SECONDS  PER  DAY. 


LOCAL  TEMPORARY  VARIABLE. 
LOCAL  TEMPORARY  VARIABLE. 
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SEASON  RCNTRL 

SFPOL 
SG 


SGNP 


SH 

SHG 

SHL 


SHLE 


RADCOM 

RDPARM 


OANDQT 
R A DCOM 

RADCOM 


radcom 


SHL  TOP  CNTRLP 
SHM  OMSAVE 


SHP 

SHS 

SHSAT 

SHSATS 

SIG 


SIGE 


SIND 
SI  NL 


OPOLES 

OANDQT 

radcom 


RDPARM 


RCNTRL 


RCNTRL 

RDPARM 


SINLON  RDPARM 


DAILY 

SMSHAP 
RADIO 
SOLAR1 
COMP  ^ 
COMP  2 
DEPEND 
POL  I NP 
SMSHAP 
VERT 

COMP  3 
LINKHO 
COMP  3 
CUMULO 
LINKHO 
SOLAR  1 
COMP  t 
COMP  3 
CUMULO 
RADIO 
SOLAR1 
RESTQM 
SAVE  QM 
T IMA VG 


SOLSTICE  °F  A VEAR  ELAPSE0  SINCE  SUMMER 

kSenLI^0RARV  VARIABLE. 

ABSORBED  SOLAR  RADIATION  AT  THE  GROUND. 

SIGN  COEFFICIENT  USED  IN  POLE  EQUATIONS. 


IpIcific  humidity ' atSthe 'ground  SUBR0UT 1 NES • 
SPECIFIC  HUMIDITY  USED  IN  PHYSICS, 

SPECIFIC  HUMIDITY  AT  EDGE  LEVELS . 


RADIO 

C0MP3 

CUMULO 

COMP3 

COMPt 

COMP  3 

CONSTA 

DEPEND 

GEOHT 

SMSHAP 

COMP3 

CONSTA 

DEPEND 

DEFALT 

GEOHT 

VERT 

DAILY 

SOLAR1 

COMP  2 

DEPEND 

SOLAR  1 

COMP  t 

COMP2 

DEPEND 

POL I NP 

SMSHAP 

SOLAR1 


the  mode*-  T°p- 

ISKIOm  AT  ™E  P0LES'  ™ MOST 

IaTUR AT ION^SPEC^F^C^HUMID I T V . 
vert?cal^sigma^cooro?nate |TV  AT  THE  SURFA«- 


LAYER  INTERFACE  SIGMA  VALUES. 


SINE  OF  SOLAR  DECLINATION. 
SINE  OF  LATITUDE. 

SINE  OF  LONGITUDE. 


SINROT 

SK 

SLEXP 

CNTRLP 

VERT 
CONSTA 
SOLAR t 

STAT  FUNC 

CLOUDS 

AVRX 

prdiag 

SMASS 

SMTH 

QANOQT 

SMSHAP 

PMEAN 

AVRX 

DEPEND 

DEFALT 

SNODEC 

SNOW 

radcom 

INPUT 

CONSTA 

COMP3 

5NOWN 

CNTRLP 

C0MP35 
COMP  3 

SINE  OF  EARTH  * S ROTATION. 

of  cloudy  SKIES. 

SURFACE  TO  SEA  LEVEL  PRESSURE  FUNCTION. 

5??0m»IIGHTED  PRESSURE. 

HIGH  LATITUDE  FOURIER  FILTER  COEFFICIENTS. 

i"n?JilA?Er?F  SN0W  LINE. 

LOGICAL  FLAG  FOR  SNOW. 

SNOW  LINE  IN  NORTHERN  HEMISPHERE. 
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v V 


•'i 


V 


ro 


SNOWS 

SN2FLG 

SOLS 

SP 

sppess 

SRNN 

SRS 

SRSN 

SS 

SSB 

SSD 

sss 

SSSE 

SSI 

SSI  P 
SS2P 
5S3P 
SS4P 
SS5P 
STBO 
STERP1 


CNTRLP 

LCNTRL 

RCNTHL 

RADCOM 


RADCOM 


RADCOM 

RADCOM 


DCUMU 

DCUMU 

DCUMU 

DCUMU 

DCUMU 

CNTRLP 

CNTRLP 


STERP2  CNTRLP 


CONSTA 
COMP  3 
CONSTA 
DEPEND 
OEF ALT 
DAILY 
COMP  3 
CUMULO 
PME  AN 
CLOUDS 

CLOUDS 

CLOUDS 

LINKHO 

l i raKHo 

LINKHO 
COMP  3 
CUMULO 
COMP  3 
CUMULO 
LINKHO 

CUMULO 

CUMULO 

CUMULO 

CUMULO 

CUMULO 

COMP  3 

COMP3 

CONSTA 

COMP  3 


STM 

CONSTA 

GWSGCM 

STN 

RADCOM 

CLOUDS 

STNN 

CLOUDS 

STSN 

CLOUDS 

SUM 

LINKHO 

SUP 

SMSHAP 

SURFL 

LINKHO 

SURFU 

LINKHO 

SVP 

SMSHAP 

SWALE 

RADCOM 

SOLAR! 

SWIL 

RADCOM 

CLOUDS 
SOLAR  1 

SO 

RADCOM 

CLOUDS 

CONSTA 

T 

QANDQT 

SOLAR  1 

TAPR 

STRATA! 

TAUAB 

CLOUDS 

TAUL 

RADCOM 

SOLAR  1 

TAUP 

CLOUDS 

CLOUDS 

TAUSC 

CLOUDS 

TCOND 

RADCOM 

SOLAR1 

TDAY 

STRATM 

TDML 

COMP  3 

TON 

D COMP 3 

C0MP3 

TEM 

COMP3 

SNOW  LINE  IN  SOUTHERN  HEMISPHERE. 

LOGICAL  FLAG  FOR  SINE  SIGMA  PBL  PROFILE, 

JULIAN  DAY  OF  SUMMER  SOLSTICE. 

REFERENCE  PRESSURE. 

ZONAL  SUM  OF  PRESSURES. 

REFLECTANCE  BY  ADDING  TWO  LAYERS  (WITH 
ILLUMINATION  FROM  ABOVE). 

REFLECTANCE  BY  ADDING  TWO  LAYERS. 
REFLECTANCE  BY  AOOING  TWO  LAYERS  (WITH 
ILLUMINATION  FROM  BELOW). 

DERIVATIVE  OF  PLANCK'S  FUNCTION. 

SMOOTHED  DERIVATIVE  OF  PLANK'S  PACTION. 
SMOOTHED  DERIVATIVE  OF  PLANK'S  FUNCTION. 

DRY  STATIC  ENERGY. 

DRY  STATIC  ENERGY  AT  EDGE  LEVELS. 

DERIVATIVE  OF  PLANCK'S  FUNCTION  AT  1 MB 

DRYESTATIC  ENERGY  AT  PRIMED  LEVEL  t. 

DRV  STATIC  ENERGY  AT  PRIMED  LEVEL  2. 

DRY  STATIC  ENERGY  AT  PRIMED  LEVEL  3, 

DRY  STATIC  ENERGY  AT  PRIMED  LEVEL  A. 

DRY  STATIC  ENERGY  AT  PRIMED  LEVEL  5. 

STEF AN-BOLT2MAN  CONSTANT.  „ ^ 

SURFACE  WIND  INTERPOLATION  COEFFICIENT. 

SURFACE  WIND  INTERPOLATION  COEFFICIENT. 

CPU  TIME  USED  FOR  ONE  TIME  STEP. 
TRANSMISSION  BY  ADDING  TWO  LAVERS. 
TRANSMISSION  BY  ADDING  TWO  LAYERS  (WITH 
ILLUMINATION  FROM  ABOVE). 

TRANSMISSION  BY  ADDING  two  LAYERS  (WITH 
ILLUMINATION  FROM  BELOW). 

SUMMATION  OF  S. 

FLUX  AT  THE  TOP  OF  A MODEL  LAYER  DUE  TO 
RADIATION  FROM  THE  SURFACE  LAYER. 

FLUX  AT  THE  TOP  OF  A MODEL  LAYER  DUE  TO 
RADIATION  FROM  THE  LAYER  BETWEEN  5 MB 
AND  1 MB . 

AMOUNT  OF  WATER  VAPOR  ABOVE  A GIVEN  LEVEL. 

AMOUNT  OF  WATER  VAPOR  BETWEEN  TWO  AOJACENT 
LEVELS. 

SOLAR  CONSTANT. 

PROGNOSTIC  TEMPERATURE  FIELD.  USED  IN  MOST 

CLIMATOLolfcAL  STRATOSPHERIC  TEMPERATURES 

OPTICAL  THICKNESS  OF  CLOUDS  DUE  TO 

OPTICAL1 THI CKNESS  DUE  TO  CLOUD  PARTICLES 
IN  A GIVEN  LAYER. 

LOCAL  TEMPORARY  VARIABLE. 

OPTICAL  THICKNESS  OF  CLOUDS  DUE  TO 
SCATTERING. 

OPTICAL  THICKNESS  OF  SUPER-SATURATION 
CLOUDS . 

TEMPERATURE  AT  A STRATOSPHER I C LEVEL. 
TEMPERATURE  DIFFERENCE  IN  MIXED  LAYER. 
LOCAL  TEMPORARY  VARIABLE.  ( 

CHANGE  IN  CONDUCTION  OF  HEAT  THROUGH  SEA 
ICE  WITH  RESPECT  TO  GROUND  TEMPERATURE. 
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TEMP 


TEMPU 
TEMPV 
TEMPI 
TEMP  ID 
TERM 

TERMT 

TERW Wt 

TERM! 

TERM2 

TERM3 

TERM* 

TFK 

TG 


TGR 

TGSO 

TH 


THETA 

THG 

THSTD 

THSTD2 

THT9 

TICE 


TINF 
T I I 

T I 2 

T JAN 

TJUL 

TL 


TLE 

TLOWL 

TLTOP 

TM 


TMAX 

TMIDL 
TM  I N 

TN 

TNK 

TNN 

TOOT 

TOPABS 

TOPOGt 


DSOLAR 

OMSAVE 

OMSAVE 


R A DCOM 

RADCOM 

COMMON 

RDP ARM 
RDPARM 

CNTRLP 


RADCOM 

RADCOM 

RADCOM 

CNTRLP 

QMSAVE 

QANDOT 

RADCOM 

QANDOT 

RADCOM 

RADCOM 

MNTHLY 


COMPS 

CUMULO 

OSAT 

COMP3 

COMP3 

SOLAR  1 

EXPBYK 

GEOHT 

LINKHO 

COMP  2 

GEOHT 

COMP  2 

GEOHT 

LINKHO 

COMP  3 

LINKHO 

COMP  3 

COMP  3 

CLOUDS 

COMP  3 

C0MP35 

LINKHO 

COMP 35 

COMP  3 

COMP  3 

LINKHO 

GEOHT 

C0MP3 

C0MP3 

DEPEND 

GEOHT 

DEPEND 

GEOHT 

COMPS 

C0MP3 

COMP 35 

CONSTA 

LINKHO 

LINKHO 

031  NT 

LINKHO 

03JNT 

STRATM 

STRATM 

COMP  3 

CUMULO 

LINKHO 

SOLAR  1 

C0MP3 

LINKHO 

SOLAR t 

SOLAR! 

RESTQM 

SAVEQM 

TIMAVG 

C0MP3 

INITSD 

SOLAR  t 

COMP  3 

INITSD 

CLOUDS 

CLOUDS 

CLOUDS 

STRATM 

SOLAR  1 
CLOUDS 
DAILY 


LOCAL  TEMPORARY  VARIABLE. 


LOCAL  TEMPORARY 
LOCAL  TEMPORARY 
LOCAL  TEMPORARY 
LOCAL  TEMPORARY 
LOCAL  TEMPORARY 


VARIABLE. 
VARIABLE . 
VARIABLE . 
VARIABLE . 
VAP I ABLE . 


TERM  PASSED  FROM  GEOHT  TO  COMP2  . 

TERM  PASSED  FROM  GEOHT  TO  C0MP2 . 

LOCAL  TEMPORARY  VARIABLE. 
SENSIBLE  HEAT  FLUX. 

LOCAL  TEMPORARY  VARIABLE. 

LATENT  HEAT  FLUX. 

HEATING  DUE  TO  CONDUCTION. 

LOCAL  TEMPORARY  VARIABLE. 

GROUND  TEMPERATURE. 


GROUND  TEMPERATURE. 

GROUND  TEMPERATURE  SQUARED. 
POTENTIAL  TEMERATURE. 


MEAN  POTENTIAL  TEMPERATURE . 
LOCAL  TEMPORARY  VARIABLE. 


POTENTIAL  TEMPERATURE  WITH  SURFACE  PRESSURE 
AS  A REFERENCE. 

TEMPERATURE  AT  WHICH  ICE  MELTS. 


TOTAL  TRANSMISSION  FUNCTION. 

TRANSMISSION  FUNCTION  OF  OZONE. 

TRANSMISSION  FUNCTION  OF  OZONE. 

CLIMATOLOGICAL  STRATOSPHERIC  TEMPERATURES 
FOR  JANUARY. 

CLIMATOLOGICAL  STRATOSPHERIC  TEMPERA TURES 
FOR  JULY. 

TEMPERATURE  USED  IN  PHYSICS. 


TEMPERATURE  AT  EDGE  LEVELS. 

OPTICAL  THICKNESS  OF  LOW-LEVEL  CLOUDS. 
TEMPERATURE  AT  ATMOSPHERIC  MODEL  TOP. 


MAXIMUM  DAILY  SURFACE  TEMPERATURE. 


OPTICAL  THICKNESS  OF 
MINIMUM  DAILY  SURFACE 


MIDDLE  LEVEL  CLOUDS. 
TEMPERATURE . 


INDIVIDUAL  CLOUD  LAVER  TRANSMISSIVITY 
TOTAL  CLOUD  TRANSMITTANCE. 

TRANSMITTANCE  OF  A CLOUD  LAYER. 
CLIMATOLOGICAL  STRATOSPHERIC  TEMPERATURES 
FOR  OCTHBER. 

ABSORPT > ON  ABOVE  LEVEL  t 
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T0P0G2 

TOTABS 

TOTOCM 

TOTOZ 

TOTOZI 

TOTOZJ 

TOt 

T02 

T03 

TP 

TPENE 

TRAD 

TRAO  t 

TRANS 

TRB 

TRD 

TR03 

TS 

TS 

TSTAR 

TSTD 

TSURF 

TT 

TTM 

TTOP 

TTT 

TUP 

T1 

T2 

U 

UDN 

UM 


UP 

US 

UUP 

V 

VAR 

VDN 

VER 

VERSAVE 

VM 


VP 

VS 

VUP 

w 

WAVAMP 

WAVLEN 


v'r  y v y 


■T* 


GWSGCM 

MNTHLY 

DAILY 

OSOLAR 

SOLAR  1 
OZONE2 

RADCOM 

OZONE2 

OZONE2 

0Z0NE2 
L1NKHO 
03  I NT 
LINKHO 
03  I NT 
LINKHO 
03  I NT 

OPOLES 

RADCOM 

SOLAR  1 
LINKHO 

LINKHO 
SOLAR  1 
LINKHO 
LINKHO 
LINKHO 
03 1 NT 

QANDQT 

COMP  3 
LINKHO 

QSAT 

RCNTRL 

DEPEND 

DEFALT 

SMSHAP 

LINKHO 

GWSGCM 

ST AT  FUNC 

CLOUDS 

LINKHO 

DC0MP3 

COMP  3 

LINKHO 

STRATM 

LINKHO 

STRATM 

QANDQT 

D COMP 3 

COMP  3 

OMSAVE 

RESTQM 
SAVE  OM 
TIMAVG 

QPOLES 

OCOMP3 

COMP  3 

DCOM P 3 
QANDQT 

COMP  3 

LINKHO 

DC0MP3 

COMP  3 

CCNTRL 

INPUT 

INPUT 

QMSAVE 

RESTOM 

5AVEQM 

TIMAVG 

QPOLES 

DC0MP3 

COMP  3 

DC0MP3 

COMP  3 

DSOLAR 

SOLAR  1 
CLOUDS 
PRDIAG 
PRDIAG 

TOTAL  ABSORPTION  OF  SOLAR  RADIATION. 

TIME  INTERPOLATED  TOTAL  VERTICAL  AMOUNT 
OF  OZONE . 

TOTAL  VERTICAL  OZONE  AMOUNTS. 

LIMIT  USED  IN  VERTICAL  INTERPOLATION  OF 
OZONE. 

SAME  AS  TOTOZI. 

TRANSMISSION  FUNCTION  OF  OZONE. 

TRANSMISSION  FUNCTION  OF  OZONE. 

TRANSMISSION  FUNCTION  OF  OZONE. 

TEMPERATURE  AT  THE  POLES,  USED  IN  MOST 
SUBROUTINES . 

OPTICAL  THICKNESS  OF  PENETRATING  CLOUDS. 
TEMPERATURE  AT  A GIVEN  MODEL  RADIATION 
LEVEL . 

TEMPERATURE  AT  THE  1 MB  LEVEL. 


TRANSMISSION  FUNCTION  OF  OZONE. 

TEMPERATURE  OF  THE  AIR  ABOVE  THE  SURFACE. 
TEMPERATURE  AT  THE  TOP  OF  THE  SURFACE 
LAYER. 

LOCAL  TEMPORARY  VARIABLE. 

STANDARD  TEMPERATURE  FOR  NORMALIZATION. 


SCALED  TEMPERATURE  AT  A MODEL  RADIATION 
LEVEL . 

CLOUD  TRANSMITTANCE  FUNCTION. 

TT  * TT. 

LOCAL  TEMPORARY  VARIABLE. 

TEMPERATURE  AT  THE  1 MB  LEVEL. 

TEMPERATURE  AT  THE  5 MB  LEVEL. 

ZONAL  WIND  COMPONENT,  USED  IN  MOST 
SUBROUTINES. 

LOCAL  TEMPORARY  VARIABLE. 


ZONAL  WIND  COMPONENT  AT  THE  POLES.  USEO  IN 
MOST  SUBROUTINES. 

ZONAL  SURFACE  WIND  COMPONENT. 

LOCAL  TEMPORARY  VARIABLE. 

MERIDIONAL  WIND  COMPONENT,  USED  IN  MOST 
SUBROUTINES. 

INTEGRAL  QUANTITY  USED  IN  OPTICAL  DEPTH 
CALCULATION. 

LOCAL  TEMPORARY  VARIABLE. 

MODEL  VERSION  IDENTIFICATION. 

EQUAL  TO  VER. 


MERIDIONAL  WIND  COMPONENT  AT  THE  POLES.  USED 
IN  MOST  SUBROUTINES. 

MERIDIONAL  SURFACE  WIND  COMPONENT. 

LOCAL  TEMPORARY  VARIABLE. 

SCALED  WATER  VAPOR  AMOUNT  IN  A SLANT  PATH. 

WAVE  AMPLITUDE. 

WAVE  LENGTH. 


0 o 

1 3 

V 3 

o 

J is, 

<r 


WAVPCT 

WAVPER 

WET 

WK 

WMAG 
WMAGC 
WMAGS 
WORK  1 
WSAVE 


WTRINF 

WW 

X 

XD 

XDAY 


XK 

XKK 

XLABEL 

XLAT 


XORDS 


XORDU 


XSA 

XUA 

XX 

XY 

YY 

Z 

ZLN 

ZLNCO 


RAOCOM 


DCOMP3 
DC0MP3 
D COMP 3 
COMMON 
RDPARM 


DSOLAR 


CNTRLP 


RADCOM 

ccntrl 


COROER 

CORDER 

COMMON 

COMMON 


DC0MP3 

CNTRLP 


PRDIAG 

PRDIAG 

C0MP3 

COMP 3 5 

CLOUDS 

COMP3 

COMP3 

COMP  3 

GWSGCM 

AVRX 

DEPEND 

PRDIAG 

LINKHO 

SOLAR  1 

LINKHO 

03 1 NT 

EXPBYK 

CONSTA 

OZONE2 

SOLAR  1 

CLOUDS 

CLOUDS 

DEFALT 

0Z0NE2 

RADIO 

S0LAR1 

CONHTR 

DEFALT 

log 

CONHTR 

DEFALT 

log 

CONHTR 

CONHTR 

LINKHO 

SOLAR  1 

LINKHO 

LINKHO 

COMP  3 

C0MP3 

C0MP3 

CONSTA 


GROUND  WETNESS. 


WIND  SPEED  AT  GROUND. 

WIND  SPEED  AT  GROUND  CUBED. 
WIND  SPEED  AT  GROUND  SQUARED. 


WORK  SPACE . 


TOTAL  TRANSMISSION  FUNCTION 

radiation1STURE  amount  Fon  reflected 

DATA  USED  IN  PLANCK * S FUNCTION. 

LOCAL  TEMPORARY  VARIABLE. 

SOLAR  DAY  OF  THE  YEAR. 


ABSORPTION  COEFFICIENT  OF  CLOUDS. 

latituoINT  description  label. 


CHARACTERS  FOR  SURFACE  VARIABLES. 


CHARACTERS  FOR  UPPER  AIR  VARIABLES. 


LOCAL  TEMPORARY  VARIABLE. 

LOCAL  TEMPORARY  VARIABLE. 
LOCAL  TEMPORARY  variable. 
TOPOGRAPHICAL  HEIGHT. 
THICKNESS  OF  PBL . 

PBL  THICKNESS  COEFFICIENT. 
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CHAPTER  III 


CODE  LISTING 


*_<*«*.  ■*& 


ooooonooooooooooooooooonoooooooooooooooonooooooooooooooooooooooo 


0000  1 


PROGRAM 

♦ 

♦ 

GV/3GCM  ( INPUT,  OUT  PUT. 

UNIT3  = 0UTPUI  , 
UNI T8  = E X X X XHTS , 
UNI  T 14-=EXXXXRS2 
UNIT  43  = ALBEDO . 
UNIT  IS- RSPROC . 
UNIT33-USER03 , 

UNI T5=£XXXXNL . 
UNI T 1 1 = TEMPNL . 
, UNIT41 =TOPOG, 
UN  I T55  - V/UD  A T A , 
UNI T 3 1 -USERO  1 , 
UNI T34=USER04 , 

UNI T6  = 0U  TPUT , 
UN! T 12 -EX  XXX RSI 
UNI T42-GRWET, 
UNI T56“KnOATA . 
UNIT32-USER02, 
UN!  i 

VGWSGCM 

VGWSGCM 

VGWSGCM 

VGWSGCM 

VGWSGCM 

VGWSGCM 

VGWSGCM 

► * i/rin cr 

• • - 

GODOARD  MODELING  AND 
FOURTH-ORDER  GENERAL 

SIMULATION  FACILITY 

V Lj  jvjLM 

‘VGWSGCM 

► a i t*'  ti  t ^ f r*  i m 

L.  ~ ' 

M / A - C 

OM  SIGMA  DAT 

A INC.  N A 

5 A - G S F C 

• VGWSGCM 
‘VGWSGCM 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 


MOST  ROUTINES  OPERATE  ON  ONE  LATITUDE  BAND  AT  A TIME 
SEE  MODE L TECHNICAL  DOCUMENTATION  FOR  EXTENSIVE  DETAILS 


NAMELIST  DECKS 


INPUTZ 

INPHYS 


- INPUT 

- CONSTA 


STATEMENT  FUNCTION  DECKS 
5LE/P  - PRD I AG , SWISH  A P 


DATASET 

sssssss: 

DSRN 

DSRM 

DSRN 

DSRN 

DSRN 

DSRN 

DSRN 

DSRN 

DSRN 

DSRN 

DSRN 

DSRN 

DSRN 

DSRN 


REQUIREMENTS 

rsssicsss:::: 

3 PRIMARY  MODEL  PRINTOUT 

5 INPUT  CONTROL  NAMELISTS 

6 DEBUG  AND  ERROR  PRINTOUT 
8 OUTPUT  MODEL  HISTORY  FILE 
It  TEMPORARY  READ/WRTTE  FILE 
12  RESTART  FILE  (HAS  INITIAL 

14  RESTART  FILE 

15  FILE  WITH  PROC  TO  SEND  PROPER  RESTART  TO  FRONT  END 

41  INPUT  CLIMATOLOGICAL  TOPOGRAPHY 

42  INPUT  CLIMATOLOGICAL  GROUND  WETNESS 

43  INPUT  CLIMATOLOGICAL  ALBEDO 

55  INPUT  WU  RADIATION  DATA 

56  INPUT  KRISHNAMURTHY  RADIATION  DATA 

SO  INPUT  CARD  IMAGE  WITH  COMPUTATION  CUT-OFF  TIME 


SEGMENT 

FOR  NAMELISTS  COPY 
CONDITIONS  FOR  THE  RUN ) 


EXIT  ERROR  CONDITIONS 


sssssss 

00 
01 
06 
08 
1 2 
16 


REQUESTED  END  TIME  REACHED 
MAXIMUM  RECORDS  ON  DISK  REACHED 
COMPUTATION  CUT-OFF  TIME  EXCEEDED 
I/O  ERROR  OR  REQUESTED  START  TIME  NOT  FOUND 
MODEL  DIAGNOSTIC 

TERMINATION  VIA  FORTRAN  EXTENDED  ERROR  FACILITY 


EXTERNAL  REFERENCES  AND  CGf/MON  US*GE 
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VGWSGCM  15 
VGWSGCM  16 
VGWSGCM  17 
VGWSGCM  18 
VGWSGCM  19 
VGWSGCM  20 
VCNlCOM  2 
VCNTCOM  3 
VCNTCOM  4 
VCNTCOM  5 
VCNTCOM  6 
VCNTCOM  7 
VCNTCOM  8 
VCNTCOM  9 
VCNTCOM  10 
VCNTCOM  1 1 
VCNTCOM  12 
VCNTCOM  13 
VCNTCOM  14 
VCNTCOM  15 
VCNTCOM  16 
VCNTCOM  17 
VCNTCOM  18 
VCNTCOM  19 
VCNTCOM  20 
VCNTCOM  21 
VCNTCOM  22 
VCNTCOM  23 
VCNTCOM  24 
VCNTCOM  25 
VCNTCOM  26 
VCNTCOM  27 
VCNTCOM  28 
VCNTCOM  29 
VCNTCOM  30 
VCNTCOM  31 
VCNTCOM  32 
VCNTCOM  33 
VCNTCOM  34 
VCNTCOM  35 
VCNTCOM  36 
VCNTCOM  37 
VCNTCOM  38 
VCNTCOM  39 
VCNTCOM  40 
VCNTCOM  41 
VCNTCOM  42 
VCNTCOM  43 
VCNTCOM  44 
=S5T5r5tS33ssr5sVCNTC0M  45 
G|W|W|e|B|8 jDJSJ VCNTCOM  46 


t |c! 2 !c! s! VCNTCOM  47 


0|C !S| T jo! T joi 

H,"!c  V?  8 3 
1 3 I 1*1 

i3i  ri 


T P A I 
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O VCNTCOM  48 
L VCNTCOM  49 
A VCNTCOM  50 
R VCNTCOM  51 
[VCNTCOM  52 
“ -VCNTCOM  53 
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ARRAY  OF  NMLEV  MANDATORY  PRESSURE  LEVELS 
SPARES 


PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON  /CCNTRL / CCO 
COMMON  /CCNTRL/  A DATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  d I C 
COMMON  /CCNTRL / JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  'CCNTRL/  CCSP07 
COMMON  -CCNTRL/  CCSPOe 
COMMON  CCNTRL/  VER 
COMMON  CCNTRL/  XL ABE  L M 
COMMON  CCNTRL/  COS  f 30 ) 
COMMON  CCNTRL'  CPU  f 1 0 I 


r 


EQUIVALENCE 
CHARACTER  *8 
CHARACTER  *'3 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTER  S 
character  s 
CHAR AC TE  R *8 
CHARACTERS 
CHA  RAC  TER  * 8 


<CCO  ,CCM!) 

CCO,  CC  f 200 ) 

A DATE 

ATIME 

JIC 

JOB 

CCSP06 

CCSP07 

CCSP08 

VER 

XLABEL 

CQS 

COU 


q model  parameters  Saved  on  history  record 


00027 

COMMON 

/ ICNTRL / 

ICO 

00028 

COMMON 

/ICNTRL  t 

IM 

00029 

COMMON 

/ ICNTRL/ 

IMD2 

00030 

COMMON 

/ICNTRL/ 

IMD2P 1 

0003  1 

COMMON 

/ICNTRL/ 

NDRSW 

00032 

COMMON 

/ICNTRL/ 

dM 

00033 

COMMON 

/ICNTRL/ 

0MD2 

00034 

COMMON 

/ICNTRL/ 

JMT2 

00035 

COMMON 

/ICNTRL/ 

JNP 

00035 

COMMON 

/ICNTRL/ 

J04 

00037 

COMMON 

' ICNTRL / 

JOB 

0003B 

COMMON 

/ICNTRL ' 

JSP 

00039 

COMMON 

/ ICNTRL/ 

KLIALB 

00040 

COMMON 

/ICNTRL/ 

KLIGW 

0004  1 

COMMON 

/ICNTRL/ 

KLISST 

00042 

COMMON 

/ICNTRL/ 

KS 

00043 

COMMON 

/ICNTRL/ 

KU 

00044 

COMMON 

/ICNTRL/ 

LOGBR 

00045 

COMMON 

'ICNTRL/ 

matin 

00046 

COMMON 

/ICNTRL/ 

MATSNX 

00047 

COMMON 

/ ICNTRL / 

MATSUN 

00048 

COMMON 

/ICNTRL/ 

MLF 

00049 

COMMON 

/ICNTRL/ 

MROD 

00050 

COMMON 

'ICNTRL/ 

NKRSH 

0005  1 

COMMON 

/ICNTRL/ 

IMSWI 

VCNTC0M267 

VCNTC0M268 

VCNTC0M269 

VCNTC0M270 

VCNTC0M271 

VCNTC0M272 

VCNTCOM273 

VCNTCOM274 

VCNTC0M275 

VCNTQ0M276 

VCNTCOM277 

VCNTC0M278 

VCNTC0M279 

VCNTCOM280 


VCNTRL 

2 

VCNTRL 

3 

VCNTRL 

4 

VCNTRL 

5 

VCNTRL 

6 

VCNTRL 

7 

VCNTRL 

8 

VCNTRL 

9 

VCNTRL 

10 

VCNTRL 

1 1 

VCNTRL 

1 2 

VCNTRL 

13 

VCNTRL 

14 

VCNTRL 

15 

VCNSL 

16 

VCNTRL 

17 

VCNTRL 

18 

VCNTRL 

19 

VCNTRL 

20 

VCNTRL 

21 

VCNTRL 

22 

VCNTRL 

23 

VCNTRL 

24 

VCNTRL 

25 

VCNTRL 

26 

VCNTRL 

27 

VCNTRL 

28 

VCNTRL 

29 

VCNTRL 

30 

VCNTRL 

31 

VCNTRL 

32 

VCNTRL 

33 

VCNTRL 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

38 

VCNTRL 

39 

VCNTRL 

40 

VCNTRL 

41 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

46 

VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

5 1 

VCNTRL 

52 

VCNTRL 

53 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

VCNTRL 

58 

GWSGCM  5 


00052 

00053 

00054 

00055 
00055 
00057 
0005B 
00059 
00  060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 
00069 
00070 
0G07  I 

00072 

00073 

00074 

00075 

00076 

00077 
0007B 

00079 

00080 
00081 
00082 

00083 

00084 

00085 

00086 
00087 
00OSB 
00089 
00090 

0009  1 

00092 

00093 

00094 

00095 
00095 


00097 

00098 

00099 
00  100 
00  10  1 
00  102 
00  1 03 
00  1 04 
00  1 05 
00  1 06 
00  107 
00  1 08 
00  1 09 

00  110 
00111 
00112 
00113 
00  114 
00  1 15 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ ICNTRL/ 
/ I CNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL ' 
/ ICNTRL/ 
ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
' ICNTRL/ 
ICNTRL/ 
/ ICNTRL/ 
/ ICNTRL  ' 
/ J CNTRL/ 
/ ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL / 
/ ICNTRL/ 
/ ICNTRL/ 


C 

C LOG 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

INTEGER 


NB 

NO 

NDALT 

NDAV 

NDOUT 

NDPHY 

NDSWF 

NOT 

NHMS 

NHMSE 

NHMSO 

NLA  V 

NLA  YM  1 

NLA YP  1 

NSDAY 

NSEQ 

ICSP53 

NSTEP 

IBLKSIZ 

NYMD 

NYMDE 

NYMDO 

NZ I M I T 

NMLEV 

NDHOG 

IOS  130) 

IOU  MO) 

( I TWIN 
{ ITMAX 
< IPREACC 
( IPRECON 
< IHFLUX 
( IEFLUX 
< X FUSION 
i IRADSWG 
( IRADLWG 
( 1 I CLOUD 
( IUFLUA 
t IVFLUX 

f IOMEGA 
i ID! ABAT 
URADSW 
< I RAOLW 


. IQS<  2U 
.IQS<  3)> 
. IOSC  4)} 
.IQS  I 5 ) ) 
, IOS(  6M 
► I OS  f 7 > ) 
. IQS(  8) ) 
IOS(  9)) 

. IOS<  1 0 ) > 
losmn 
. I QS  < 1 2 > ) 

I QU ( f ) ) 
I QU  f 2 > > 
I QU ( 3)) 

I GUI  4)1 


< ico,  icmi 

ICO,  1 C 1 200 1 


ICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON 

COMMON 

COP/MON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COPilMON 

COMMON 


/ LCNTRL/ 
/ LCNTRL / 
/LCNTRL/ 
/LCNTRL / 
/LCNTRL/ 
/LCNTRL  / 
/LCNTRL/ 
/LCNTRL/ 
/ LCNTRL/ 
/LCNTRL/ 
/LCNTRL/ 
/LCNTRL/ 
'LCNTRL / 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 


LCD 

OALT 

OEEG 

ODAY 

QEND 

QOUT 

QPHY 

QSHF 

SN2FLG 

9RSW 

ORSH 

LQS (301 

LOUf lO) 

< LTMIN 
( LTPAAX 
1 LPREACC 
(L PRECON 
( LHFLUX 
(LEFLUX 


. L QS  ( 1 ) ) 

. LOS<  2 1 ) 
. LQS  < 3)1 
.L05C  4)) 
. i QS ( 5)) 
♦ LQS 1 6)) 


VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
» VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 
VCNTRL  I 
VCNTRL  1 
VCNTRL  1 
VCNTRL  1 


o o 

3s 

o 2 

O xa 
to  r° 

.O  -o 

C £ 

i“  m 
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00116 
00  117 
oo  t ta 

00  119 
00  1 20 
00  121 

00122 
00123 
00  1 24 
00  $ 25 

00  1 26 
00  127 
00128 

00129 

00130 

00131 
G0  132 
00  1 33 
00134 
00  13S 

00136 

00137 
00  f 33 
00  139 
00  140 
0014  1 

00142 

00143 

00144 

00145 
00  1 46 
00  147 

00148 

00149 

00  150 
00151 
00  152 
00  153 

00  154 
00155 


00  156 
00157 
00  158 

00159 

00160 
00  161 
00  162 
00  163 
00  I 64 
00  165 
00166 
00167 
00  168 
00  169 
00  170 
00  17  1 
00172 
00  173 
00  1 74 
00175 
00  176 
00  1 77 
00  178 


EQUIVALENCE 

1 LFUSION 

. LQSf 

7 ) ) 

equivalence 

1 LRADSWG 

. LOSI 

3 J } 

EQUIVALENCE 

( LRADLWG 

A.OS< 

91  ) 

equivalence 

(LICLOUD 

, L QS  ( 

10  ) 1 

equivalence 

< LUFLUX 

. LQS  1 

ini 

equivalence 

< LVFLUX 

-LOSI 

12  > » 

EQUIVALENCE 

( LOMEGA 

» LQU  ( 

f > > 

EQUIVALENCE 

(LDIABAT 

. LQUf 

2 ) 1 

EQUIVALENCE 

(LRADSW 

. LQU  t 

3 ) ) 

EQUIVALENCE 

< LRADLW 

. LOU< 

4 i > 

LOGICAL 

QALT 

LOGICAL 

OBEG 

LOGICAL 

QDAY 

LOGICAL 

QEND 

logical 

QOUT 

LOGICAL 

QPHY 

LOGICAL 

QSHF 

logical 

SN2FLG 

LOGICAL 

QRSW 

LOGICAL 

ORSH 

logical 

LQS 

LOGICAL 

LQU 

LOGICAL 

LTMIW 

LOGICAL 

LTMAX 

LOGICAL 

L PRE ACC 

logical 

LPRECON 

LOGICAL 

LHFLUX 

LOGICAL 

LEFLUX 

LOGICAL 

LFUSION 

logical 

IRADSIVG 

LOGICAL 

LRADLWG 

logical 

LICLOUD 

logical 

LUFLUX 

LOGICAL 

LVFLUX 

LOGICAL 

LOMEGA 

LOGICAL 

LDIABAT 

LOGICAL 

LRADSW 

LOGICAL 

LRADLW 

EQUIVALENCE 

1LC0. LC< 1 

) ) 

LOGICAL 

LCO.  LC  * 200 l 

f^OOEL  PARAME  TERS  SAVED  ON  HISTORY  RECORD 

COMMON  / RCNTRL / ~RCO 
COMMON  /RCNTRL / APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /nCNTRL/  COSD 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYSPY 
COMMON  /RCNTRL/  DEC 
COMMON  "RCNTRL / DECMAX 
COMMON  /RCNTRL/  D1ST 
COMMON  /RCNTRL/  DLAT 
COMMON  /RCNTRL/  DLON 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNU  1 
COMMON  /RCNTRL/  GNU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  OMEGA 2 
COMMON  /RCNTRL/  PI 
COMMON  RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PIMEAN 
COMMON  /RCNTRL/  PSMAK 


VCNTRL 

130 

VCNTRL 

131 

VCNTRL 

132 

VCNTRL 

133 

VCNTRL 

134 

VCNTRL 

135 

VCNTRL 

136 

VCNTRL 

137 

VCNTRL 

138 

VCNTRL 

139 

VCNTRL 

140 

VCNTRL 

141 

VCNTRL 

142 

VCNTRL 

143 

VCNTRL 

144 

VCNTRL 

145 

VCNTRL 

146 

VCNTRL 

147 

VCNTRL 

148 

VCNTRL 

149 

VCNTRL 

150 

VCNTRL 

15  1 

VCNTRL 

152 

VCNTRL 

153 

VCNTRL 

154 

VCNTRL 

155 

VCNTRL 

156 

VCNTRL 

157 

VCNTRL 

158 

VCNTRL 

159 

VCNTRL 

160 

VCNTRL 

161 

VCNTRL 

162 

VCNTRL 

163 

VCNTRL 

164 

VCNTRL 

165 

VCNTRL 

166 

VCNTRL 

167 

VCNTRL 

T6B 

VCNTRL 

169 

VCNTRL 

1 70 

VCNTRL 

171 

VCNTRL 

172 

VCNTRL 

*73 

VCNTRL 

174 

VCNTRL 

175 

VCNTRL 

175 

VCNTRL 

177 

VCNTRL 

178 

VCNTRL 

179 

VCNTRL 

180 

VCNTRL 

181 

VCNTRL 

182 

VCNTRL 

183 

VCNTRL 

184 

VCNTRL 

185 

VCNTRL 

186 

VCNTRL 

187 

VCNTRL 

188 

VCNTRL 

189 

VCNTRL 

190 

VCNTRL 

191 

VCNTRL 

192 

VCNTRL 

*93 

VCNTRL 

194 

VCNTRL 

tss 

VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCNTRL  199 
VCNTRL  200 


o o 
•n  si 
•a  © 

R s 

so 


O *0 

si 

£ si 
ET  ro 
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00179 

COMMON 

/RCNTRL/ 

PSMIN 

00180 

COMMON 

/RCNTRL/ 

PTOP 

00  1S1 

COMMON 

/RCNTRL/ 

RADE 

00132 

COMMON 

/RCNTRL/ 

RGAS 

00183 

COMMON 

/RCNTRL/ 

ROCP 

00184 

COMMON 

/RCNTRL/ 

RSOIST 

00185 

COMMON 

/RCNTRL/ 

SDAY 

00186 

COMMON 

/RCNTRL/ 

SEASON 

00187 

COMMON 

/RCNTRL / 

SIGE 

1 25  > 

00  188 

COMMON 

/RCNTRL/ 

SIND 

00  189 

COMMON 

/RCNTRL/ 

SOLS 

00  190 

COMMON 

/RCNTRL/ 

TSTD 

0019  1 

COMMON 

/RCNTRL/ 

PLEVS 

t 25  > 

00  192 

COMMON 

/RCNTRL/ 

HEATW 

00193 

COMMON 

/RCNTRL/ 

HEATI 

00  194 

COMMON 

/RCNTRL/ 

EPS 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

00  196 

COMMON 

/RCNTRL/ 

CALTOJ 

00  1 97 

Q 

COMMON 

/RCNTRL/ 

PZERO 

00  198 

EQUIVALENCE 

( RCO , RC ( 1 ) ) 

00199 

REAL 

RCO , RC (200 

c 

C INTEGER  MODEL  CONSTANTS 


00200 

C 

COMMON 

/I DP ARM/ 

S-B  S = = 

I JUMP 

146) 

0020  1 

COMMON 

/I  DP ARM/ 

IDSP02 

00202 

COMMON 

/ IDPARM/ 

INDEX 

172  ) 

00203 

COMMON 

/ I DP ARM/ 

I ROD 

00204 

COMMON 

/IDPARM/ 

JC 

146) 

00205 

COMMON 

/IDPARM/ 

JE 

(2) 

00206 

COMMON 

/IDPARM/ 

JP 

12.2) 

00207 

COMMON 

/IDPARM/ 

KSTEP 

00208 

COMMON 

/IDPARM/ 

MJ 

(46  ) 

00209 

COMMON 

/IDPARM/ 

NHMS  f 

002  10 

p 

COMMON 

/IDPARM/ 

NYMD  t 

V 

C 

LOGICAL  MODEL  CONSTANTS 

C 

:r:;;:ss35 

0021  1 

COMMON 

/LDPARM/ 

FILTER 

146) 

00212 

COMMON 

/ LDPARM/ 

ITAPE 

00213 

r> 

COMMON 

/LDPARM/ 

START 

00214 

U 

LOGICAL 

FILTER 

00215 

LOGICAL 

ITAPE 

002  16 

LOGICAL 

START 

C 

C REAL  MODEL  CONSTANTS 


00217 

COMMON 

/RDPARM/ 

ADLDP 

00218 

COMMON 

/ RDPARM/ 

CON! 

00219 

COMMON 

/RDPARM/ 

CON  IDT 

00220 

COMMON 

/RDPARM/ 

CON  2 

00221 

COMMON 

/RDPARM/ 

CON2DT 

00222 

COMMON 

/RDPARM/ 

CONS 

00223 

COMMON 

/RDPARM/ 

CON3DT 

00224 

COMMON 

/RDPARM/ 

C0N4 

00225 

COMMON 

/RDPARM/ 

C0N40T 

00226 

COMMON 

/RDPARM/ 

CONS 

00227 

COMMON 

/RDPARM/ 

COSL 

(46) 

00228 

COMMON 

/RDPARM/ 

COSLON 

(72) 

00  229 

COMMON 

/RDPARM/ 

CPD2 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

00231 

COMMON 

/RDPARM/ 

DXYP 

(46) 

00232 

COMMON 

/RDPARM/ 

DYP 

(46) 

00233 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

007.34 

COMMON 

/RDPARM/ 

F IDT 

00235 

COMMON 

/RDPARM/ 

F2DT 

00236 

COMMON 

/RDPARM/ 

H1DT 

00237 

COMMON 

/RDPARM/ 

H2DT 

00238 

COMMON 

/RDPARM/ 

PKSTD 

VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 
VCNTRL  207 
VCNTRL  208 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/ RDPARM/ 
* RDPARM/ 
'RDPARM/ 
/ RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/ROPARM/ 
/RDPARM/ 


PKTOP 

RLAT  (46) 
RLATD  (46) 
ROCPOT 
ROCPP1 
SGNP  f 2 | 

SINL  I 46 ' 

SIWLON  (72) 
THSTD 
THST02 
WSAVE  ( 159 
DSIG  (9) 
SIG  (9) 

DSIGINV  (9) 


COMDECK  VOANDQT  RESOLUTION  VALUES 


IM 

NLA  y 
JM*  l 
NLA V* 1 1 
IM  *NL A V*  1 1 
JM  '2*  I 


= 72 
= 9 
= 46 
= 99 
= 7 128 
= 23 


_ moo el  prognostic  fields  * needed  in  compo) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

dimension 

DIMENSION 
DIMENSION 
D I MENS  I ON 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

dimension 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

equivalence 

EQUIVALENCE 

equivalence 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 


/QAMOOT,  Q^ROG '72.9.11,48) 

PHIS  ( *M  28  d I 

SMTH  (7129.23) 

ALBEDO  (7128,1) 

GT  (7129.1) 

GW  17128.1) 

T3  (7128.1) 

SHS  (7  128,  i) 

P * 72 . 99 . i t 

U (72.9.11.1) 

V (72.9.  11,1) 

T (72.9.11.1) 

SH  (72.9,11.1) 

PHI  (72  9.11.1) 


( OPROG ( 1 . 
(OPROGd. 

( QPROG ( 1 . : 
(QPROGd.  - 
(QPROGd.  5 
( QPROG ( 1 , ( 
(QPROGd.  ; 
( OPROG ( 1 . i 

< QPROGf 1.1 
( QPROG ( l.l, 
( QPROG ( Id, 
( QPROG  ( Id, 
( OPROG  ( Id, 


, 1 ) .PHIS  1 1 , 
, I ) .SMTH  ( 1 , 
1 ) , ALBEDO' 1 , 
1 > .GT  < 1 , 

1 ) . GW  ( 1 . 

D.TS  (1, 
1 ) , SHS  t 1 , 
11 , P ft. 


2d  I ,U 
4 ,1  > .V 
6 d ) , T 
8d).SH 


( 

( 

( 1 

( 1 

HCSLESS.?!:???!:-!????!:-?!!!?!??5110  inot  needed  in  comp< 


COMMON 

DIMENSION 

EQUIVALENCE 


/ 0 ANDOT / QSDI AG (72  .IS  46) 

I OSD I AG ( 72  . 15,46) 

* Q3DIAG. I OSDI AG) 

/ OANDQT / QUO  I AG  * 72 , 9 , 5.46) 


PHYSICS  PARAMETERS  AND  CONSTANTS 


VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
'CNTRl  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  28 1 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VOANDQT  2 
VQANDOT  3 
VOANDQT  4 
VOANDQT  5 
VOANDQT  6 
VOANDQT  7 
VQANDOT  8 
VOANDQT  9 
VQANDOT  10 
VQANDOT  11 
VQANDOT  12 
VOANDOT  13 
VQANDOT  14 
"QANDQT  IS 
VOANDOT  16 
VQANDOT  17 
VOANDQT  IB 
VQANDQT  19 
VOANDQT  20 
VOANDOT  21 
VQANDQT  22 
VOANDOT  23 
VOANDQT  24 
VOANDQT  25 
VQANDOT  26 
VOANDQT  27 
VQANDOT  28 
VOANDQT  29 
VOANDOT  30 
VQANDOT  31 
VQANDOT  32 
VQANDQT  33 
VOANDOT  34 
VOANDOT  35 
VOANDQT  36 
VQANDOT  37 
VOANDOT  38 
VQANDOT  39 
VOANDOT  40 
VQANDQT  41 
VOANDQT  42 
VQANDOT  43 
VOANDOT  44 
VQANDQT  45 
VQANDQT  46 
VOANDQT  47 
VOANDQT  48 
VOANDOT  49 
VOANDOT  50 
VOANDOT  Si 
VOANDOT  52 
VOANDQT  53 
VQANDOT  54 
VOANDOT  55 
VCNTRLP  2 
VCNTRLP  3 


I 

5 

i 

? 

j 

* 

i 

! 

} 


\ H 


00284 

COMMON 

/CNTRLP/ 

CDFR 

00285 

COMMON 

/ CNTRLP/ 

CDXL 

00286 

COMMON 

/CNTRLP/ 

COXO 

00287 

COMMON 

/CNTRLP/ 

CLH 

00288 

COMMON 

/CNTRLP/ 

COE  (9) 

00289 

COMMON 

/CNTRLP/ 

COEF 

00290 

COMMON 

/CNTRLP/ 

COEFS 

0029  1 

COMMON 

/CNTRLP/ 

COSROT 

00292 

COMMON 

/CNTRLP/ 

CPP 

00293 

COMMON 

/CNTRLP/ 

CTIO 

00294 

COMMON 

/CNTRLP/ 

CUMDAY 

00295 

COMMON 

/CNTRLP/ 

CUMRAT 

00296 

COMMON 

/CNTRLP/ 

CIO 

00297 

COMMON 

/CNTRLP/ 

C 100 

00298 

COMMON 

/CNTRLP/ 

C40 

00299 

COMMON 

/CNTRLP/ 

DELTA 

00300 

COMMON 

/CNTRLP / 

DTC3 

0030  1 

COMMON 

/CNTRLP/ 

DTOUT 

00302 

COMMON 

/CNTRLP/ 

ED 

00303 

COMMON 

/CNTRLP/ 

EDNM 

0 03  0 4 

COMMON 

/CNTRLP/ 

FCOEF 

00305 

COMMON 

/CNTRLP/ 

FMU 

00306 

COMMON 

/CNTRLP/ 

FtV'iT 

00307 

COMMON 

/CNTRLP/ 

GAMFAC 

00308 

COMMON 

/CNTRLP/ 

GTCPO 

00309 

COMMON 

/CNTRLP/ 

MICE 

003  1 0 

COMMON 

/CNTRLP/ 

NDTC3 

003  1 1 

COMMON 

/CNTRLP/ 

nflw 

00312 

COMMON 

/CNTRLP/ 

PIM 

00313 

COMMON 

/CNTRLP  t 

QHCG 

00314 

COMMON 

/CNTRLP/ 

SHLTOP 

00315 

COMMON 

/CNTRLP/ 

S1NROT 

00316 

COMMON 

/CNTRLP/ 

SNOWN 

003  1 7 

COMMON 

/CNTRLP/ 

SNOWS 

003  18 

COMMON 

/CNTRLP/ 

STBO 

00319 

COMMON 

/CNTRLP/ 

STERP 1 

00320 

COMMON 

- CNTRLP/ 

STERP  2 

0032  1 

COMMON 

/CNTRLP/ 

TICE 

00322 

COMMON 

/CNTRLP/ 

TLTOP 

00323 

COMMON 

/CNTRLP/ 

XDAY 

00324 

COMMON 

/CNTRLP / 

ZLNCO 

00325 

C 

LOGICAL 

QHOG 

C 

C 

MONTHLY  DATA  FIELDS 

00326 

COMMON 

8 

8 

/MNTHLY/ 

T0P0G2 ( 72 .45.2). 
GW2< 72,45 . 2 ) . 
ALBD02 (72. 46.2) 

00327 

DIMENSION  TOPOG1 1 72 . 46 • , 
8 GW  T (72,46)  . 

8 ALBDO 1 (72,46) 

00328 

EQUIVALENCE  t T0P0G1  (1.1), TOPOG2*  1 

00329 

EQUIVALENCE  (GVM  (1.1)  .GW2(  1 . 1 . 1 ) > 

00330 

EQUIVALENCE  ( ALBDO 1 (1,1), ALBD02  * 1 

C 

c 

c 

c 

c 

c 

c 

c 

COMDECK  VAMAM  RESOLUTION  VALUES 

IM  -72 

NLAY  =9 

JMM  =46 

IM'NLAV  =648 

LPSPACE  =7 

c 

C DYNAMIC  SPACE  VARIABLES  FOR  SUBROUTINE  CONHTR 


00331 

C 

COMMON  /SPACE/ 

QSH( 72 ,46 . 23 ) 

00332 

HALF  PRECISION 

QSH 

00323 

COMMON  /SPACE/ 

QUH( 72 ,9.46.10) 

00334 

HALF  FPEC1SION 

QUH 

00335 

COMMON  /SPACE/ 

CM  200  > 

00336 

CHARACTER'S 

CA 

• 


VCNTRLP 

4 

VCNTRLP 

5 

VCNTRLP 

6 

VCNTRLP 

7 

VCNTRLP 

8 

VCNTRLP 

9 

VCNTRLP 

VCNTRLP 

10 
1 1 

VCNTRLP 

12 

VCNTRLP 

13 

VCNTRLP 

14 

VCNTRLP 

15 

VCNTRLP 

16 

VCNTRLP 

17 

VCNTRLP 

IB 

VCNTRLP 

19 

VCNTRLP 

20 

VCNTRLP 

21 

VCNTRLP 

22 

VCNTRLP 

23 

VCNTRLP 

24 

VCNTRLP 

25 

VCNTRLP 

26 

VCNTRLP 

27 

VCNTRLP 

ZS 

VCNTRLP 

29 

VCNTRLP 

30 

VCNTRLP 

31 

VCNTRLP 

32 

VCNTRLP 

VCNTRLP 

33 

34 

o o 
*n  g 

VCNTRLP 

35 

VCNTRLP 

36 

•o  § 
02 

VCNTRLP 

37 

VCNTRLP 

38 

VCNTRLP 

39 

Q 

VCNTRLP 

40 

aJ  i- 

VCNTRLP 

4 1 

VCNTRLP 

42 

iO  T3 

VCNTRLP 

43 

C > 

VCNTRLP 

44 

£& 

VCNTRLP 

45 

VCNTRLP 

46 

VMNTHLY 

VMNTMLY 

2 

3 

4 w 

VMNTHLY 

4 

VMN I HL  V 

5 

VMNTHLY 

6 

VMNTHLY 

7 

VMNTHLY 

8 

VMNTHLY 

9 

VMNTHLY 

10 

VMNTHLY 

1 1 

VMNTHLY 

12 

VAMAM 

2 

VAMAT4 

3 

VAMAM 

4 

VAMAM 

5 

VAMAM 

6 

VAMAM 

7 

VAMAM 

8 

VAMAM 

9 

VAMAM 

10 

VAMAM 

1 1 

VAMAM 

12 

VAMAM 

13 

VAMAM 

14 

VAMAM 

15 

VAMAM 

16 

VAMAM 

17 

VAMAM 

18 

GWSGCM  10 


00337 

COMMON  /SPACE/ 

00338 

HALF  PRECISION 

00339 

COMMON  /SPACE/ 

00340 

HALF  PRECISION 

0034  1 

COMMON  /SPACE/ 

00342 

HALF  PRECISION 

00343 

COMMON  /SPACE/ 

00344 

HALF  PRECISION 

00345 

REAL 

00345 

EQUIVALENCE 

00347 

C 

C 

+ ♦ * 
RADIATION 

AND  SOUR< 

COMMON 

/RADCOM/ 

00343 

COMMON 

/radcom/ 

00349 

COMMON 

/RADCOM/ 

00350 

COMMON 

/RADCOM/ 

0035  1 

COMMON 

/RADCOM/ 

00352 

COMMON 

/RADCOM/ 

00353 

COMMON 

/RADCOM/ 

00354 

COMMON 

/RADCOM/ 

00355 

COMMON 

/RADCOM/ 

00356 

COMMON 

/RADCOM/ 

00357 

COMMON 

/RADCOM/ 

00358 

COMMON 

/RADCOM/ 

00359 

COMMON 

'RADCOM/ 

00350 

COMMON 

/RADCOM/ 

00351 

COMMON 

/RADCOM/ 

00362 

COMMON 

'RADCOM/ 

00363 

COMMON 

'RADCOM/ 

00354 

COMMON 

/ RADCOM/ 

00365 

COMMON 

/RADCOM/ 

00356 

COMMON 

/RADCOM/ 

00367 

COMMON 

/RADCOM/ 

00368 

COMMON 

/RADCOM/ 

00369 

COMMON 

RADCOM/ 

00370 

COMMON 

/RADCOM/ 

0037  1 

COMMON 

/RADCOM/ 

00372 

COMMON 

/RADCOM/ 

00373 

COMMON 

/RADCOM/ 

00374 

COMMON 

/RADCOM/ 

00375 

CO"**OM 

/ RAOCOM/ 

00376 

COMMON 

/RADCOM/ 

00377 

COMMON 

/RADCOM/ 

00378 

00379 

00380 

C 

C 

LOGICAL 

COMMON 

CHARACTERS 

00381 

LOGICAL 

0033  2 


003S3 


0033d 


00385 

0038G 


I A ( 200) 

IA 

LA ( 200  > 

LA 

RA (200) 

RA 

HWORK ( 648 ) 

HWORK 

SP AK X X ( 5 1 2 , 128, 7 * 
( OSH  . SPA  XXX ) 


:e  term  fields 

AS ( 72 , 9 ) , RE ( 72 .10) 

PL  ( 72 . 9)  , PLE i 72 . 10) 
PLK<72,9> . PLKE< 19) 

TL ( 72 , 9 ) , TLE ( 72 , 10) 

TGI  72 ) . TH 17  2,9) 

SHL (72,9) , SHLE (72. 10) 

SHG( 72 ) , CLOUD f 72 .12) 

SHSAT (72,9) , GAM(72t9) 

RH( 72.9) 


SSSE ( 72 , 10) 
HHEI72. 10) 

CVQI72, 9 > 


. SWIL< 72.91 
OZALE (72.10) 
SRSI9).  STN( 9 ) 


SSS (72.9) 

HH (72,9) . 

HHS (72,9) 

CVT{ 72 . 9 ) 

CADE ( 9 ) 

SWALE (72 .10) 

AL ( 72 , JO  > 

TAUL (72, 1 0 l 
T0PA9S 1 72 ) 

RN(9>,  TN  < 9 ) 

TCOND ( 9 ) , TPENE (9) 

TLOWL.TMIDL,  NLAYOZ 
F K ( 5 ) , XK  r 5 ) , NFK 
OL JAN  f 19) . OLAPR ( 19) 

0CM22 ( 23 ) ► OCM30 (231 
PROCMt 23  I , OCMX X ( 23  ) 

CZH ( 72 ) . WE  T ( 7 2 ) , EVAP.  PREP172) 
COSZ ( 72 ) , SO,  PADTPM 172).  CXL 
SGI  72 ) . SP ( 72 ) 

RSURF (72),  RCLOUD (72).  JALB 
LAND( 72 ) , OCEAN ( 72 ) . ICE172) 

SNOW (72),  M I X W I ( 7 2 ) . FROST (72) 
LAND.  OCEAN,  ICE.  SNOW.  MIXWI, 


0LJUL119),  OLOC T < 1 9 ) 
0CM38(23),  0CM46'23) 
NOZ.  TOTOZ  ( 4 ) , CDATEff?) 

WI  f 7 2 » 


FROST 


C 

c 

c 

c 

c 

c 


WORK  1(512.  128.2) 

CUTOFF 
QTIMER 

MODULO  ARITHMETIC  COUNTER 

NXTMOD(N.M)  c MOD(nTm)  * 1 
HWMMSS  EVENT  TIMESTEP  COUNTER 
MPERf'N)  - M0DHM5(NHMS  .N)  v NOT 


C 

C********«.*i*****«>*  **-♦**♦**«, 

C # * ' 

C DEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION  00.001  INPUT  IOO 

5. CYBER  VECTOR  VERSION  00 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSTSSSSESSSS 

c 
c 

CALL  Q50PEN  ( ' LFN=  r , ' OSAVE ' , * IMP  * ) 

CALL  QSMAPIN  < ' LFN= ' , ' OSA VE 4 , ' V8 A s ' . I JUMP , * LEN= ' , 1 1 5 2 , ' L P AGE ' > 


MAP  COMMON  BLOCKS  TO  EXTERNAL  FILES 


VAMAM 

19 

VAMAM 

20 

VAMAM 

21 

VAMAM 

22 

VAMAM 

23 

VAMAM 

24 

VAMAM 

25 

VAMAM 

26 

VAMAM 

27 

VAMAM 

28 

VAMAM 

29 

VRAOCOM 

2 

VRADCOM 

3 

VRADCOM 

4 

VRAOCOM 

5 

VRADCOM 

6 

VRADCOM 

7 

VRADCOM 

8 

VRADCOM 

9 

VRADCOM 

10 

VRADCOM 

1 1 

VRADCOM 

12 

VRADCOM 

13 

VRADCOM 

14 

VRADCOM 

15 

VRADCOM 

16 

VRADCOM 

17 

VRADCOM 

18 

VRADCOM 

19 

VRADCOM 

20 

VRADCOM 

21 

VRADCOM 

22 

VRADCOM 

23 

VRADCOM 

24 

VP A DCOM 

25 

VRADCOM 

26 

VRADCOM 

27 

VRADCOM 

28 

VRADCOM 

29 

VRADCOM 

30 

VRADCOM 

31 

VRADCOM 

32 

VRADCOM 

33 

VRADCOM 

34 

VRADCOM 

35 

VRADCOM 

36 

VGV/SGCM 

28 

VGV/SGCM 

29 

VGVJSGCM 

30 

VGV/SGCM 

31 

vgv/sgcm 

32 

VGVJSGCM 

33 

vgv/sgcm 

34 

vgv/sgcm 

35 

VGV'SGCM 

36 

VGV/SGCM 

37 

VGVJSGCM 

38 

VGVJSGCM 

39 

VGV/SGCM 

40 

•VGWSGCM 

41 

VGVJSGCM 

42 

V5EGDEB 

2 

VBEGDEB 

3 

V6EGDE8 

4 

veEGDEB 

5 

SVBEGDEB 

6 

VGVJSGCM 

44 

VGV/SGCM 

45 

VGV/SGCM 

46 

VGVJSGCM  47 
VGVJSGCM  4 8 


53 

s: 

CO 

o 

o 

3: 


ORIGINAL  PME  2§ 
OF  POOR  QUALITY 


003B7 

003B3 

00389 

00390 

0039  r 

00392 

00393 

00394 


00395 

00396 

00397 
00393 

00399 

00400 

00401 

00402 

00403 

00404 


00405 

00406 


00407 

00408 

00409 
004  10 
0041  1 
004  I 2 
004  13 
034  14 
004  15 


004  16 
004  1 7 
004  18 


004ig 

00420 

00421 

00422 

00423 


C 

C 

C 


C 

C 

C 


C 

C 

C 

C 

C 

C 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


CALL  Q50PEN  t ' LFNi‘ 
CALL  Q5MAPIN  < ' UFN  = 
CALL  Q50PEN  ( ' LFN= ' 
CALL  05MAPIN  ( 'LFN= 
CALL  Q50PEN ( ' LFN-  ' , 
CALL  05MA P I N 1 ' L F N = ' 
CALL  05OPEN t ' L F N= ' , 
CALL  05MAPJ N( ' LFN= ' 


' MNTHL  V ' , ' IMP  ' ) 

, ' NINTHLY ' . ‘VSA  = ' .T0P0G1  , 'LEN='  , 128,  ' LPAGE  ' ) 
* QWORK  ' , ' IMP ' ) 

, ' OWORK  ' , ' VBA-'  , WORK  1 , ' LEN*  ' , 256  f 'LPAGE  ’ t 
SPACE ' , ' I WP ' ) 

'SPACE  . ' VBA  = ' , SPA  X X X , ' LEN= ' .896,  'LPAGE'  1 
XCNTR ' , ' IMP ' ) 

' #CMTR ' , ' VBA  9 ' , AS , 'LENS*  . 128,  ' LPAGE ‘ > 


GET  INI T I AL/RESTAR T CONDITIONS  AND  SET  CONSTANTS 

OT I ME  R - . TRUE . ~ 

CALL  ZE ITBEGf 8HGWSGCM  > 

CALL  CLOCKS  UTM) 

LTM  = ITM 

CALL  ZE I T8EG ( 8H INPUT  J 

CALL  INPUT  (8903) 

CALL  ZE I TEND 
CALL  DATE  (ADATE) 

CALL  TIME  (AT IME ) 

V/RI  TE  (3.6908  > ATI  ME  , ADA  TE 


READ  CUT-OFF  TIME  FROM  UNIT  60 

READ ( 60 , 6905 ) EXPNO , CUTOFF 
V/RI  TE  « 3 . 6907)  CUTOFF 


-9?^  I 91  execute  steps  in  main  loop  in  the  following  order 

1.  GMP  AND  CLIMATE  INITIALIZATION  = = ""t:  = : = ss:;rIs:.t5;,;: 

2.  ANALYSIS  CYCLE  IF  NECESSARY 

3.  HISTORY/RESTART  RECORD  WRITE 

4.  TIMINGS  AND  CUT-OFF  CHECK 

5.  PHYSICS  TERMS 


IF  INSTEP . LT. MATIN  .OR. 

8 ( MDALT . NE . 0 .AND.  MPE R 1 NDAL T > . LT . MA T I N ) > 

QBEG  = NSTEP.EO.O 
QPHY  = NDPHY.NE.O  .AND.  PJPER  < NDPHY  ) . EQ  . 0 
JJSHF  ” NDSHF.NE.O  -AND.  MATSUN+MPER (NDSHF ) . LE . 1 


MATSNK 


QALT  = NDALT.NE.O 
OOUT  = NDOUT.NE.O 
NSDAY  s MODHM5 ( NHM5 , 2400001 
ODAY  = NSDAY/NDT . EO . 0 

IF  ( OBEG ) GO  TO  40 


AND.  MPER  < NOAL  T J .EO.O 
.AND.  MPER (NDOUT ) . EO . 0 


1 


WORMALOROER  OF  EXECUTION  OF  STEPS  IN  MAIN  LOOP 

1.  HYDRODYNAMICS  INTEGRATION  * = 

2.  PHYSICS  TERMS 

3.  SHAPIRO  FILTER 

4.  GMP  AND  CLIMATE  UPDATE 

5.  ANALYSIS  CYCLE  IF  NECESSARY 

6.  HISTORY/RESTART  RECORD  WRITE 

7.  TILINGS  AND  CUT-OFF  CHECK 

HYDRODYNAMICS 

10  [ CONTINUE 

NSrTEP  = NSTEP  * 1 
NHMS  = INCHMS(NHMS.NDT) 

DETERMINE  TYPE  OF  TIME-STEP 

MATSUN=0  FOR  LEAPFROG  STEP 

MATSU(J=1  FOR  MATSUNO  STEP 
NTH  r NXTMOD(NSTEP,NSEO) 

MATSUN  = MATSNX 
MATSNX  = MLF(NTH) 

IF1 (NSTEP.LT. MATIN  .OR. 

8opc'ND;sJ-J-^|  0 -AND.  MPER<MOALT»  .LT.MATINM  MATSNX  = I 
vBcG  - NSTEP.EO.O 


VGWSGCM  49 
VGWSGCM  50 
VGWSGCM  SI 
VGWSGCM  52 
VGWSGCM  53 
VGWSGCM  54 
VGWSGCM  55 
VGWSGCM  56 
VGWSGCM  57 
VGV/SGCM  58 
VGWSGCM  59 
VGWSGCM  60 
VGWSGCM  61 
VGWSGCM  62 
VGWSGCM  63 
VGV/SGCM  64 
VGVJSGCM  65 
VGWSGCM  66 
VGWSGCM  67 
VGWSGCM  68 
VGWSGCM  69 
VGWSGCM  70 
VGWSGCM  71 
VGWSGCM  72 
VGWSGCM  73 
VGWSGCM  74 
VGWSGCM  75 
VGWSGCM  76 
VGWSGCM  77 
VGWSGCM  70 
VGWSGCM  79 
VGWSGCM  SO 
VGWSGCM  81 
VGWSGCM  82 
VGWSGCM  83 
VGWSGCM  84 
VGWSGCM  85 
VGWSGCM  86 
VGWSGCM  87 
VGWSGCM  B8 
VGWSGCM  89 
VGWSGCM  90 
VGV/SGCM  91 
VGWSGCM  92 
VGWSGCM  93 
•VGWSGCM  94 
VGWSGCM  95 
VGWSGCM  96 
VGWSGCM  97 
VGWSGCM  98 
VGWSGCM  99 
VGWSGCM 100 
VGWSGCM 1 O 1 
VGWSGCM 102 
VGWSGCM 103 
VGWSGCM 104 
VGV/SGCM  1 05 
VGV/SGCM  106 
VGV/SGCM  107 
VGV/SGCM  108 
VGWSGCM 109 
VGWSGCM 1 1 0 
VGV/SGCM  1 1 1 
VGV/SGCM  1 12 
VGWSGCM 1 13 
VGV/SGCM  1 14 
VGWSGCM1 15 
VGWSGCM 1 1 6 
VGWSGCM 1 1 7 
VGV/SGCM  IIS 
VGWSGCM 1 19 


O 

n 


to 


O Q 

-n  g 

TJ  Q 
02 
O 3P 

zo  p 

3a 


00424 

00425 

00426 

00427 

00428 

00429 

00430 
0043  1 


00432 

00433 

00434 

00435 

00436 

00437 

00438 


00439 

00440 
0044  1 

00442 

00443 

00444 

00445 


00446 

00447 

00448 

00449 

00450 
0045  t 

00452 

00453 

00454 

00455 

00456 

00457 
00453 
00459 
004  SO 
0045  1 

00452 

00453 
00464 
00455 

00466 

00467 

00468 

00469 

00470 
0047  1 

00472 

00473 


00474 

00475 


00476 

00477 

00478 

00479 

00480 


C 

c 

c 


c 

c 

c 


~ * 5JS  * 0 AND*  MPER  f NDPHY  ) . E0 . 0 

QSHF  s:  NDSHF . NE . 0 .AND.  MA  TSUN  * MPER  1 NDSHF  ) LF  1 
OALT  = NDALT.NE.O  .AND.  MPER ( NOALT > . EQ  0 
r NDOUT . NE  . 0 .AND.  WPER1NOOUT1  FO  n 
NSDAV  = MOOHMS 1 NHMS .2400001*  NO OUT  . EQ . 0 
ODAY  = fJSDAY/NDT  . EO.O 
DT  = 2 * NDT 

IP  < MA  TSUN  . EO  . O ) GO  TO  1 ** 

PREDICTOR  step  only 

DT  = NOT 

M3  * NXTWIOD  ( NS  r 2 ) 

ND  = WXTM0D1ND.2) 

KSTEP  r 0 

CALL  ZE I TBEGC  8HC0MP0  ) 

CALL  COMPO  (6912* 

CALL  ZE I TEND 

?2I?-^?~-?.qECTCIR  STGP  OR  LEAPFROG  STEP 

*5  CONTINUE 

N3  = NXTMOD  f NB . 2 ) 

ND  ^ M X TMOD  f ND  , 2 ) 

KSTEP  = 1 * MATSNX 
CALL  ZE I TBEG ( 8HC0MP0  » 

CAtL  COMPO  <8912 > 

CALL  ZE I TEND 

PHYSICS 

20  CONTINUE 

f .NOT.OPHY1  GO  to  30 

^CArr^fTB^K^  ",ELDS  IF  NE,fT  STEP  IS 

CALL  CONSTA 
CALL  ZE I TEND 

DO  25  J-JSP.dNP 
IF  < MA  TSNX . NE  . 0 ) GO  TO  2 1 
CALL  ZEI TBEG<8HDIFF0  J 
CALL  DlFFOfND.NB.dl 
CALL  ZEI TEND 

2 1 IP  t MJ < d ) . EO . 0 > GO  TO  2 2 
CALL  ZE I TBEG f BHPOLOUT  > 

CALL  POLOUT  ( NB  . Wld  f d ) ) 

CALL  ZEI TEND 
72  CONTINUE 

CALL  ZE  I TBEG  f 8HC0MP3  1 
CALL  COWP3  C J > 

CALL  ZEI TEND 

IF  'fcTJ f 0) . EQ . 0 t GO  TO  23 
CALL  ZEI TBEGf 8HPOL INP  1 
CALL  POLINP(NB.Mdfd) > 

CALL  ZEI TEND 

23  IF  ( MATSNX  . NE  . 0 ) GO  TO  2 5 
CALL  ZEITBEGfSHADDO  ) 

CALL  ADDO (ND .NB . d ) 

CALL  ZEI TEND 
25  CONTINUE 

IFfQBEG)  CALL  INITSD 

SHAPIRO  FILTER 

30  CONTINUE 

_ . . IF  f QBEG 1 GO  TO  10 

FILTER  ONCE  FOR  MATSUNO 
FILTER  TWICE  FOR  LEAPFROG 

IF  (.N0T.QSHF1  go  TO  35 
CALL  ZEITBEG<8HSMSHAP  ) 

CALL  SMSHAP 
CALL  ZEI TEND 
35  CONTINUE 


VGWSGCMl 20 
VGWSGCM 1 2 1 
VGWSGCMl 22 
VGWSGCM 123 
VGV;SGCM124 
VGWSGCM 125 
VGWSGCM! 26 
VGWSGCM I 27 
VGWSGCM 128 
VGWSGCM 1 29 
VGWSGCM I 30 
VGWSGCM 13 1 
VGWSGCM 1 32 
VGWSGCM 133 
VGWSGCM I 34 
VGWSGCM  135 
VGWSGCM 136 
VGWSGCM 137 
VGWSGCM 1 38 
VGWSGCM 139 
VGWSGCM l 40 
VGWSGCM 1 4 1 
VGWSGCM 142 
VGWSGCM 143 
VGWSGCM 144 
VGWSGCM 145 
VGWSGCM 146 
VGWSGCM 147 
VGVSGCM14B 
VGWSGCM 149 
VGWSGCM I 50 
VGWSGCM 15 1 
VGWSGCM 152 
VGWSGCM 153 
VGWSGCM 154 
VGWSGCM 155 
VGWSGCM 1 56 
VGWSGCM 157 
VGWSGCM 158 
VGWSGCM 159 
VGWSGCM 160 
VGWSGCM 161 
VGWSGCM 162 
VGWSGCM 163 
VGWSGCM 164 
VGWSGCM 165 
VGWSGCM 166 
VGWSGCM 167 
VGWSGCM 168 
VGWSGCM 169 
VGWSGCM 170 
VGWSGCM 171 
VGWSGCM 1 72 
VGWSGCM 173 
VGWSGCM 174 
VGWSGCM 175 
VGWSGCM 1 76 
VGWSGCM! 77 
VGWSGCM I 78 
VGWSGCM 179 
VGWSGCM 180 
VGWSGCM 181 
VGWSGCM 1 82 
VGWSGCM 1 83 
VGWSGCM 194 
VGWSGCM 185 
VGWSGCM 185 
VGWSGCM 187 
VGWSGCM 188 
VGWSGCM 189 
VGWSGCM 1 90 


O 

33 

03 

o 

o 

s 


LO 
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00481 

00482 
004S3 

00484 

00485 

00483 

00487 

00488 


00489 

00490 
0049  1 

00492 

00493 

00494 

00495 

00496 

00497 

00498 

00499 

00500 


0050  1 

00502 

00503 

00504 

00505 

00506 

00507 
005  03 

00509 

00510 

0051  1 
005  1 2 
005  1 3 


00514 
005  15 
005  16 
005  17 
00518 
005  19 
00520 
0052  1 

00522 

00523 


00524 

00525 

00526 

00527 

00528 


C 

C 


C 

C 

C 


C 

C 

C 


C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


GMP  AND  CLIMATE  TERMS 


40  CONTINUE 

IF  f OBEG  .OR.  ODAY)  CALL  DAILY  (3908) 

OEND  - N YMD  . GT  . N YMDE  .OR.  < N YMD  . EO  . N YMDE  . AND  . NHMS  . GE  . NHMSE  1 
ORSW  = NDRSW.NE.O  . AND . MPE R ( NDRSW ) . E 0 . 0 
QRSH-  , FALSE, 

IF ( NKRSH. EO. 0 ) GO  TO  41 

QRSH  = (NKRSH.NE.O  .AND.  f OBEG . OR . OEND ) ) .OR. 

1 ( NKRSH . GT . O .AND.  < ODAY . AND . MOD < MOD YMD ( NYMD ) . NKRSH >. E 0 . 0 1 > 

41  QRSH  = ORSH  .AND.  QOUT 


ANALYSIS  CYCLE 

BO  CONTINUE 

IF  (.NOT.QALT)  GO  TO  60 
IF(OBEG)  CALL  INITSD 
CALL  ZE I TBEG < 8HA LTE R2  ) 

CALL  ALTER2 
CALL  ZE l TEND 

IF  (MATIN.LT. I ) GO  TO  60 
DO  55  J * JSP , JNP 
CALL  ZE I TBEG ( 8HCOP  YO  > 

CALL  COP  YO  (ND.NB.J) 

CALL  ZE I TEND 
55  CONTINUE 


LOGS  AND/OR  RESTART  RECORD  WRITE 


60 


CONTINUE 
IF  (.NOT. (ORSW 
IF t OOUT . AND. LOMEGA ) CALL 
I F f OOUT . AND . LOMEGA ) CALL 
IF (OOUT . AND . LOMEGA > CALL 
CALL  ZE I TBEG ( 8HTWR I TE  ) 
I F t OBEG ) CALL  INITSD 
CALL  TV/RITE  (0.3901,3908 
CALL  ZE I TEND 
IF (OTIMER . AND. ODAY)  CALL 
IF (QTIMER. AND . ODAY ) CALL 
IF  < QTIMER . AND. ODAY)  CALL 
I F ( OOUT , OR . OEND ) CALL  IN 


OR.  OOUT  OR.  ORSH)) 
ZE I TBEG  < 8HVER T > 

VERT 
ZE I TEND 


> 


ZE I TEND 
ZEITPRI (3) 

ZE I TBEG ( 8HGWSGCM  ) 
ITSD 


GO  TO  70 


PRINT  TIMINGS  AND  CHECK  SENSE  SWITCHES 

70  CONTINUE 

CALL  CLOCKS  (NTM) 

TTM  = . 0 1 * < ITM-NTM) 

STM  = , OtMLTM-NTM) 

LTM  = NTM 

WRITE  (3.6070)  JOB,  NSTEP , MATSUN.  NYMD,  NHMS,  STM.  TTM 
IF  (OEND)  GO  TO  900 
CALL  CUTCHKtCUTOFF ,3906) 

IF  (OBEG)  GO  TO  20 


GO  TO  10 


END  OF  MAIN  LOOP 


END  TIME  REACHED 


300  CONTINUE 

CALL  ZE I TEND 
CALL  ZE I TPRI ( 3 ) 

WRITE  (3,6900)  NSTEP , NYMD,  NHMS 
STOP  0 

ALLOTTED  OUTPUT  RECORDS  REACHED 


VGWSGCM 1 9 1 

VGWSGCM 1 92 

VGWSGCM 193 

VGWSGCM 1 94 

VGWSGCM 195 

VGWSGCM 1 96 

VGWSGCM 197 

VGWSGCM 198 

VGWSGCM 1 99 

VGWSGCM200 

VGW5GCM201 

VGWSGCM202 

VGWSGCM203 

VGWSGCM204 

VGWSGCM205 

VGWSGCM206 

VGWSGCM207 

VGW3GCM20B 

VGWSGCM209 

VGWSGCM 2 T 0 

VGWSGCM21 1 

VGWSGCM21 2 

VGWSGCM21 3 

VGWSGCM 2 1 4 

VGWSGCM 2 15 

VGV/SGCM2  16 

VGWSGCM2  t 7 

VGWSGCM2 1 0 

VGWSGCM2 1 9 

VGWSGCM220 

VGWSGCM221 

VGW3GCM222 

VGWSGCM223 

VGWSGCM224 

V GV;SGCM225 

VGWSGCM226 

VGV/SGCM2  27 

VGWSGCM228 

VGWSGCM229 

VGWSGCM 230 

VGWSGCM 231 

VGWSGCM232 

VGWSGCM 23 3 

VGWSGCM234 

VGWSGCM235 

VGWSGCM236 

VGVJSGCM237 

VGWSGCM238 

VGWSGCM239 

VGWSGCM240 

VGWSGCM24 1 

VGWSGCM242 

VGWSGCM243 

VGWSGCM244 

VGW3GCM245 

VGWSGCM246 

VGWSGCM247 

VGWSGCM248 

VGWSGCM 24 9 

VGWSGCM 250 

VGWSGCM 2 5 1 

VGWSGCM 25 2 

VGWSGCM 25 3 

VGWSGCM 25 4 

VGWSGCM255 

VGWSGCM 25 6 

VGWSGCM257 

VGVJSGCM258 

VGWSGCM259 

VGWSGCM2G0 

VGWSGCM261 


O 


4> 
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00529 

00530 

00531 

00532 

00533 

00534 


00535 

00536 

00537 

00538 

00539 

00540 

00541 

00542 

00543 

00544 


00545 

00546 

00547 

00548 

00549 

00550 


0055  1 

00552 

00553 

00554 

00555 
00558 


00557 


00550 

00559 

00560 
0056  1 

00562 

00563 


901  CONTINUE 

CALL  ZEI TEND 
CALL  ZE I TEND 
CALL  ZE l TPR I < 3 ) 

WRITE  (3,69001  NSTEP , NYMD , NHMS 
STOP  1 
C 

C CUT-OFF  TIME  EXCEEDED 

906  CONTINUE 

WRITE  (3,6906) 

CALL  ZE I TBEGt  8HTWRITE  ) 

! F < OOUT . AND . LOMEGA ) CALL  VERT 
CALL  TWRITE  (6.8901,3908) 

CALL  ZEITEND 
CALL  ZEITEND 
CALL  ZEI TPRI (3) 

WRITE  (3.6900)  NSTEP,  NYMO,  NHMS 
STOP  6 
C 

C INPUT/OUTPUT  ERROR 

908  CONTINUE 

CALL  ZEITEND 
CALL  ZEITEND 
CALL  ZEITPRI (3) 

WRITE  0,6900)  NSTEP,  NYMD.  NHMS 
STOP  8 
C 

C MODEL  DIAGNOSTIC 

912  CONTINUE 

CALL  ZEITEND 
CALL  ZEITEND 
CALL  ZEITPRIO) 

WRITE  (3,6900)  NSTEP,  NYMD.  NHMS 
STOP  12 
C 




6070  FORMAT ( ' JOB  '.A8.8X, 

8 'STEP  ' .18,  ' (Ml.')'  f 8 X , 

8 ' TIME  ' . 16, 2X, 16 .8* , 

8 ’ CPU  ' . 2F8.2) 

5900  FORMAT f ' OTERMI NATION  OF  RUN  AT  ST£°  * 

6905  FORMAT ( 4X , A4/2X , AS) 

6906  FORMAT f ‘ OSENSE  SWITCH  6 ON ' 1 

6907  FORMAT*  OCUT-OFF  TIME  FOR  COMPUTATION 

6908  FORMAT* ' OSTARTING  COMPUTATION  AT  ,A8 
END 


I 5 , 4 X 

IS: 

' ON 


'TIME 


. A6) 
.AS  ) 


I 6 . 2 X . I 6 I 


VGWSGCM262 
VGWSGCM263 
VGWSGCM264 
VGWSGCM265 
VGWSGCM266 
VGWSGCM267 
VGWSGCM268 
VGWSGCM259 
VGWSGCM270 
VGWSGCM271 
VGWSGCM272 
VGW5GCM273 
VGWSGCM274 
VGWSGCM275 
VGWSGCM27G 
VGWSGCM277 
VGWSGCM278 
VGWSGCM279 
VGWSGCM280 
VGWSGCM28 1 
VGWSGCM282 
VGVJSGCM283 
VGWSGCM284 
VGWSGCM2B5 
VGWSGCM286 
VGWSGCM287 
VGWSGCM28B 
VGWSGCM289 
VGWSGCM290 
VGWSGCM29 1 
VGW5GCM292 
VGWSGCM293 
VGWSGCM294 
VGWSGCM295 
VGWSGCM296 
VGWSGCM297 
VGWSGCM298 
VGV/SGCM299 
VGWSGCM300 
VGV/SGCM301 
VGWSGCM302 
VGWSGCM303 
VGV/SGCM304 
VGWSGCM305 
VGViSGCM306 
VGVJSGCM307 
VGViSGCM308 
VGV/SGCM309 
VGWSGCM3 1 0 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


1 0 

4 16 

475 

523 

10000 

384 

15 

439 

431 

20 

446 

522 

21 

456 

452 

22 

460 

456 

23 

468 

464 

25 

472 

45  1 

468 

30 

474 

447 

35 

480 

476 

40 

481 

4 15 

4 1 

488 

486 

50 

489 

55 

500 

496 

GO 

501 

490 

495 

6070 

557 

519 

6900 

558 

527 

533 

6905 

559 

405 

555 


O 

£3 

CO 

a 

3: 


t— * 
in 


ORIGINAL  PAGE  53 
OF  POOR  QUALITY 


CD 

O 


6906 

560 

536 

6907 

561 

406 

6908 

562 

404 

70 

5 1 4 

502 

900 

524 

520 

901 

529 

906 

535 

908 

545 

912 

55  1 

VARIABLE  MAP 


-NAME 

--BLOCK 

TYPE 

CLASS 

REFERENCES 

A =ARGL 1ST. 

C = C T R L 

OF  DO. 

I =DA  T A 

I N I T , R 

=RE AD , S= 

STORE.  W 

=WRI TE 

ABATE 

CCNTRL 

CHAR'S 

SIMPLE 

3 

16 

402 

4 04,  VI 

ADLDP 

R DP ARM 

REAL 

SIMPLE 

2 1 7 

radcom 

REAL 

ARRAY 

362 

ALBDOt 

NINTHLY 

REAL 

ARRAY 

327 

330 

ALBD02 

MNTHL Y 

REAL 

ARRAY 

326 

330 

ALBEDO 

QANDQT 

REAL 

ARRAY 

256 

269 

APHEL 

RCNTRL 

REAL 

SIMPLE 

157 

AS 

RADCOM 

REAL 

ARRAY 

347 

394 

ATIME 

CCNTRL 

CHAR*8 

SIMPLE 

4 

17 

403 

4 04  *W 

BETA 

RCNTRL 

REAL 

SIMPLE 

158 

CIO 

CNTRLP 

REAL 

SIMPLE 

296 

C100 

CNTRLP 

REAL 

SIMPLE 

297 

C4Q 

CNTRLP 

REAL 

SIMPLE 

298 

CA 

SPACE 

CHAR  *8 

ARRAY 

335 

336 

caltoj 

RCNTRL 

REAL 

SIMPLE 

1 96 

CC 

CCNTRL 

CHAR '8 

ARRAY 

14 

15 

cco 

CCNTRL 

CHAR '8 

SIMPLE 

2 

14 

15 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

4 

5 

6 

7 

8 

9 

1 0 

1 f 

12 

CC5P06 

CCNTRL 

CHAR '8 

SIMPLE 

7 

20 

CCSP07 

CCNTRL 

CHA  R * 8 

SIMPLE 

8 

2 1 

CCSPOS 

CCNTRL 

CHARTS 

SIMPLE 

g 

22 

CDATE 

RADCOM 

REAL 

ARRAY 

37  \ 

COP  R 

CNTRLP 

REAL 

SIMPLE 

284 

CD  XL 

CNTRLP 

REAL 

SIMPLE 

285 

C0XO 

CNTRLP 

real 

SIMPLE 

286 

CLH 

CNTRLP 

REAL 

SIMPLE 

287 

CLOUD 

RADCOM 

real 

ARRAY 

353 

CNTRLP 

REAL 

UNKNOWN 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

31  1 

312 

313 

3 1 4 

315 

3 ! 6 

317 

318 

319 

320 

32  1 

322 

323 

324 

COE 

CNTRLP 

REAL 

ARRAY 

288 

COEF 

CNTRLP 

REAL 

SIMPLE 

289 

COEFS 

CNTRLP 

REAL 

SIMPLE 

290 

CONI 

RDPARM 

REAL 

SIMPLE 

218 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

2 19 

CON  2 

RDPARM 

REAL 

SIMPLE 

220 

o o 

CON2DT 

RDPARM 

REAL 

SIMPLE 

22  1 

CON3 

RDPARM 

REAL 

SIMPLE 

222 

•n  g 

CON3DT 

RDPARM 

REAL 

SIMPLE 

223 

pn  O 

COM4 

RDPARM 

REAL 

SIMPLE 

224 

s » 

C0N4DT 

RDPAPM 

REAL 

SIMPLE 

225 

o S 

CONS 

RDPARM 

REAL 

SIMPLE 

226 

o % 

COSD 

RCNTRL 

REAL 

SIMPLE 

159 

70  p 

C05L 

RDPARM 

REAL 

ARRAY 

227 

COSLON 

RDPARM 

REAL 

ARRAY 

228 

lO  TJ 

COSROT 

CNTRLP 

REAL 

SIMPLE 

291 

C £ 

COSZ 

RADCOM 

REAL 

ARRAY 

373 

jjjp  Si 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

r-  ra 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

• • 

CPP 

CNTRLP 

REAL 

SIMPLE 

292 

«-»4  ret 

CQS 

CCNTRL 

CHAR  *■  8 

ARRAY 

12 

25 

”€,  C.Q 

COU 

CCNTRL 

CHAR '8 

ARRAY 

13 

26 

CTI  D 

CNTRLP 

REAL 

SIMPLE 

293 

CUMDAY 

CNTRLP 

REAL 

SIMPLE 

294 

CUMRAT 

CNTRLP 

REAL 

SIMPLE 

295 

CUTOFF 

CHAR ♦ 8 

SIMPLE 

380 

405/R 

CVQ 

R A DCOM 

REAL 

ARRAY 

359 

CVT 

R A DCOM 

REAL 

ARRAY 

359 

CXDE 

RAOCOM 

REAL 

ARRAY 

360 

C XL 

RADCOM 

RE/  L 

SIMPLE 

373 

CZH 

RADCOM 

REAL 

ARRAY 

372 

DAY5PY 

RCNTRL 

REAL 

SIMPLE 

T 6 t 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

DECMA  X 

RCNTRL 

REAL 

SIMPLE 

163 

DELTA 

CNTRLP 

REAL 

SIMPLE 

299 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

DSIG 

RDP ARM 

REAL 

ARRAY 

250 

D3IGINV 

RDPARM 

REAL 

ARRAY 

252 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

430/S 

DTC3 

CNTRLP 

REAL 

SIMPLE 

300 

DTOUT 

CNTRLP 

real 

SIMPLE 

30  1 

oxp 

RDP ARM 

REAL 

ARRAY 

230 

DXYP 

RDP A RM 

REAL 

ARRAY 

23  1 

DYP 

RDP ARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

ED 

CNTRLP 

REAL 

SIMPLE 

302 

EDNM 

CNTRLP 

REAL 

SIMPLE 

303 

EPS 

RCNTRL 

REAL 

SIMPLE 

1 94 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

EVAP 

RADCOM 

REAL 

SIMPLE 

372 

EXP  MO 

REAL 

SIMPLE 

405  / R 

F IDT 

RDP ARM 

REAL 

SIMPLE 

234 

F2DT 

RDP A RM 

REAL 

SIMPLE 

235 

FCOEF 

CNTRLP 

REAL 

SIMPLE 

304 

fcorls 

RDPARM 

REAL 

ARRAY 

233 

FILTER 

LDP  ARM 

LOGICAL 

ARRAY 

21  1 

2 1 4 

FK 

RADCOM 

REAL 

ARRAY 

368 

FMU 

CNTRLP 

REAL 

SIMPLE 

305 

FROST 

RADCOM 

LOGICAL 

ARRAY 

377 

378 

FV/ET 

CNTRLP 

REAL 

simple 

306 

GAM 

RADCOM 

REAL 

ARRAY 

354 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

307 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU2 

RCNTRL 

real 

SIMPLE 

1^0 

GRAV 

RCNTRL 

REAL 

SIMPLE 

17  1 

GT 

QANDOT 

REAL 

ARRA  V 

257 

270 

GTOPO 

CNTRLP 

REAL 

SIMPLE 

303 

G V/ 

QANDOT 

REAL 

ARRAY 

258 

27  1 

GV/1 

MHTHLY 

REAL 

ARRAY 

327 

329 

GW  2 

NINTHLY 

REAL 

ARRAY 

326 

329 

GV/SGCM 

PROGRAM 

1 

H IDT 

RDPARM 

REAL 

SIMPLE 

236 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

HEATI 

RCNTRL 

REAL 

SIMPLE 

193 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

HH 

RADCOM 

REAL 

ARRAY 

357 

HHE 

RADCOM 

REAL 

ARRAY 

357 

HHS 

RADCOM 

REAL 

ARRAY 

358 

NICE 

CNTRLP 

REAL 

SIMPLE 

309 

HWORK 

SPACE 

HALF 

ARRAY 

343 

344 

I A 

SPACE 

HALF 

ARRAY 

337 

338 

IBLKSI2 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

ICE 

RADCOM 

LOGICAL 

ARRAY 

376 

378 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

36 

39 

49 

50 

60 

61 

7 1 

72 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

68 

ID  I ABA T 

ICNTRL 

INTEGER 

UNKNOWN 

92 

I D P ARM 

INTEGER 

unknown 

200 

201 

406/W  521 


432/S 


96 


29 

30 

31 

32 

33 

34 

35 

36 

37 

40 

4 1 

42 

43 

44 

45 

45 

47 

48 

51 

52 

53 

54 

55 

56 

57 

58 

59 

62 

63 

64 

65 

66 

67 

68 

69 

70 

73 

74 

75 

76 

77 

78 

202 

203 

204 

205 

206 

207 

208 

209 

210  0 

CO 
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IDSP02 
I EFLUX 
IFUSIOM 
I HFLUX 
t I CLOUD 
I JUMP 
IM 

IMD2 
IMD2P 1 
INDEX 
IOMEGA 
I PRE ACC 
IPRECON 
I OS 


I OSD  I AG 
IOU 

IRADL17 
IRADLV/G 
I RADSU 
1RAD5WG 
I ROD 
I TAPE 
I TM 
I TMA  X 
I TWIN 
IUFLUX 
I VFLUX 
J 

dAL8 

JC 

JE 

JIC 

JM 

JMD2 

jm  r 2 

dNP 

J04 

JOB 

JOB 

JP 

JSP 

KLJALB 
KLIGW 
KLI SST 
KS 

KSTEP 

KU 

LA 

LAND 

LC 

LCD 

LCNTRL 

LDIABAT 

LDPARM 

LEFLUX 

LFUSION 
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NLA V =9 

JM - 1 =46 

NLA  V * f 1 =99 

I M " NLA Y ♦ 1 t =7  1 28 

JM/2M  =23 

GLOBAL  MODEL  PROGNOSTIC  p I ELDS  (NEEDED  IN  COMPO) 

VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VQANDQT  2 
VQANDQT  3 
VQANDQT  4 
VQANDQT  5 
VOANDQT  6 
VQANDQT  7 
VQANDQT  8 
VQANDQT  9 
VQANDQT  10 
VQANDQT  1 1 
VQANDQT  T 2 

VQANDQT 

14 

COMMON 

/QANDQT / QPROG  <72, 9,11.46) 

VQANDQT 

15 

VQANDQT 

16 

DIMENSION 

PHIS 

(7128,1) 

VQANDQT 

17 

D I ME NS I ON 

SMTH 

(7128.23) 

VQANDQT 

18 

DIMENSION 

ALBEDO 

(7128.1) 

VQANDQT 

19 

DIMENSION 

GT 

( 7 1 2B  , 1 ) 

VQANDQT 

20 

D I P/IE  NS  I ON 

GW 

(7120.1) 

VQANDOT 

21 

DIMENSION 

TS 

(7128, 1 ) 

VOANDQT 

22 

DIMENSION 

SH5 

(7128,1) 

VQANDQT 

23 

DIMENSION 

P 

(72,99.1) 

VQANDQT 

24 

VQANDQT 

25 

DIMENSION 

U 

(72,9, 11.1) 

VOANDQT 

26 

DIMENSION 

V 

(72.9,11.1) 

VQANDQT 

27 

DIMENSION 

T 

(72.9.11,1) 

VQANDQT 

28 

DIMENSION 

5H 

(72,9,11.1) 

VQANDQT 

29 

DIMENSION 

PHI 

(72,9.11.1) 

VOANDQT 

30 

VQANDQT 

31 

EQUIVALENCE 

( QPROG 

1 . 1,1.1), PHI S ( 1 . 

1 ) ) 

VQANDQT 

32 

EQUIVALENCE 

( QPROG 

1 . 2,1,1), SMTH  < 1 , 

U ) 

VQANDQT 

33 

EQUIVALENCE 

( QPROG 

1 , 3.1,1) , ALBEDO ( 1 . 

1 ) ) 

VOANDQT 

34 

EQUIVALENCE 

( QPROG 

1 , 4,1,1), GT  ( 1 , 

i ; > 

VQANDQT 

35 

EQUIVALENCE 

( QPROG 

1 . 5,1,1)  ,GW  ( 1 , 

i > > 

VQANDQT 

36 

EQUIVALENCE 

( QPROG 

1 . 6.1.11,75  ( 1 . 

i > i 

VQANDQT 

37 

EQUIVALENCE 

( QPROG 

1 . 7,1,1)  ,5HS  ( 1 , 

i > ) 

VOANDQT 

38 

EQUIVALENCE 

( QPROG 

1 . 8 , 1 . 1 ) , P ( 1 , 

1 , M > 

VQANDQT 

39 

VQANDOT 

40 

EQUIVALENCE 

( QPROG 

1.1.  2. 1 ) ,U  (1.1,1 

. i > > 

VQANDQT 

4 1 

EQUIVALENCE 

< QPROG 

1,1.  4 , 1 ) , V (1.1.1 

, i > ) 

VQANDQT 

42 

EQUIVALENCE 

( QPROG 

1.1,  6 . 1 ) , T (1,1.1 

, i > > 

VOANDQT 

43 

EQUIVALENCE 

< QPROG i 

1.1,  8,1) , SH  (1,1,1 

, i ) > 

VQANDQT 

44 

EQUIVALENCE 

( QPROG 

1.1.10.1). PHI ( 1 , 1 , t 

, i > ) 

VQANDQT 

45 

VOANDQT 

46 

SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT 

NEEDED  IN  COMPO ) 

VQANDQT 

47 

VQANDQT 

48 

VOANDQT 

49 

COMMON 

/QANDQT/  OSD I AG ( 7 2 

15,46) 

VQANDQT 

50 

DIMENSION 

I QSD I AG ( 72 

, 15,46) 

VQANDQT 

51 

EQUIVALENCE 

( QSD I AG . 1QSDI AG) 

VQANDQT 

52 

VQANDQT 

53 

COMMON 

/QANDQT/  QUD I AG (72,9,  5,46) 

VQANDQT 

54 

VOANDQT 

55 

*■  * 

VOPOLES 

2 

POLAR  MODEL  PROGNOSTIC  FIELDS 

VOPOLES 

3 

COMMON  /Q ROLES/ 

PP<  2 . 2 ) 

VQPOLES 

4 

COMMON  /QPOLES/ 

UP<  9 , 2 

2) 

VOPOLES 

5 

COMMON  /QPOLES/ 

VP (9.2, 

2) 

VOPOLES 

6 

COMMON  /QPOLES/ 

TP (9,2, 

2) 

VQPOLES 

7 

COMMON  /QPOLES/ 

SHPf9, 2.2) 

VQPOLES 

8 

I ! 

Kj  fern 

*0 

C IS? 

3 Id 


COMMON  /OPOLES/  PHIP<9,2.2) 
COMMON  /IMJM/  I MM  t , 


IMJM/  I MM  t , 

I M T 2 . 

IMNLAY,  IMNLAY1 , 
IMD2M1  f 

NLAYT2,  NLAYT3. 


I MM2,  I MM3,  I MM 4 I MM3. 

IMT4, 

IMNLAY2,  IMNLAY3,  IMNLAY4,  IMNLAY5. 
NLAYT4,  NLAYTS,  NLAYT6 , ML  A YT7 


C DEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION  00.001  INPUT  100 


C ****  CYBER  VECTOR  VERSION  00  JJSeJSSS  2 

CSSSSSMS5SMjfj?SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSviliDEB  6 

IF  (M  PQ  n \ ezn  t n cn  VADDQ  17 


VOPOLES  9 
VOPOLES  10 
VIMJM  2 
VIMJM  3 
VIMJM  4 
VIMJM  S 
VIMJM  6 
VADDO  15 
VBEGDEB  2 
VBEGDEB  3 
VeEGDEB  4 
V8EG0E8  5 


00292 

00293 


00294 

00295 

00296 

00297 
00290 

00299 

00300 


00303 

00304 

00305 

00306 

00307 

00308 

00309 


IF  (M.EQ.O)  GO  TO  50 

» * t 

POLE  POINT 

PP1N1 „M)  = PPiN1,M)  * PP<N2,M) 

DO  10  L=  1 , NLAY 

UP  < L , N 1 , M ) = UP ( L , N 1 , M ) + UP(L.N2,M) 

VP ( L , N I , M ) = VP ( l , N 1 , M ) J VP { L , N2 , M ) 
TP(L,NI,M)  = T P f L ♦ N 1 , M ) * TP1L.N2.M) 

SHPfL.Ni,M>  = SHP<L,N1,M)  * SHP ( L N2  M ) 
tO  CONTINUE 


CONTINUE 

= P<  1 ,NI  . J;  IMI 


Pi  1 ,N2. J; IM> 


UM,  J,N1,d;  1MNLAY  > 
VM.t.Nl.d;  IMNLAY) 
T< 1 , 1 ,N1 ,d; IMNLAY) 
SHIIJ.MI.d; IMNLAY) 
CONTINUE 
RETURN 

END 


Ull.1  . N 1 , J; IMNLAY ) * 
Vf  1 . 1 .N1 , J; IMNLAY ) * 
Tf 1 , I ,N! , J; IMNLAY)  + 
SHi  \ , 1 ,N1 . J; IMNLAY) 


UitJ.N2.dj  IMNLAY) 

Vi  1 , 1 ,N2, J; IMNLAY) 

T( 1 . 1 ,N2 , J: IMNLAY  ) 

* SHi 1 , 1 ,N2, J; IMNLAY) 


ADATE 

ADDQ 

ADLDP 

ALBEDO 

APHEL 

A TIME* 

BETA 

CAL  TO J 

CC 

CCO 

CCNTRL 

CCSP06 

CCSP07 

CCSP08 

CONI 

CON  IDT 

C0N2 

CON2DT 

CONS 

C0N3D'r 

C0N4 

C0N4DT 


RDPARM 

QANDQT 

RCNTRL 

CCNTRL 

RCNTRL 

RCNTRL 

CCNTRL 

CCNTRL 


CCNTRL 

CCNTRL 

CCNTRL 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 


REAL 

REAL 

REAL 

CHARTS 

REAL 

REAL 

CHA  R ♦ 0 

CHARTS 

REAL 

CHAR*0 

CHARTS 

CHAR ♦B 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


VADDQ 

VADDO 

VADDQ 

VADDQ 

VADDQ 

VADDO 

VADDQ 

VADDQ 

VADDQ 

VADDQ 

VADDQ 

VADDQ 

VADDO 

VADDO 

VADDQ 

VADDQ 

VADDO 

VADDQ 

VADDO 

VADDQ 

VADDO 

VADOQ 


STATEMENT 

LABEL  MAP 

* - LABEL  - - 

-DEFINED 

REFERENCES 

1 0 

300 

295 

10000 

29  1 

50 

301 

293 

70 

307 

VARIABLE  MAP 

--NAME 

BLOCK-- 

TYPE 

-REFERENCES 


A=ARGLIST.  C “CTRL  OF  DO,  I =DATA  INIT,  REREAD,  S=STORE . W*WRIT£ 


SIMPLE 

SUBROUTINE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 
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CONS 

RDF ARM 

REAL 

SIMPLE 

226 

COSO 

RCNTRL 

REAL 

SIMPLE 

159 

COSL 

RDPARM 

REAL 

ARRAY 

227 

COSLON 

RDPARM 

real 

ARRAY 

228 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

CQS 

ccntrl 

CHAR ♦ 8 

ARRAY 

1 2 

COU 

CCWTRL 

CHAR • 8 

ARRAY 

13 

DAYSPY 

RCNTRL 

real 

SIMPLE 

16  1 

DEC 

RCNTRL 

REAL 

SIMPLE 

t 62 

OECMA  X 

RCNTRL 

REAL 

SIMPLE 

163 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

OSIGINV 

RDPARM 

real 

ARRAY 

252 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

DXP 

RDPARM 

REAL 

ARRAY 

230 

oy  YP 

RDPARM 

REAL 

ARRAY 

23  1 

DYP 

RDPARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

EPSf AC 

RCNTRL 

REAL 

SIMPLE 

195 

F IDT 

RDPARM 

REAL 

SIMPLE 

234 

F 2D  T 

RDPARM 

REAL 

SIMPLE 

235 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

2 1 1 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU  2 

RCNTRL 

REAL 

SIMPLE 

170 

GRAV 

RCNTRL 

REAL 

SIMPLE 

17  1 

GT 

QANDQ  T 

REAL 

ARRAY 

257 

GW 

OANDQT 

REAL 

ARRAY 

258 

H IDT 

RDPARM 

REAL 

SIMPLE 

236 

H20T 

RDPARM 

REAL 

SIMPLE 

237 

HEATI 

RCNTRL 

REAL 

SIMPLE 

1 93 

MEA  TV/ 

RCNTRL 

REAL 

SIMPLE 

1 92 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

1C 

ICNTRL 

INTEGER 

ARRAY 

95 

ICO 

ICNTRL 

ICNTRL 

INTEGER 

INTEGER 

SIMPLE 

UNKNOWN 

27 

27 

38 

49 

50 
7 1 
68 

ICSPS3 

ICNTRL 

INTEGER 

SIMPLE 

IDIABAT 

IDPARM 

ICNTRt 

INTEGER 

INTEGER 

UNKNOWN 

UNKNOWN 

92 

200 

I DSP  02 

I DP ARM 

INTEGER 

SIMPLE 

20  1 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

83 

IICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

83 

I JUMP 

I DP ARM 

INTEGER 

ARRAY 

200 

IM 

ICNTRL 

I N TEGER 

SIMPLE 

28 

I MO  2 

ICNTRL 

INTEGER 

SIMPLE 

29 

I MP2M  1 

l M JM 

INTEGER 

SIMPLE 

290 

IMD2P1 

IMJM 

ICNTRL 

INTEGER 

INTEGER 

SIMPLE 

UNKNOWN 

30 

290 

I MM  J 

IMJM 

INTEGER 

SIMPLE 

290 

I MM2 

IMJM 

INTEGER 

SIMPLE 

290 

I MM3 

IMJM 

INTEGER 

SIMPLE 

290 

I MM  4 

IMJM 

INTEGER 

SIMPLE 

290 

I MM  5 

IMJM 

INTEGER 

SIMPLE 

290 

IMNLAY 

IMJM 

INTEGER 

SIMPLE 

290 

1MNLAY 1 

IMJM 

INTEGER 

SIMPLE 

305 

290 

IMNLAY2 

IMJM 

INTEGER 

SIMPLE 

290 

1MNLAY3 

IMJM 

INTEGER 

SIMPLE 

290 

IMNLAY4 

IMJM 

INTEGER 

SIMPLE 

290 

IMNLAY5 

IMJM 

INTEGER 

SIMPLE 

290 

25 

26 


2 14 


2 7 0 
271 


96 

95 

28 

96 

29 

30 

3 1 

32 

33 

34 

39 

40 

4 1 

42 

43 

44 

45 

50 

5 1 

52 

53 

54 

55 

56 

6 1 

62 

53 

64 

65 

66 

67 

72 

73 

7 4 

75 

76 

77 

78 

201 

202 

203 

204 

205 

206 

207 

302  302  302 


303  303  303  304  304  304  305 

306 


go 
-n  2 
-n  o 

gl 

a?  r~ 
O 

C 35 

> 

C m 


$$L 


35 

4S 

57 

co 


29  o 


36 

47 

SB 

69 


209 


37 

48 

59 

70 


2 10 


20*7 


305  306 


§ 


C3 

.O 


•-J 


IMT2 

I M JM 

INTEGER 

IMT4 

If/IJM 

INTEGER 

INDEX 

IPPARM 

INTEGER 

I OMEGA 

ICN  fPL 

INTEGER 

IPREACC 

ICNTRL 

INTEGER 

I PRECON 

ICNTRL 

INTEGER 

IQS 

ICNTRL 

INTEGER 

I OSD I AG 

OANDOT 

INTEGER 

IQU 

ICNTRL 

INTEGER 

iradlw 

ICNTRL 

INTEGER 

iradlwg 

ICNTRL 

INTEGER 

IRADSW 

ICNTRL 

INTEGER 

IRADSV/G 

ICNTRL 

INTEGER 

IROD 

I DP ARM 

INTEGER 

ITAPE 

LDPARM 

LOGICAL 

I TMAX 

ICNTRL 

INTEGER 

I TWIN 

ICNTRL 

INTEGER 

I UF  LUX 

ICNTRL 

INTEGER 

IVFLUX 

J 

ICNTRL 

INTEGER 

INTEGER 

dC 

I DP ARM 

INTEGER 

JE 

I DP ARM 

INTEGER 

JIC 

CCNTRL 

CHAR  *8 

JM 

ICNTRL 

INTEGER 

JWID2 

ICNTRL 

INTEGER 

JMT2 

ICNTRL 

INTEGER 

JNP 

ICNTRL 

INTEGER 

J04 

ICNTRL 

INTEGER 

d08 

ICNTRL 

INTEGER 

JOB 

CCNTRL 

CHAR  * 8 

dP 

I DP ARM 

INTEGER 

dSP 

ICNTRL 

INTEGER 

KLIALB 

ICNTRL 

INTEGER 

HLIGW 

ICNTRL 

INTEGER 

KLISST 

ICNTRL 

INTEGER 

K S 

ICNTRL 

INTEGER 

KSTEP 

I DP ARM 

INTEGER 

KU 

L 

ICNTRL 

INTEGER 

INTEGER 

LC 

LCNTRL 

LOGICAL 

LCO 

lcntrl 

LCNTRL 

LOGICAL 

INTEGER 

LDIABAT 
LDP ARM 

lcntrl 

LOGICAL 

INTEGER 

LEFLUX 

LCNTRL 

LOGICAL 

LFUSION 

LCNTRL 

LOGICAL 

LHFLUX 

LCNTRL 

LOGICAL 

L I CLOUD 

LCNTRL 

LOGICAL 

LOGBR 

ICNTRL 

INTEGER 

LOMEGA 

LCNTRL 

LOGICAL 

LPREACC 

LCNTRL 

LOGICAL 

LPRECON 

LCNTRL 

LOGICAL 

LOS 

LCNTRL 

LOGICAL 

LQU 

LCNTRL 

LOGICAL 

LRAOLW 

LCNTRL 

LOGICAL 

LRADLWG 

LCNTRL 

LOGICAL 

LRADSW 

LCNTRL 

LOGICAL 

LRADSWG 

LCNTRL 

LOGICAL 

LTMAX 

LCNTRL 

LOGICAL 

LTM1N 

LCNTRL 

LOGICAL 

LUFLUX 

LCNTRL 

LOGICAL 

L VF  LUX 
M 

LCNTRL 

LOGICAL 

INTEGER 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

290 

SIMPLE 

290 

ARRAY 

202 

UN K NO WN 

9 1 

UNKNOWN 

8 1 

UNKNOWN 

82 

ARRAY 

77 

79 

89 

90 

ARRAY 

28  1 

282 

ARRAY 

78 

9 1 

UNKNOWN 

94 

UNKNOWN 

87 

UNKNOWN 

93 

UNKNOWN 

86 

SIMPLE 

203 

SIMPLE 

2 12 

2 15 

UNKNOWN 

eo 

UNKNOWN 

79 

UNKNOWN 

89 

UNKNOWN 

90 

SIMPLE 

1 

292 

305 

305 

ARRAY 

204 

ARRAY 

205 

SIMPLE 

5 

18 

SIMPLE 

32 

SIMPLE 

33 

SIMPLE 

34 

SIMPLE 

35 

SIMPLE 

36 

SIMPLE 

37 

SIMPLE 

6 

1 9 

ARRAY 

206 

SIMPLE 

38 

SIMPLE 

39 

SIMPLE 

40 

SIMPLE 

4 1 

SIMPLE 

42 

SIMPLE 

207 

SIMPLE 

43 

SIMPLE 

295  C 

296 

299 

299 

ARRAY 

154 

155 

SIMPLE 

97 

154 

UNKNOWN 

97 

98 

108 

1 09 

UNKNOWN 

123 

151 

UNKNOWN 

2 1 1 

2 1 2 

UNKNOWN 

1 15 

143 

UNKNOWN 

1 16 

144 

UNKNOWN 

1 14 

142 

UNKNOWN 

1 19 

147 

SIMPLE 

44 

UNKNOWN 

122 

150 

UNKNOWN 

112 

140 

UNKNOWN 

1 13 

1 4 1 

ARRAY 

108 

1 10 

1 20 

1 2 1 

ARRAY 

109 

122 

UNKNOWN 

125 

153 

UNKNOWN 

1 18 

146 

UNKNOWN 

124 

152 

UNKNOWN 

1 1 7 

145 

UNKNOWN 

1 1 1 

139 

UNKNOWN 

1 10 

138 

UNKNOWN 

1 20 

148 

UNKNOWN 

1 2 1 

149 

SIMPLE 

292/S 

293 

298 

298 

SIMPLE 

45 

80 

P 1 

82 

83 

92 

93 

94 

302  302  302  303 

30S  306  306  306 


296  296  29?  297 


155 

99  100  to  1 102 


213 


1 1 
36 

1 12 

1 1 3 

1 14 

23 

1 24 

125 

137 

294  29*5  29a  296 

298  299  299  299 


84 


303 


297 

103 


1 15 


296 


85 


303 


298 


I 04 


1 16 


296 


87 


304  304 


298  298 


108  106 


TIT  t 13 


797  297 


JO 

CO 


88 


304 


107 


1 19 


297 
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MATSNK 

ICNTRL 

INTEGER 

SIMPLE 

46 

MAT SUN 

ICNTRL 

INTEGER 

SIMPLE 

47 

MJ 

I OP ARM 

INTEGER 

ARRAY 

208 

292 

MLP 

ICNTRL 

INTEGER 

ARRAY 

48 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

49 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

5 1 

N 1 

INTEGER 

SIMPLE 

1 

294 

294 

302 

302 

303 

N2 

INTEGER 

SIMPLE 

1 

294 

296 

NB 

ICNTRL 

INTEGER 

SIMPLE 

52 

ND 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

76 

NOOUT 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

57 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

3 f 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

58 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

59 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

62 

NHMS  1 

IOPARWI 

INTEGER 

SIMPLE 

209 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

61 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

50 

NLAY 

ICNTRL 

INTEGER 

SIMPLE 

63 

295 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

64 

NLA  VP  1 

ICNTRL 

INTEGER 

SIMPLE 

65 

NLAY  T 2 

1 M JM 

INTEGER 

SIMPLE 

290 

NLAYT3 

imjm 

INTEGER 

SIMPLE 

290 

NLAYT4 

I M JM 

INTEGER 

SIMPLE 

290 

NLAYT5 

IMJM 

INTEGER 

SIMPLE 

290 

NLAYT6 

I M JM 

INTEGER 

SIMPLE 

290 

NLAYT7 

IMJM 

INTEGER 

SIMPLE 

290 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

75 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

66 

NSEQ 

ICNTRL 

integer 

SIMPLE 

67 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

71 

M YMD  0 

ICNTRL 

INTEGER 

SIMPLE 

73 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

2 1 0 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

72 

NZ INI T 

ICNTRL 

INTEGER 

SIMPLE 

74 

OMEGA 2 

rcntrl 

REAL 

SIMPLE 

172 

P 

QANDOT 

REAL 

ARRAY 

261 

274 

302 

PHI 

QANPQT 

REAL 

ARRAY 

266 

279 

PHI  P 

OPOLES 

REAL 

ARRAY 

289 

PHIS 

QANDOT 

real 

ARRAY 

254 

267 

PI 

RCNTRL 

REAL 

SIMPLE 

173 

PI  180 

RCNTRL 

REAL 

SIMPLE 

174 

P I 2 

RCNTRL 

REAL 

SIMPLE 

175 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

177 

PKSTD 

RDPARM 

REAL 

SIMPLE 

238 

PKTOP 

R DP ARM 

REAL 

SIMPLE 

239 

PLEVS 

RCNTRL 

REAL 

ARRAY 

1 9 1 

PP 

OPOLES 

REAL 

ARRAY 

284 

294/S 

294 

P3MAX 

RCNTRL 

REAL 

SIMPLE 

17B 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

179 

PSTD 

RCNTRL 

REAL 

SIMPLE 

1 76 

PTOP 

RCNTRL 

REAL 

SIMPLE 

180 

PZERO 

RCNTRL 

REAL 

SIMPLE 

197 

OALT 

LCNTRL 

LOGICAL 

SIMPLE 

98 

1 26 

QANDOT 

REAL 

UNKNOWN 

253 

280 

283 

00  EG 

LCNTRL 

LOGICAL 

SIMPLE 

99 

127 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

100 

123 

OEND 

LCNTRL 

LOGICAL 

SIMPLE 

10  1 

1 29 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

f 02 

130 

OPHV 

LCNTRL 

LOGICAL 

SIMPLE 

103 

131 

QPOLES 

REAL 

UNKNOWN 

284 

285 

286 

QPROG 

QANDOT 

REAL 

ARRAY 

253 

267 

268 

296 

296 

297 

297 

298 

298 

299 

299 

303 

304 

304 

305 

305 

3v5 

306 

297 

296 

299 

302 

303 

30  4 

305 

306 

S 30? 


294 


287  288  289 

269  270  27  1 272  273  274  275  276  j> 

U 

O 

vD 


ORIGINAL  PAGI 1^' 
OF  POOR  QUALITY 


ORSH 

LCNTRL 

QRSW 

LCNTRL 

QSDIAG 

0AN0QT 

QSHF 

LCNTRL 

QUDIAG 

QANDQT 

RADE 

RCNTRL 

RC 

RCNTRL 

RCO 

RCNTRL 

RCNTRL 

RDPARM 

RGAS 

RCNTRL 

RLAT 

RDPARM 

RLATD 

R DP ARM 

ROCP 

RCNTRL 

ROCPDT 

RDPARM 

ROCP  P 1 

RDP ARM 

RSDIST 

RCNTRL 

SDAY 

RCNTRL 

SEASON 

RCNTRL 

SGNP 

RDPARM 

SM 

OANDOT 

SHP 

QPOLES 

SHS 

OANDOT 

SIG 

RDPARM 

SIGE 

RCNTRL 

SIND 

RCNTRL 

SINL 

RDPARM 

SINL0N 

RDPARM 

SMTH 

OANDOT 

SN2FLG 

LCNTRL 

SOLS 

RCNTRL 

START 

LDP ARM 

T 

QANDOT 

THSTD 

RDPARM 

THSTD2 

RDPARM 

TP 

OPOLES 

TS 

OANDQT 

TSTD 

RCNTRL 

U 

OANDOT 

UP 

OPOLES 

V 

OANDOT 

VER 

CCNTRL 

VP 

OPOLES 

WSAVE 

RDPARM 

XLABEL 

CCNTRL 

LOGICAL 

SIMPLE 

LOGICAL 

SIMPLE 

REAL 

ARRAY 

LOGICAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAl 

ARRAY 

REAL 

SIMPLE 

REAL 

UNKNOWN 

REAL 

UNKNOWN 

real 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

LOGICAL 

SIMPLE 

REAL 

SIMPLE 

LOGICAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

real 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

CHARTS 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

CHARTS 

ARRAY 

277 

107 

t06 

280 

104 
283 
181 
198 

155 

156 
167 
17B 
189 
217 
228 

239 

250 
182 

240 
24  1 

183 

242 

243 

184 

185 
185 

244 
265 
288 
260 

251 

187 

188 

245 

246 
255 

105 

189 
2 13 
264 

247 

248 
2B7 
259 

190 
262 

285 
263 

1 O 

286 

249 


278  279 

135 
134 
282 
132 


199 


1 SB 

199 

157 

158 

159 

160 

168 

! 69 

170 

17  1 

179 

180 

18  1 

182 

190 

191 

192 

193 

218 

219 

220 

22  1 

229 

230 

231 

232 

240 

24  1 

242 

243 

25  t 

252 

16  1 

162 

163 

164 

172 

173 

174 

1 75 

183 

184 

185 

136 

194 

195 

19G 

197 

222 

223 

224 

225 

233 

234 

235 

236 

244 

245 

246 

747 

278  306/S  306  306 

299/S  299  299 

273 


268 

133 

2 16 


277 

305/S 

305 

305 

298/S 

298 

298 

272 

275 

303/S 

303 

303 

296  / S 

296 

296 

276 

304 /S 

304 

304 

23 

297/S 

297 

297 

165 

176 

187 


226 
237 
24  8 


166 

177 

IBS 

227 

238 

249 


O O 
-n  2 
•ti  in 
O 2 
o g 

iO  'V 

a 

> 6S 

r~  ra 


1 1 24 


0000  t 


00002 


00003 

00004 

00005 

00006 
00007 
0000S 

00009 

00010 
0001  1 
000  1 2 
00013 
000  14 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 
00026 
00026 
00027 


00028 

00029 

00030 


CDECK  VAVRX 

SUBROUTINE  AVRX  (J) 

Ct  + ****  + *********+****+********+*  + »*****+*  + + *'**.**,ri»-  + **#.4.*jr***+.*+-**4.*** 

C PURPOSE 

C FOURIER  FILTER  BASE  FIELDS  NEAR  THE  POLES  IN  THE  X-DIRECT10N. 

C MODEL  QUANTITIES  FILTERED  ARE  U,  V,  SH,  AND  SLR-  AND  T MODIFIED 

C TO  A CONSTANT  PRESSURE  SURFACE 

C USAGE 

C CALLED  BY  COMPO  ONLY 

C ARGUMENTS  DESCRIPTION 
C d LATITUDE  BAND  NUMBER 

C SUBPROGRAMS  NEEDED 

C FFT77  FAST  FOURIER  TRANSFORM  (CYGWSLIB) 

C LAPSE  LAPSE  RATE  CALCULATION 

C RECORD  OF  MODIFICATIONS 
C BASED  ON  OLD  VERSION  8. 

C 08 / 1 2/83/RCB  THIS  PART  t COMMENTS  AND  & FOR 

C 11/11/ 83 /RCB  DUAL  PRECISION. 

C 26/01/84/dWP  COMMENTS  AND  ALLIGN  (DIRECT  ON  NEW  MASTER ) 

C 28/02/84/LLT  ISOBARIC  TEMPERATURE  FILTER 

,C  REMARKS; 

(J**t  + *tttt****t*t**t»t**t  + **tt4  + + + 

C*  M / A - C O M SIGMA  DATA  INC.  NASA  - GSFC 

Q+**-»4'***4’***+*»*4.+  » + -tr*+++>+.t**  + 4+  *«'*»**’*  + *4r****+++*«’**»*t+-**;t*  + l+'fr  + *'l(.*' 

c 

CCOMDECK  VREAL 
C HALF/FULL  PRECISION 

IMPLICIT  REAL  (A-H.O-Z) 

C 

CCOMDECK  VRSLV 
C 

C PARAMETER  STATEMENTS  FOR  DIMENSIONING  RESOLUTION 

C ~ ~ " ------- 

C 

CCOMDECK  VCNTRL 

C CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /CCNTRL/  CCO 
COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  JIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSPOG 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  (10) 

COMMON  /CCNTRL/  CQS  (30) 

COMMON  /CCNTRL/  CQU  (10) 


C 

C 

C 


EQUIVALENCE 
CHARACTER  *8 
CHARACTERS 
CHARACTER'S 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTER  + 8 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 


<CCO,CC( 1 ) ) 

CCO,  CC ( 200 ) 

ADATE 

ATIME 

JIC 

JOB 

CCSP06 

CCSP07 

CCSP08 

VER 

XLABEL 

CQS 

CQU 


INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  / ICNTRL/ ~ICO~~ 

COMMON  / I CNTRL/  IM 
COMMON  /ICNTRL/  IMD2 


$VAOOO 1 0 
$VA00020 
► ♦ SVA00030 
SV  A 00040 
SVA00050 
SVA00060 
SVA00070 
SVA  00080 
$VA00090 
SVAOO 1 00 
SVAOO 1 10 
SVAOO 120 
SVAOO 1 30 
SVAOO 1 40 
$VAOO 150 
SVAOO 160 
SVAOO 170 
SVAOO 180 
SVAOO 190 
SVA00200 
SVAOO 2 1 0 
SVA00220 
♦SVA00230 
SVA00240 
SVAOO 250 
SVA00260 
SVA00270 
SV A 00280 
SVA00290 
SVA00300 
SVA00310 
SVA00320 
SVA00330 
SVA00340 
SVA00350 
SVA00360 
SVA00370 
SVA003B0 
SVA00390 
SVA00400 
SVA00410 
S5VA00420 
SVA00430 
SVA00440 
SVA 00450 
SVA00460 
SVA00470 
SVA00480 
SVA00490 
SVA00500 
SVA00510 
SVA0OS2O 
SVA00530 
SVA00540 
SVA00550 
SVA00S60 
SVA00B70 
SVA00580 
SVA00590 
SVA00600 
SVA00610 
SVA00620 
SVA00630 
SVA00640 
SVA00650 
SVA00660 
SVA00670 
SVA006B0 
SVA00690 
SVA 00 7 00 
SVA00710 


© o 

^ S3 

3?  If 

o fe 

o s 

fl 


3 


£ 


00031 

COMMON 

/ I CNTRL/ 

IMD2P1 

00032 

COMMON 

/ ICNTRL/ 

NDRSW 

00033 

COMMON 

/ I CNTRL  7 

UM 

00034 

COMMON 

/ICNTRL/ 

JMD2 

00035 

COMMON 

/ICNTRL/ 

JW1T2 

00036 

COMMON 

/ICNTRL/ 

JNP 

00037 

COMMON 

/ICNTRL/ 

J04 

00038 

COMMON 

/ICNTRL/ 

JOS 

00039 

COMMON 

/ICNTRL/ 

JSP 

00040 

COMMON 

/ICNTRL/ 

KLIALB 

00041 

COMMON 

/ICNTRL/ 

KLIGW 

00042 

COMMON 

/ICNTRL/ 

KLISST 

00043 

COMMON 

/ICNTRL/ 

K5 

00044 

COMMON 

/ICNTRL/ 

KU 

00045 

COMMON 

/ICNTRL/ 

L0G8R 

00046 

COMMON 

/ICNTRL/ 

MATIN 

00047 

COMMON 

/ICNTRL/ 

MATSNX 

00048 

COMMON 

/ICNTRL/ 

MATSUN 

00049 

COMMON 

/ICNTRL/ 

MLF  (12) 

00050 

COMMON 

/ ICNTRL/ 

MROD 

00051 

COMMON 

/ICNTRL/ 

NKRSH 

00052 

COMMON 

/ICNTRL/ 

MSM 

00053 

COMMON 

/ICNTRL/ 

NB 

00054 

COMMON 

/ICNTRL/ 

ND 

00055 

COMMON 

/ICNTRL/ 

NDALT 

00056 

COMMON 

/ICNTRL/ 

NDA  V 

00057 

COMMON 

/ICNTRL/ 

NDOUT 

00058 

COMMON 

/ICNTRL/ 

NDPHY 

00059 

COMMON 

/ICNTRL/ 

NDSHF 

00060 

COMMON 

/ICNTRL/ 

NOT 

00061 

COMMON 

/ICNTRL/ 

NHMS 

00062 

COMMON 

/ICNTRL/ 

NHMSE 

00063 

COMMON 

/ICNTRL/ 

NHMSO 

00064 

COMMON 

/ICNTRL/ 

NLA  V 

00065 

COMMON 

/ICNTRL/ 

NLAYM1 

00066 

COMMON 

/ICNTRL/ 

NLA  YP 1 

00067 

COMMON 

/ICNTRL/ 

NSDAV 

00068 

COMMON 

/ICNTRL/ 

NSEQ 

00069 

COMMON 

/ICNTRL/ 

ICSP53 

00070 

COMMON 

/ICNTRL/ 

NSTEP 

0007  1 

COMMON 

/ICNTRL/ 

IBLKSIZ 

00072 

COMMON 

/ICNTRL/ 

NYMD 

00073 

COMMON 

/ICNTRL/ 

NYMDE 

00074 

COMMON 

/ICNTRL/ 

NYMDO 

00075 

COMMON 

/ICNTRL/ 

N2INIT 

00076 

COMMON 

/ICNTRL/ 

NMLEV 

00077 

COMMON 

/ICNTRL/ 

NDHOG 

00078 

COMMON 

/ICNTRL/ 

IQS  { 30 ) 

00079 

r* 

COMMON 

/ICNTRL/ 

IQU  MO) 

00080 

V 

EQUIVALENCE 

< ITMIN 

, IQS( 

1 ) ) 

00081 

EQUIVALENCE 

( I TMAX 

. I QS  < 

2 > ) 

00082 

EQUIVALENCE 

( IPREACC 

, I QS  ( 

3 > ) 

00083 

EQUIVALENCE 

( I PRECON 

, I QS1 

4 ) ) 

00084 

EQUIVALENCE 

( IHFLUX 

. IQS< 

5)  ) 

00085 

EQUIVALENCE 

UEFLUX 

, IQS< 

6)  ) 

00086 

EQUIVALENCE 

( IFUSION 

, IQS( 

7)  ) 

00087 

EQUIVALENCE 

( IRADSWG 

, IQS( 

8)  ) 

00088 

EQUIVALENCE 

( IRADLWG 

. IGS< 

9)  ) 

00089 

EQUIVALENCE 

( I I CLOUD 

, I 05 1 1 0 } ) 

00090 

EQUIVALENCE 

( IUFLUX 

f iQsni ) > 

0009  1 

Q 

EQUIVALENCE 

( IVFLUX 

. IOS( 12) > 

00092 

EQUIVALENCE 

( IOMEGA 

f IQU( 

1 ) ) 

00093 

EQUIVALENCE 

( IDIABAT 

, IQU< 

2 ) ) 

00094 

EQUIVALENCE 

( IRADSW 

, IQU( 

3 ) ) 

00095 

EQUIVALENCE 

< IRADLW 

, IQU< 

4)  ) 

00096 

EQUIVALENCE 

( ISENSBL 

. IGU< 

5)  ) 

00097 

Q 

EQUIVALENCE 

( I LATENT 

. IQU( 

6)  > 

00098 

EQUIVALENCE 

< ICO, IC< 1 

) > 

SVA00720 
SVA00730 
SVA00740 
SVA00750 
SVA00760 
SVA00770 
SVAO0780 
SVA00790 
SVA00800 
SVA00Q10 
SVA00820 
SVA00830 
SVA00840 
SVA00350 
SVA00860 
$VAOr>P?C 
$VA00880 
$VA00B90 
SVA00900 
SVA009  1 0 
SVA00920 
SVA00930 
SVA00940 
SVA00950 
SVA00960 
SVA00970 
SVA00980 
SVA00990 
SVA01000 
SVAO 1010 
$VA0 1020 
$VA0 1 030 
$VA0 1040 
SVAO 1050 
SVAO 1 060 
$VAO  1070 
SVA01080 
SVAO 1 090 
SVAO 1 100 
SVAO 1110 
SVAO 1 120 
$VAO  t 130 
SVAO  t 140 
SVAO 1 150 
SVAO 1 160 
SVA01 170 
SVAO 11 80 
SVAO 1 190 
$VAO I 200 
SVAO  1210 
SVAO 1220 
SVAO 1 230 
SVAO I 240 
SVAO 1 250 
SVAO  1260 
SVAO 1270 
SVAO 1280 
SVAO 1290 
SVAO 1300 
SVAO 13 10 
SVAO 1320 
SVAO 1 330 
SVAO 1340 
SVAO 1 350 
SVAO 1360 
SVAO 1370 
SVAO 1 380 
SVAO 1390 
SVAO 1400 
SVAO 14 10 
SVAO 1420 


00099 


INTEGER 


ICO,  I C ( 200 ) 


C 

C 

C 


LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00100 

COMMON  /LCNTRL/ 

LCO 

00101 

COMMON  /LCNTRL/ 

QALT 

00102 

COMMON  /LCNTRL/ 

Q8EG 

00103 

COMMON  /LCNTRL/ 

QDAY 

00  104 

COMMON  /LCNTRL/ 

QEND 

00105 

COMMON  /LCNTRL/ 

QOUT 

00106 

COMMON  /LCNTRL/ 

QPHY 

00  107 

COMMON  /LCNTRL/ 

QSHF 

00  108 

COMMON  /LCNTRL/ 

SN2FLG 

00  109 

COMMON  /LCNTRL/ 

QRSW 

00  110 

COMMON  /LCNTRL/ 

QRSH 

00111 

COMMON  /LCNTRL/ 

LQS ( 30 ) 

00112 

COMMON  /LCNTRL/ 

LQU { 10) 

00  1 13 

EQUIVALENCE 

< L TMI N 

001  14 

EQUIVALENCE 

(LTMAX 

001  15 

EQUIVALENCE 

{ LPRE ACC 

00116 

EQUIVALENCE 

< LPRECON 

00117 

EQUIVALENCE 

{ LHFLUX 

00118 

EQUIVALENCE 

(LEFLUX 

00119 

EQUIVALENCE 

(LFUSION 

00120 

EQUIVALENCE 

(LRADSWG 

00121 

EQUIVALENCE 

(LRADLWG 

00122 

EQUIVALENCE 

(LICLOUD 

00  123 

EQUIVALENCE 

(LUFLUX 

00124 

p 

EQUIVALENCE 

( LVF  LUX 

00125 

EQUIVALENCE 

< LOMEGA 

00126 

EQUIVALENCE 

( LD I AS AT 

00127 

EQUIVALENCE 

CLRADSW 

00  128 

EQUIVALENCE 

< LRADLW 

00129 

EQUIVALENCE 

< LSENS8L 

00  130 

Q 

EQUIVALENCE 

(LLATENT 

00131 

LOGICAL 

QALT 

00132 

LOGICAL 

QBEG 

00133 

LOGICAL 

QDAY 

00134 

LOGICAL 

QEND 

00  136 

LOGICAL 

QOUT 

00136 

LOGICAL 

QPHY 

00137 

LOGICAL 

QSHF 

00138 

LOGICAL 

SN2FLG 

00139 

LOGICAL 

QRSW 

00140 

Q 

LOGICAL 

QRSH 

00  141 

LOGICAL 

LQS 

00142 

LOGICAL 

LQU 

00143 

LOGICAL 

LTMIN 

00144 

LOGICAL 

LTMAX 

00145 

LOGICAL 

LPREACC 

00  146 

LOGICAL 

LPRECON 

00147 

LOGICAL 

LHFLUX 

00148 

LOGICAL 

LEFLUX 

00149 

LOGICAL 

LFUSION 

00150 

LOGICAL 

LRADSWG 

00151 

LOGICAL 

LRADLWG 

00152 

LOGICAL 

LICLOUD 

00153 

LOGICAL 

LUFLUX 

00  154 

p 

LOGICAL 

LVFLUX 

00155 

LOGICAL 

LOMEGA 

00  156 

LOGICAL 

LDIA8AT 

00157 

LOGICAL 

LRADSW 

00158 

LOGICAL 

LRADLW 

00  159 

LOGICAL 

LSENSBL 

00160 

c 

LOGICAL 

LLATENT 

, LQS  { n> 
. LQS ( 2)> 

* LQS ( 3) ) 
, LQS { 4)  ) 
♦ LOS ( 5)  ) 
, LQS ( 6)  > 
, LQS ( 7 > ) 
, LQS { 8)  > 
,LQS(  9) V 
, LQS { 10) > 

, LQS i 11)) 

, LOS (12) ) 

. LQU i 1>) 

. LQIM  2)) 

. LQU i 3)) 

, LQU { 4 ) ) 

, LQU  i 5)) 
. LQU 1 6 > ) 


$VAO 1 430 
SVAO  1440 
SVA0I450 
$VAO 1 460 
SVAO 1470 
SVAO  1480 
SVAO 1490 
SVAO 1500 
SVAO 15  10 
SVAO 1520 
SVAO 1 530 
SVAO 1 540 
$VAO 1550 
SVAO 1580 
SVAO 15^0 
SVM>irao 
$Va  '*590 
SVAO 1 GOO 
SVAO 1610 
SVAO 1620 
SVAO 1 630 
SVAO 1640 
SVAO 1 650 
SVAO 1660 
SVAO 1670 
SVAO 1 680 
SVAO 1 690 
SVAO 1700 
SVAO 17 10 
SVAO 1720 
SVAO 1730 
SVAO 1740 
SVAO 1750 
SVAO 1760 
SVAO 1770 
SVA017B0 
SVAO  *790 
SVAO 1800 
SVAO 18 10 
SVAO 1820 
SVA01S30 
SVAO 1 840 
SVAO 1850 
SVAO 1860 
SVAO 1070 
SVAO 1880 
SVAO 1890 
SVAO 1900 
SVAO 19 10 
SVAO 1 920 
SVAO 1 930 
$VA0 1 940 
SVAO 1950 
SVAO 1960 
SVAO 1970 
SVAO 1980 
SVAO 1 990 
SVA02000 
SVA02010 
SVAO 2020 
SVA02O3O 
SVA02040 
SVA02050 
SVAO 2060 
SVA02070 
SVA02080 
SVAO  2 09  0 
SVA02100 
SVA021 10 
SVAO 2 1 20 
SVA02130 


- - - m t-m*  ■ 9 * , , ► ■ 

OF  POOR  QUALITY 


00  1 6 f 
00  t62 


00163 

00164 

00165 
00  166 
00167 
00  168 
00169 
00  170 

00171 

00172 

00173 

00174 
00  175 

00176 

00177 
00  1 78 
00  179 
00  180 
00181 
00182 

00183 

00184 
00  185 
00186 

00187 

00188 

00189 

00190 

00191 

00192 

00193 
00  194 
00  195 

00196 

00197 

00198 

00199 

00200 
00201 
00202 
00203 
00204 


EQUIVALENCE 

LOGICAL 


< LCO , LC  < I ) ) 
LCD,  LC ( 200  > 


00207 

00208 

00209 

00210 
0021  1 
00212 

00213 

00214 
002  15 
002  16 
00217 


C REAL  MODEL  PARAMETERS  SAVED  ON  HI 
C = ssc  = = - = = - - = = - = - s _ s „ = 

COMMON  /RCNTRL / RCO 

COMMON  /RCNTRL/  APHEL 

COMMON  /RCNTRL/  BETA 

COMMON  /RCNTRL/  COSD 

COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYS PV 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  DECMAX 
COMMON  /RCNTRL/  DIST 
COMMON  /RCNTRL/  DL AT 
COMMON  /RCNTRL/  DLON 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNU  1 
COMMON  /RCNTRL/  GNU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  OMEGA 2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI  2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PIMEAN 
COMMON  /RCNTRL/  PSMAX 
COMMON  /RCNTRL/  PSMIN 
COMMON  /RCNTRL/  PTOP 
COMMON  /RCNTRL/  RADE 
COMMON  /RCNTRL/  RGAS 
COMMON  /RCNTRL/  ROCP 
COMMON  /RCNTRL/  RSDIST 
COMMON  /RCNTRL/  SDAY 
COMMON  /RCNTRL/  SEASON 
COMMON  /RCNTRL/  SIGE  ( 25 > 
COMMON  /RCNTRL/  SIND 
COMMON  /RCNTRL/  SOLS 
COMMON  /RCNTRL/  TSTD 
COMMON  /RCNTRL/  PLEVS  (25) 
COMMON  /RCNTRL/  HEATW 
COMMON  /RCNTRL/  HEATI 
COMMON  /RCNTRL/  EPS 
COMMON  /RCNTRL/  EPSFAC 
COMMON  /RCNTRL/  CALTOJ 
COMMON  /RCNTRL/  PZERO 

C 

change^o’ha^Ilete  {RC0'RC,n’ 

CHANGE  TOLHALF  COMMENT*?0'  RC(‘00> 

C HALF  PRECISION  RCO,  RC(400) 

C INTEGER  MODEL  CONSTANTS 

C — “ = “ = “ — “ “ = = S ^ S “ “ S = — 2 — — — 

COMMON  / I DP ARM/  IJUMP  <46 ) 
COMMON  / I DPARM/  IDSP02 
COMMON  / I DPARM/  INDEX  (72) 
COMMON  / I DPARM/  IROD 
COMMON  /IDPARM/  JC  (46) 

COMMON  /IDPARM/  dE  (2) 

COMMON  /IDPARM/  JP  (22) 

COMMON  /IDPARM/  KSTEP 
COMMON  /IDPARM/  Md  M6) 

COMMON  /IDPARM/  NHMS1 
COMMON  /IDPARM/  NVMD1 

Q LOGICAL  MODEL  CONSTANTS 

COMMON  /LDPARM/  FILTER  <46> 


002  18 


in  a 


0 


SVA02  140 

SVA02150 

SVA02160 

SVA02170 

SVA02180 

SVA02190 

SVA02200 

SVA022 1 0 

SVA02220 

SVA02230 

SVA02240 

SVA02250 

SVA02260 

SVA02270 

SVA02280 

$VA02290 

$V A 02300 

SVA023 1 O 

SVA02320 

SVA02330 

SVA02340 

SVA02350 

SVA02360 

SVA02370 

SVA02380 

SVA02390 

SVA02400 

SVA02410 

SVA02420 

SVA02430 

SVA02440 

SVA02450 

SVA02460 

SVA02470 

SVA02480 

$VA 02490 

SVA02500 

SVA025 f 0 

SVA02520 

SVA02530 

SVA02540 

SVA02550 

SVA02560 

SVA02570 

SVA02580 

SVA02590 

SVA02600 

SVA02610 

$VA02620 

SVA02630 

SVA02640 

SVA02650 

$VA02660 

SVA02670 

SVA02680 

SVA02690 

SVA02700 

SVA02710 

SVA02720 

SVA02730 

SVA02740 

SVA02750 

SVA02760 

SVA02770 

SVA02780 

SVAQ2790 

SVA02800 

SVA02810 

SVA02820 

SVA02830 

SVA0284O 


ORIGINAL  PAGE  B 

_ » m# 


00219 

COMMON 

/LDPAftM/ 

I TAPE 

$VA02850 

00220 

COMMON 

/LDP ARM/ 

START 

$VA02860 

C 

SVA02B70 

00221 

LOGICAL 

FILTER 

SVA  02880 

00222 

LOGICAL 

I TAPE 

SVA02890 

00223 

LOGICAL 

START 

SVA02900 

C 

SVA02910 

C 

REAL  MODEL 

CONSTANTS 

SVAO  2920 

c 

-=======: 

=■  = 

SVAO  2930 

00224 

COMMON 

/ RDP ARM/ 

ADLDP 

SVA02940 

00225 

COMMON 

/ RDP ARM/ 

CONI 

SVA02950 

0 0226 

COMMON 

/ RDP ARM/ 

CON  IDT 

SVA02960 

00227 

COMMON 

/ RDP ARM/ 

CON  2 

SVA02970 

00228 

COMMON 

/RDP ARM/ 

C0N2DT 

SVA02980 

00229 

COMMON 

/RDP ARM/ 

CON3 

SVAO  2990 

00230 

COMMON 

/RDPARM/ 

C0N3DT 

SVA03000 

00231 

COMMON 

/ RDPARM/ 

CON4 

SVA03010 

00232 

COMMON 

/RDPARM/ 

C0N4DT 

SVA03020 

00233 

COMMON 

/ RDP  ART/  ' 

C0N5 

SVA03030 

00234 

COMMON 

/RDPARM/ 

COSL 

(46  ) 

SVAO  304  0 

00235 

COMMON 

/RDPARM/ 

COSLON 

(72  > 

SVA03050 

00236 

COMMON 

/RDPARM/ 

CPD2 

SVA03060 

00237 

COMMON 

/RDPARM/ 

DXP 

(46  > 

SVA03070 

00239 

COMMON 

/RDPARM/ 

DXYP 

(46  ) 

SVA03080 

00239 

COMMON 

/RDPARM/ 

DYP 

<46  > 

SVA03090 

00240 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

SVA03100 

0024  1 

COMMON 

/RDPARM/ 

F IDT 

SVAO 3 f 10 

00242 

COMMON 

/RDPARM/ 

F2DT 

SVA03120 

00243 

COMMON 

/RDPARM/ 

HIDT 

SVA03130 

00244 

COMMON 

/RDPARM/ 

H2DT 

SVAO 3 t 4 0 

00245 

COMMON 

/RDPARM/ 

PKSTD 

SVA03150 

00246 

COMMON 

/RDPARM/ 

PKTOP 

SVA03160 

00247 

COMMON 

/RDPARM/ 

RLAT 

(46) 

SVA03170 

00248 

COMMON 

/RDPARM/ 

RLATD 

(46) 

SVA03180 

00249 

COMMON 

/RDPARM/ 

ROCPDT 

SVA03190 

00250 

COMMON 

/RDPARM/ 

ROCPP 1 

SVA03200 

0025  1 

COMMON 

/RDP^’M/ 

SGNP 

(2) 

SVA03210 

00252 

COMMON 

/RDPaRM/ 

SINL 

(46) 

SVA03220 

00253 

COMMON 

/RDPARM/ 

SINLON 

(72) 

SVA03230 

00254 

COMMON 

/RDPARM/ 

THSTD 

SVA03240 

00255 

COMMON 

/RDPARM/ 

THSTD2 

SVA03250 

00256 

COMMON 

/RDPARM/ 

WSAVE 

( 159) 

SVA03260 

00257 

COMMON 

/RDPARM/ 

DSIG 

(9) 

SVA03270 

00258 

COMMON 

/RDPARM/ 

51G 

(9) 

SVA03280 

00259 

COMMON 

/RDPARM/ 

DSIGINV 

(9) 

SVA03290 

c 

SVA03300 

CCOMDECK  VOANDOT • 

SVA03310 

C 

SVA03320 

c 

COMDECK  VOANDQT  RESOLUTION 

VALUES 

SVA03330 

c 

SVA03340 

c 

m 

= 72 

SVA03350 

c 

NLA  Y 

= 9 

SVA03360 

c 

JM*  1 

-46 

SVA03370 

c 

NLAY*  1 1 

= 99 

SVA03380 

c 

IM+NLAY* 1 1 

= 7 128 

SVA03390 

c 

JM/2+1 

= 23 

SVA03400 

c 

SVA03410 

c 

GLOBAL  MODEL  PROGNOSTIC  FIELDS  (NEEDED  IN  COMPO) 

SVA0342O 

$VflUJ40U 

c 

SVA03440 

00260 

COMMON 

/ OANDOT / Q PROG (72*9, 1 1 ,45) 

SVA03450 

c 

SVA03460 

00261 

DIMENSION 

PHIS 

(7128,1) 

SVA03470 

00262 

DIMENSION 

SMITH 

(7128,23) 

SVA03480 

00263 

DIMENSION 

ALBEDO 

<7128,1) 

SVA03490 

00264 

DIMENSION 

GT 

<7128,  n 

SVA03500 

00265 

DIMENSION 

GW 

(7128,1) 

SVA035 1 0 

00266 

DIMENSION 

TS 

<7i2e,  i ) 

SVA03520 

00267 

DIMENSION 

SHS 

(7128,  1 ) 

SVA03530 

00268 

DIMENSION 

P 

(72,99,1) 

SVA03540 

C SVA03550 
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00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 

00280 
00281 

00282 

00283 

00284 

00285 
00285 


00287 

00288 
00289 

00290 


00291 

00292 

00293 

00294 


00295 

00296 

00297 


00298 


00299 

00300 
0030  1 

00302 

00303 


00304 

00305 

00306 


. P 

lu— ■ 


\ \ 


1 .ji  - V • |TT 


C 

c 

c 

c 


dimension 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUI VALENCE 


U 

V 

T 

SH 

PHI 


<72 


< QPROG  < 1 , 
( QPROG ( I , 
( QPROG< 1 , 

< QPROG ( 1 , 

< QPROG  < 1 , 

< QPROG  < 1 . 

< QPROGf  1 , 
t QPROG( 1 , 

( QPROG < 1 , 
< QPROG < f , 
< QPROG < 1 , 

< QPROG ( I . 
(QPROGf 1 , 


9 , 

1 1 , 

1 ) 

9 » 

1 1 , 

1 ) 

9, 

1 1 . 

1 ) 

9, 

1 1 . 

1 ) 

9 , 

I 1 , 

1 ) 

1 

1 ) 

, PHI 

S 

< 

1 > 

) 

2 

.SMTH 

< 

1 ) 

> 

3 

t ) 

, ALBEDO  < 

t ) 

) 

4 

, GT 

t ) 

) 

5 

1 > 

, GW 

1 ) 

) 

6 

1 ) 

, TS 

1 ) 

> 

7 

1 ) 

. SHS 

1 ) 

> 

8 

* 1 

1 > 

, P 

1 , 

1 ) ) 

2 

1 ) 

,u 

< 1 

, 1 

, 1 

) ) 

4 

1 ) 

, V 

< 1 

. 1 

, t 

) ) 

6 

, T 

< 1 

. 1 

. ! 

) ) 

8 

1 ) 

, SH 

( 1 

, 1 

. t 

) ) 

10 

1 ) 

, PHI 

< f 

, 1 

, 1 

) ) 

SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELOS  <NOT  NEEDED  IN  COMPO) 


CONIMON 

BIT 

EQUIVALENCE 


/ OANDQT/  QSDIAGI72  ,15.46) 

BQSD I AG  < 64 , 72,15,46) 

< QSDI AG , BQSDIAG) 


COMMON 
C 

CCOMDECK  VWORK1D 
C 

ONE-DIMENSIONAL  WORK  AREAS 


/ QANDQT / QUO I AG  <72,9,  5.46) 


C 

C 


= = = - c = s s 


COMMON 
CHARACTER 1 
COMMON 
COMMON 


8 


CARD 

CARD 

DATA 

CATA 


<10  > 

< 144) 

< 144  ) 


CCOMDECK  VAVRXV/K 

COMMON  PQ ( 37 , 72 ) 
COMMON  PK  < 72 , 9 ) , 
COMMON  GAM  < 9 } 
CCOMDECK  VIMUM 
C 

C DIMENSIONING  PARAMETERS 
COMMON  /I MUM/ 

$ 

$ IMNLAY. 

$ IMD2M I , 

$ NLAYT2. 

C 

CCOMDECK  VIFAX 
C 

C FACTORS  FOR 


QP (37,72) 
PTC72.9) 


I MM  1 , 
IMT2, 
IMNLAY 1 , 


I MM2  , 
IMT4, 
IMNLAY2. 


NLAYT3,  NLAYT4. 


I MM3, 
IMNLAY3, 
NLAYT5 , 


IMM4 , 
IMNLAY4, 


IMM5 , 
I UNLAYS , 


NLAVT6,  NLAYT7 


COMMON 

COMMON 

REAL 

COMMON 

COMMON 


FFT 

/ 1 FAX/ 
/ 1 FAX/ 

/ 1 FAX  / 
/ I F A X / 


I FAX 

TRIGS 

TRIGS 

NLAYT4P1 

NLAVT8P2 


( 10 
(72) 


C 

g »D!PV  TEMPERATURE  TO  CONSTANT  PRESSURE  SURFACE 

C 

CALL  ZE I TBEG  < 8HLAPSE  ) 

CALL  LAPSE  < J , GAM) 

CALL  ZEITEND 


«'♦*♦**< 


SVA03560 

$VA03570 

SVA03580 

$VA03590 

SVA03600 

SVA03610 

SVA03620 

SVA03630 

SVA03640 

SVA03650 

SVA03660 

SVA03670 

SVA03680 

SVA03690 

SVA03700 

SVA03710 

SVA03720 

SVA03730 

SVA03740 

SVA03750 

SVA03760 

SVA03770 

SVA037B0 

SVA03790 

SVA03800 

$VA038 10 

$VA03820 

SVA03830 

SVA03840 

SVA03850 

SVA03860 

SVA03870 

SVA03880 

SVA03890 

SVA03900 

SVA03910 

$VA  03920 

SVA03930 

SVA03940 

SVA03950 

SVA03960 

SVA03970 

SVA03980 

SVA03990 

$VA04000 

SVA040  TO 

SVA04020 

SVA04030 

SVA04040 

SVAO4O50 

SVA04060 

SVA04070 

SVA04080 

SVA04090 

SVA04100 

SVA041 10 

SVA04120 

SVA04T30 

$VA04 1 40 

SVA04 150 

SVA04 160 

SVA04 170 

SVA04180 

SVA04190 

SVA04200 

SVA04210 

SVA04220 

SVA04230 

SVA04240 

SVA04250 

SVA04260 


° § 

§1 
33  ji 

•O 

> es 

C K] 

3^ 


00307 

00308 

00309 


00310 
003  1 ! 

00312 

00313 
003  1 4 
00315 


00316 

00317 

00318 
003  19 
00320 


00321 


00322 


00323 

00324 

00325 

00326 

00327 


00328 


DO  10  L- 1 , NLA V 

PT(1,L;IM>  = T ( 1 ,L,NB,d;IM)  + 51 G ( L ) +GAM( L ) *PHI S< 1 * d ; IM) 
10  CONTINUE 


♦ ***  GIVEN  BY  NEXT  5 LINES 
+ + » + *-  + + <»  + + + + + + + • + * + + * + + *■  + + + + + 


+ ♦ * ♦ 

EXP (PHIS/ < RGAS* f TS4  . 5 * BE TA • PHI S/GRAV ) > > ♦♦♦* 


♦♦♦♦  SURFACE  TO  SEA-LEVEL  PRESSURE  EXPONENT  FUNCTION 

♦ SLEXP ( TS .PHIS) 


r * *+++■  + + + ■» 


► ♦ < 


BE7AG5  = .5E0+BETA/GRAV 

CATA  < 1 ; I M > = TS ( 1 , J ; I M ) ♦ BETAG5 ♦ PHI S ( 1 . J ; I M ) 

CATA<1;IM)  = RGAS*CATA M ; IM) 

CATA(ljIM)  » PHIS( 1 , J;IM)/CATA( 1;XM) 

CATA ( 1 ? IM>  - VEXP(CATA( 1 ; IM) ;CATA{ 1 ; I M > ) 
PM,NB,d;SM)  o ( P ( 1 . NB  , d ; IM ) + PTOP ) ♦ CATA < 1 ; I M > 


♦ FILTER  QUANTITIES*  U>  V.  PT,  SH,  SLP  ♦ ♦ * ♦ 

DO  20  L=  t T NLA Y 


v + + + + + * ♦ * i 


M + t*  >»♦♦  + **< 


CHANGE  TO  HALF  DELETE  8 

PQ  < L . 1 ; IM)  = 

$ Q8VSCATP ( Ut 1 .L.NB, J: I M> .NLAYT4P1 t IM;PQ<  L,T;IM>) 

PQ (NLAY  +L.1;IM>=  

$ Q8VSCATP ( V( t tLtNB,d; IM) .NLAYT4P1 , IM;PQ(NLAY  ♦L,t;IM>) 

PQ ( NLAYT2+L , 1 ; 1M)=  

$ QBVSCATP ( PT ( 1 , L ; I M > , NLAYT4P 1 « IM ; PQ ( NLA YT2  + L , t ; IM) ) 

PQ (NLA YT3*L t 1 ; IM)  “ 

S QBVSCATP (SH( f , L ,NB.d ; IM) .NLAYT4P1 t IM ; PQ < NLA YT3+L , 1 ; IM) > 


*•  * * * 

+ + + •¥ 

+ '+***  + + + ■*+4 


+ **++  + * + + + + + + + + *■  + +'4’  + *+  + +++  + + + ++  + ++'*  + +*+  + + + ++  + + + '*'*  + + +'+  + * * * 

THE  FOLLOWING  CODE  IN  COMMENTS  IS  HALF  ♦ ♦ * ♦ 

PRECISION  VERSION  OF  THE  ABOVE  4 STATEMENTS. 

++++*+++++  *+  + + + +.+  + + + + ■+'+*'+  + + + + +•+••*  + • + + + * + + ■*’*'*+***■  **+*  + *+  + + 


C 
c 
c 

C 

c 

C 

CHANGE  TO  HALF  COMMENT  4 

C CALL  HSCATRP ( U ( 1 . L . NB > d : IM) , NLAYT4P 1 , IM , PQ ( Lt1;IMM 

C CALL  HSCATRP(  V (1 « L t NB , d ; I M ) , NL AYT4P 1 , IM , PQ ( NL A Y +L,1;IM>) 

C CALL  HSCATRP ( PT < 1 , L ; IM) , NLAYT4P 1 , IM , PQ ( NLA YT2 » L „ 1 ; IM) ) 

C CALL  HSCATRP t SH ( 1 , L f NB , J : IM)  * NLAYT 4P 1 . IM > PQ ( NL A YT3  + L , 1 ; IM) ) 

20  CONTINUE 

C 

CHANGE  TO  HALF  DELETE  2 
PQ  < NLA YT4+ 1,1; IM)  = 

$ QBVSCATP  ( P<  1 ,NBtd;  !M>  , NLAVT4P 1 . IM; PQINLAYT4 M , 1 ;IM)  > 

C 

CHANGE  TO  HALF  COMMENT  1 , . 

C CALL  HSCATRP ( P { 1 , NB , J ; IM ), NLA YT4P 1 . IM , PQ ( NLA YT4 M f 1 : IM > ) 

C 

c 

Q **++-+++♦  + **  + **t*.*++  + *>**-*  + ****'«r  ♦'*♦*♦**♦■♦'*♦*  + +*•  + + + + *+  + + + + + + *+  + + + + + ' 

c ♦ * + ♦ FORWARD  AND  BACKWARD  TRANSFORMS 

C V)ITH  COEFFICIENT  DAMPENING 

Q ■+*  + **-*****ir*jr**»’*-*«***1i'«'*'*  + + -*+*’*  + **+'*''*1«»*  *♦*♦♦*♦♦♦♦*♦♦♦*♦*  * ♦ 4 ♦ ¥ r * ' 

c 

CALL  FFT77 ( PQ , QP . TR IGS, IFAX , IM  * NLA YT4P 1 ,-1  ) 

DO  40  1=1, IMD2M1 

40  QP ( 1 ♦ 1*2: NL A YT8P2 ) = QP { 1 . I ♦ 2 ; NLA YTBP2 ) ♦ SMTH < I ,J> 

QP(1,XM  ; NLA  YT4P  1 ) =:  QPM.IM  ; NLAYT4P  1 ) +SMTH<  IMD2  , J ) 

C 

CALL  FFT77(QP,PQp  TRIGS  . IFAX , IM.  NLAYT4P  t » 1) 


i * ♦ + * 
*♦♦♦ 


****  RECOMPUTE  U.  V,  SH , PT.  SLP 

DO  30  L = 1 » NLAY 


+++++++++++ +*++++* 
M ♦< 

+ ,»+++  + *+  + + + + + +'  + +■  + ++  + ++  + •+  + + + + ++  + +* 


SVA04270 

SVA042B0 

SVA04290 

SVA04300 

SVA04310 

SVA04320 

SVA04330 

SVA04340 

SVA04350 

$VA043G0 

SVA04370 

$VA04380 

SVA04390 

$VA04400 

SVA04410 

SVA04420 

5VA04430 

SVA04440 

SVA04450 

SVA04460 

SVA04470 

SVA044B0 

SVA04490 

SVA04500 

SVA04S10 

SVA04520 

$VA04530 

SVA04540 

SVA04550 

$VA04560 

SVA04570 

SVA04580 

SVA04590 

$VA04600 

SVA04610 

SVA04620 

SVA04630 

SVA04G40 

SVA04650 

$VA04660 

SVA04670 

SVA046B0 

SVA04690 

SVA04700 

$VA04710 

SVA04720 

$VA04730 

$VA04740 

SVA04750 

$VA047G0 

$VA04770 

$VA04780 

SVA04790 

SVA04800 

SVA04810 

SVA04820 

SVA04830 

SVA04840 

SVA04850 

SVA04860 

SVA04B70 

SVA04880 

SVA04890 

SVA04900 

SVA04910 

SVA04920 

$VA04930 

SVA04940 

SVA04950 

SVA04960 

$VA04970 


% 

s 
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00329 

00330 
0033  t 
00332 


00333 

00334 


00335 

00338 

00337 

00338 

00339 

00340 


CHANGE  TO  HALF  DELETE  8 

U ( I , L , NB , vl ; I M)  = Q8VGATHP < PQ ( L , 1 ; NLAVT4P 1 * IM> 

PT<  1 ,L;IM>  = Q8VGATHP  VpQ  (NL  A VT2+Llf  1 ; NLA YT4P  j * i*M  ) 
SH  ( , , L , NB , d ; I M ) = Q8VGATHpVpQ<NLAVT3»L  , I ; NLA  YT4P  j * HVti 

c * NLAYT4P1 , IM;SH( 1 ,L.NB. Ji IM) ) 

2 ****  Jnf„£2VLPWIMG  cooe  in  comments  is  half 

c 

CHANGE  TO  HALF  COMMENT  8 

C CALL  HGATHRP(PQ<  L , I ;NLAVT4P1 ♦IM) , 

5?  5 NLAYT4P  1 , IM.  U ( 1 . L . NB 

S * CALL  HGATHRP  ( PQ  ( NLA Y + L , 1 ; NLAYT4P  1 MM) 

S ® . NLAYT4P1  , IWI,  V ( 1 , L . NB , J * IM)  ) 

S * CALL  HGATHRP ( PQ (NLAYT2+L , I ; NLA YT4P 1 * IM ) 

S ® A,4  NLAYT4P 1 , IM, PT  < 1 t L -hi)) 

S ^ CALL  HGATHRP { PQ (NLA YT3  + L , t : NLA YT4P  t + IM) 

C NLAYT4P 1 . IM, 3H{ 1 t L , NB , J * I M) ) 

30  CONTINUE  ’ ’ 1 

C 

CHANGE  TO  HALF  DELETE  2 

P ( t , NB  , J ; IIW>  = 0BVGATHP<PQ<NLAVT4M.1;NLAVT4PI.IM), 
c S NLA VT4P I , IM i P ( 1 , NB, J ; IM  j > ’ 

CHANGE  TO  HALF  COMMENT  2 

C CALL  HGATHRP (PQ(NLAYT4+ 1 r 1 ; NLAYT4P 1 *IM? 

£ 3 NLAYT4P  t , IM,  P ( 1 , »J9  r d ; IM ) > 

5 my* ***********»♦*:*«♦♦**********♦.♦***.♦*♦.*.,,»♦*.*.», 

2 tZ*t  CALCULATE  PI-PHESSURE  AND  TEMPERATURE  FROM 

2 *111  FILTERED  SEA-LEVEL  PRESSURE  AND 

£ ****  MODIFIED  TEMPERATURE 

c 

Pit, NB , J ; I M ) = Pit, NB , J ; I M > / C A T A ( 1 ; I M > - PTOP 


DO  50  L=1 , NLAY 
T < 1 ,L,NB, J; IM) 
50  CONTINUE 

RETURN 

END 


PT(1tL;IM)  - S I G i L ) ♦ GAM  < L > ♦ P H I S ( t td; 


STATEMENT  LABEL  MAP 
- -LABEL DEFINED REFERENCES 


VARIABLE  MAP 
--NAME 


ADATE 

ADLDP 

ALBEDO 

APHEL 

ATIME 

AVRX 

BETA 

BE TAGS 

SQSDIAG 

CALTOJ 


-BLOCK 

TYPE 

CLASS 

-REFERENCES 

CCNTRL 

CHAfl*8 

SIMPLE 

4 

1 7 

RDPARM 

REAL 

SIMPLE 

224 

QANDQ T 

REAL 

ARRAY 

263 

276 

RCNTRL 

REAL 

SIMPLE 

164 

CCNTRL 

CHAR +8 

SIMPLE 

SUBROUTINE 

5 

1 

18 

RCNTRL 

REAL 

SIMPLE 

165 

310 

QANDQT 

REAL 

SIMPLE 

3 1 0/S 

3 1 1 

BIT 

ARRAY 

288 

209 

RCNTRL 

REAL 

SIMPLE 

203 

■ •*  ....... 

A=ARGLIST, 


. , JZXfci*-* 


SVA049S0 
SVA04990 
SVA05000 
$VA050t0 
SVA05020 
SVA05030 
SV A 05 040 
SVA05050 
SVA05060 
SVA05070 
*♦*  + ♦ SVA05080 
♦♦♦♦  $VA05090 
***  + SVA05  t 00 
SVAOSttO 
SVA05120 
SVA05130 
$VA05 140 
SVA05 t50 
$VA05160 
$VA05 170 
$VA0S180 
SVA05190 
SVA05200 
SVA052 1 0 
SVAC5220 
SVA05230 
SVA05240 
SVA05250 
SVA05260 
SVA05270 
SVA05280 
SVA05290 
SVA05300 
SVA05310 
SVA05320 
SVA05330 
$VA0S340 
****  $VA05350 
SVA05360 
SVA05370 
$VA05380 
$VA053P'J 
SVACu«*00 
SVA0S410 
SVA05420 
SVA05430 
$VA05440 
SVA05450 


*o  0 

02 

Q > 

33  F 

lO  "O 

c s» 

> @ 

f-  m 


OF  DO,  I = DATA  INIT,  REREAD,  S=STORE,  WaWRITE 


J*..Ouk 


CARD 

CATA 

CC 

CCO 

CCNTRL 

CCSP06 

CCSP07 

CCSP08 

CONI 

CON  IDT 

C0N2 

CON2DT 

C0N3 

CON3DT 

CON4 

C0N4DT 

CONS 

COSD 

COSL 

COSl.ON 

CP 

CPD2 

CQS 

COU 

DATA 

DAYSPY 

DEC 

DECMAX 

DIST 

DLAT 

DLON 

DSIG 

DSIGINV 

DT 

DXP 

DXYP 

DYP 

ECCN 

EPS 

HPSFAC 

F IDT 

F2DT 

FCORLS 

FILTER 

GAM 

GNU  I 

GNU  2 

GRAV 

GT 

GW 

HtOT 

H2DT 

HEATI 

HEATW 

I 

I BLKS I Z 

IC 

ICO 

ICNTRL 


ICSP53 

IDIABAT 

IDPARM 

IDSP02 

IEFLUX 

I F A X 


// 

CHAR  * 8 

ARRAY 

291 

292 

// 

REAL 

ARRAY 

294 

31  1 

CCNTRL 

CHAR  *8 

ARRAY 

15 

16 

CCNTRL 

CHAR  >8 

5 1 fi/l  P L E 

3 

15 

REAL 

UNKNOWN 

3 

4 

CCNTRL 

CHAR  *8 

SIMPLE 

1 4 
8 

2 1 

CCNTRL 

CHAR  *8 

SIMPLE 

9 

22 

CCNTRL 

CHAR  +8 

SIMPLE 

to 

23 

RDPARM 

REAL 

SIMPLE 

225 

RDPARM 

REAL 

SIMPLE 

226 

RDPARM 

REAL 

SIMPLE 

227 

RDPARM 

REAL 

SIMPLE 

228 

RDPARM 

REAL 

SIMPLE 

229 

RDPARM 

REAL 

SIMPLE 

230 

RDPARM 

REAL 

SIMPLE 

23  1 

RDPARM 

REAL 

SIMPLE 

232 

RDPARM 

REAL 

SIMPLE 

233 

RCNTRL 

REAL 

SIMPLE 

166 

RDPARM 

REAL 

ARRAY 

234 

RDPARM 

REAL 

ARRAY 

235 

RCNTRL 

REAL 

SIMPLE 

167 

RDPARM 

REAL 

SIMPLE 

236 

CCNTRL 

CHAR+B 

ARRAY 

13 

26 

CCNTRL 

CHAR  * 8 

ARRAY 

14 

27 

// 

REAL 

ARRAY 

293 

RCNTRL 

REAL 

SIMPLE 

168 

RCNTRL 

REAL 

SIMPLE 

1 69 

RCNTRL 

REAL 

SIMPLE 

170 

RCNTRL 

REAL 

SIMPLE 

171 

RCNTRL 

REAL 

SIMPLE 

172 

RCNTRL 

REAL 

SIMPLE 

173 

RDPARM 

REAL 

ARRAY 

257 

RDPARM 

REAL 

ARRAY 

259 

RCNTRL 

REAL 

SIMPLE 

174 

RDPARM 

REAL 

ARRAY 

237 

RDPARM 

REAL 

ARRAY 

238 

RDPARM 

REAL 

ARRAY 

239 

RCNTRL 

REAL 

SIMPLE 

175 

RCNTRL 

REAL 

SIMPLE 

20  1 

RCNTRL 

REAL 

SIMPLE 

202 

RDPARM 

REAL 

SIMPLE 

24  1 

RDPARM 

REAL 

SIMPLE 

242 

RDPARM 

REAL 

ARRAY 

240 

LDPARM 

LOGICAL 

ARRAY 

218 

22  1 

// 

REAL 

ARRAY 

297 

305 

RCNTRL 

REAL 

SIMPLE 

176 

RCNTRL 

REAL 

SIMPLE 

177 

RCNTRL 

REAL 

SIMPLE 

178 

3 1 0 

QANDQT 

REAL 

ARRAY 

264 

277 

QANDQT 

REAL 

ARRAY 

265 

278 

RDPARM 

REAL 

SIMPLE 

243 

RDPARM 

REAL 

SIMPLE 

244 

RCNTRL 

REAL 

SIMPLE 

200 

RCNTRL 

REAL 

SIMPLE 

199 

INTEGER 

SIMPLE 

324/C 

325 

ICNTRL 

INTEGER 

SIMPLE 

71 

ICNTRL 

INTEGER 

ARRAY 

98 

99 

ICNTRL 

INTEGER 

SIMPLE 

28 

98 

INTEGER 

UNKNOWN 

28 

29 

39 

40 

50 

5 1 

61 

62 

72 

73 

ICNTRL 

INTEGER 

SIMPLE 

69 

ICNTRL 

INTEGER 

UNKNOWN 

93 

INTEGER 

UNKNOWN 

207 

208 

IDPARM 

INTEGER 

SIMPLE 

208 

ICNTRL 

INTEGER 

UNKNOWN 

85 

I FA  X 

INTEGER 

ARRAY 

299 

299 

312/S 

16 

5 


308 


32G 


99 
30 
4 1 
52 
63 
74 


209 


300 


317 

3t3/S 

313 

314/S 

314 

314 

315 

335 

6 

7 

8 

9 

to 

1 1 

12 

13 

O o 


O 

o 

70 

<o 

e 

r; 

3 


o 

p 

r-1 


o1 

fr 1 


337 


325 


31 

32 

33 

34 

35 

36 

37 

33 

42 

43 

44 

45 

46 

47 

48 

49 

53 

54 

55 

56 

57 

58 

59 

60 

64 

65 

66 

67 

68 

69 

70 

7 1 

75 

76 

77 

78 

79 

2 10 

21  1 

212 

2 13 

214 

215 

2 16 

217 

302 

303 

323 

327 

VO 


O ■ 


. I 


l 


V '• 


AX’* 


■ iT  ■; 


IFUSION 

ICNTRL 

INTEGER 

UNKNOWN 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

I JUMP 

I DP ARM 

INTEGER 

ARRAY 

I LATENT 

ICNTRL 

INTEGER 

UNKNOWN 

IM 

ICNTRL 

INTEGER 

SIMPLE 

IMD  2 

ICNTRL 

INTEGER 

SIMPLE 

IMD2M1 

IMJM 

INTEGER 

SIMPLE 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

IM  JM 

INTEGER 

UNKNOWN 

l MM  1 

IMJM 

INTEGER 

SIMPLE 

I MM2 

IMJM 

INTEGER 

SIMPLE 

I MM3 

IMJM 

INTEGER 

SIMPLE 

I MM 4 

IMJM 

INTEGER 

SIMPLE 

IMM5 

IMJM 

INTEGER 

SIMPLE 

IMNLAY 

IMJM 

INTEGER 

SIMPLE 

IMNLAY1 

IMJM 

INTEGER 

SIMPLE 

IMNLAY2 

IMJM 

INTEGER 

SIMPLE 

IMNLAY3 

IMJM 

INTEGER 

SIMPLE 

IMNLAY4 

IMJM 

INTEGER 

SIMPLE 

IMMLAY5 

IMJM 

INTEGER 

SIMPLE 

IMT2 

IMJM 

INTEGER 

SIMPLE 

IMT4 

IMJM 

INTEGER 

SIMPLE 

INDEX 

IDPARM 

INTEGER 

ARRAY 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

IQS 

ICNTRL 

INTEGER 

ARRAY 

IQU 

ICNTRL 

INTEGER 

ARRAY 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

ISENSBL 

ICNTRL 

INTEGER 

UNKNOWN 

I TAPE 

LDPARM 

LOGICAL 

SIMPLE 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

IUFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

I VF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

J 

INTEGER 

SIMPLE 

JC 

IDPARM 

INTEGER 

ARRAY 

JE 

IDPARM 

INTEGER 

ARRAY 

JIC 

CCNTRL 

CHAR  * 8 

SIMPLE 

JM 

ICNTRL 

INTEGER 

SIMPLE 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

J04 

ICNTRL 

INTEGER 

SIMPLE 

JOB 

ICNTRL 

INTEGER 

SIMPLE 

JOB 

CCNTRL 

CHAR  + 8 

SIMPLE 

JP 

IDPARM 

INTEGER 

ARRAY 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

KS 

ICNTRL 

INTEGER 

SIMPLE 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

KU 

ICNTRL 

INTEGER 

SIMPLE 

L 

INTEGER 

SIMPLE 

86 

84 

89 

207 

97 


29 

308 

308 

308 

31  1 

3 13 

314 

314 

3 14 

315 

3 18 

3 18 

318 

3 18 

319 

320 

322 

322 

322 

322 

329 

329 

330 

330 

330 

332 

332 

332 

334 

334 

337 

337 

30 

326 

298 

324 

31 

298 

298 

298 

298 

29B 

298 

298 

298 

298 

298 

298 

298 

298 

298 

209 

92 

82 

83 


78 

80 

8 1 

82 

83 

90 

91 

79 

92 

93 

94 

95 

95 
88 
94 
87 

2 1 0 

96 

219  222 

81 
80 

90 

91 


1 

305 

308 

308 

31  1 

320 

322 

325 

326 

329 

334 

335 

335 

337 

337 

21  1 

2 1 2 

6 

19 

33 

34 

35 

36 

37 

38 

7 20 

2 13 

39 

40 
4 1 

42 

43 
2 14 

44 

307/C  308  308  308  308 

318  319  319  319  320 


31  1 

31  1 

312 

312 

313 

313 

315 

3 15 

317 

317 

317 

317 

319 

319 

319 

320 

320 

320 

323 

326 

326 

327 

329 

329 

330 

331 

231 

331 

33  1 

332 

334 

334 

335 

335 

335 

337 

84 

85 

36 

87 

88 

89 

96 

97 

311  313  315  315  317  318 

329  330  330  332  332  334 


316/C  317  317  317  318  318 

320  320  328/C  329  329  329 


ORIGINAL  PAGE  BS 
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LC 

LCO 

LCNTRL 

LDI ABAT 

LDP ARM 

LEFLUX 

LFUSION 

LHFLUX 

LICLOUD 

LLATENT 

LOG8R 

LOMEGA 

LPREACC 

LPRECON 

LQS 

LQU 

LRADLW 

LRADLWG 

LRADSW 

LRADSWG 

LSENSBL 

LTMAX 

LTMIN 

LUFLUX 

L VF  LUX 

MATIN 

MATSNX 

MATSUN 

Md 

MLF 

MROD 

MSM 

NB 

ND 

NDALT 

NDAY 

NDHOG 

NDOUT 

NDPHY 

NDRSW 

NDSHF 

NDT 

NHMS 

NHMSO 

NHMS1 

NHMSE 

NKRSH 

NLA  Y 

NLA  YM 1 

NLA YP  I 

NLAYT2 

NLAYT3 

NLAVT4 

NLAYT4P 1 

NLAYT5 

NLAYTG 

NLAYT7 

NLAYT8P2 

NMLEV 

NSDAY 

N5EQ 

NSTEP 

NYMD 

NYMDO 


i • 


330 

330 

337 

337 

LCNTRL 

LOGICAL 

ARRAY 

1 6 f 

162 

LCNTRL 

LOGICAL 

SIMPLE 

100 

161 

INTEGER 

UNKNOWN 

100 

101 

1 1 1 

1 1 2 

LCNTRL 

LOGICAL 

UNKNOWN 

126 

156 

INTEGER 

UNKNOWN 

2 18 

219 

LCNTRL 

LOGICAL 

UNKNOWN 

r is 

148 

LCNTRL 

LOGICAL 

UNKNOWN 

1 19 

149 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

147 

LCNTRL 

LOGICAL 

UNKNOWN 

1 22 

152 

LCNTRL 

LOGICAL 

UNKNOWN 

130 

160 

ICNTRL 

INTEGER 

SIMPLE 

45 

LCNTRL 

LOGICAL 

UNKNOWN 

125 

155 

LCNTRL 

LOGICAL 

UNKNOWN 

115 

145 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

146 

LCNTRL 

LOGICAL 

ARRAY 

1 1 1 

1 13 

123 

1 24 

LCNTRL 

LOGICAL 

ARRAY 

1 1 2 

1 25 

LCNTRL 

LOGICAL 

UNKNOWN 

128 

158 

LCNTRL 

LOGICAL 

UNKNOWN 

121 

15  I 

LCNTRL 

LOGICAL 

UNKNOWN 

1 27 

157 

LCNTRL 

LOGICAL 

UNKNOWN 

1 20 

150 

LCNTRL 

LOGICAL 

UNKNOWN 

129 

159 

LCNTRL 

LOGICAL 

UNKNOWN 

1 t 4 

144 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

143 

LCNTRL 

LOGICAL 

UNKNOWN 

123 

153 

LCNTRL 

LOGICAL 

UNKNOWN 

124 

154 

ICNTRL 

INTEGER 

SIMPLE 

46 

ICNTRL 

INTEGER 

SIMPLE 

47 

ICNTRL 

INTEGER 

SIMPLE 

48 

1 DP ARM 

INTEGER 

ARRAY 

215 

ICNTRL 

INTEGER 

ARRAY 

49 

ICNTRL 

INTEGER 

SIMPLE 

50 

ICNTRL 

INTEGER 

SIMPLE 

52 

ICNTRL 

INTEGER 

SIMPLE 

53 

308 

330 

332 

ICNTRL 

INTEGER 

SIMPLE 

54 

ICNTRL 

INTEGER 

SIMPLE 

55 

ICNTRL 

INTEGER 

SIMPLE 

56 

ICNTRL 

INTEGER 

SIMPLE 

77 

ICNTRL 

INTEGER 

SIMPLE 

57 

ICNTRL 

INTEGER 

SIMPLE 

58 

ICNTRL 

INTEGER 

SIMPLE 

32 

ICNTRL 

INTEGER 

SIMPLE 

59 

ICNTRL 

INTEGER 

SIMPLE 

60 

ICNTRL 

INTEGER 

SIMPLE 

61 

ICNTRL 

INTEGER 

SIMPLE 

63 

IDPARM 

INTEGER 

SIMPLE 

216 

ICNTRL 

INTEGER 

SIMPLE 

62 

ICNTRL 

INTEGER 

SIMPLE 

5 1 

ICNTRL 

INTEGER 

SIMPLE 

64 

307 

ICNTRL 

INTEGER 

SIMPLE 

65 

ICNTRL 

INTEGER 

SIMPLE 

66 

IMJM 

INTEGER 

SIMPLE 

298 

319 

IMJM 

INTEGER 

Sim  LE 

298 

320 

IMJM 

INTEGER 

SIMPLE 

298 

322 

I F A X 

INTEGER 

SIMPLE 

302 

317 

329 

330 

IMJM 

INTEGER 

SIMPLE 

298 

IMJM 

INTEGER 

SIMPLE 

29S 

IMJM 

INTEGER 

SIMPLE 

298 

I F A X 

INTEGER 

SIMPLE 

303 

325 

ICNTRL 

INTEGER 

SIMPLE 

76 

ICNTRL 

INTEGER 

SIMPLE 

67 

ICNTRL 

INTEGER 

SIMPLE 

68 

ICNTRL 

INTEGER 

SIMPLE 

70 

ICNTRL 

INTEGER 

SIMPLE 

72 

ICNTRL 

INTEGER 

SIMPLE 

74 

330  331  331  331  332  332 

337 

162 

102  103  104  105  106  107 


220 


114  115  116  117  118  119 

141 

126  127  128  129  130  142 


315  315  317  318  320  322 

332  334  334  335  335  337 


316 

3 18 

310 

328 

330 

336 

3 19 

33  1 

320 

332 

322 

334 

3 18 

319 

320 

322 

323 

326 

330 

33  1 

33  r 

332 

332 

334 

325 


332 


1 OB 


1 20 


329 


326 

334 


336/C  337 


109  110 


1 21  122 


329  330 


o o 

^ S3 

“3  Q 

2 2 

O 

PJ  P 

«0  -o 

C 3si 
2> 

E*  m 


=4 


327  329 


£ 


a 


..-I-**-'  ^,v 


v ' * - s 


NYMD1 

NYMDE 

NZINIT 


IDPARWI 

ICWTRL 

ICNTRL 


INTEGER 

INTEGER 

INTEGER 


SIMPLE 

SIMPLE 

SIMPLE 


2 17 
73 
75 


0MEGA2 

RCNTRL 

P 

QANDQT 

PHI 

QANDQT 

PHIS 

QANDQT 

PI 

RCNTRL 

PI  180 

RCNTRL 

P I 2 

RCNTRL 

PIMEAN 

RCNTRL 

PK 

// 

PKSTD 

RDPARM 

PR  TOP 

RDPARM 

PLEVS 

RCNTRL 

PQ 

// 

PSMAX 

RCNTRL 

PSMIN 

RCNTRL 

PSTD 

RCNTRL 

PT 

// 

PTOP 

RCNTRL 

PZERO 

RCNTRL 

QALT 

LCNTRL 

QANDQT 

QBEG 

LCNTRL 

QDAY 

LCNTRL 

QEND 

LCNTRL 

QOUT 

LCNTRL 

QP 

// 

QPHY 

LCNTRL 

QPROG 

QANDQT 

QRSH 

LCNTRL 

QRSW 

LCNTRL 

QSDIAG 

QANDQT 

OSHF 

LCNTRL 

QUDIAG 

QANDQT 

RACE 

RCNTRL 

RC 

RCNTRL 

RCO 

RCNTRL 

RCNTRL 

RDPARM 


RGAS 

RCNTRL 

RL  AT 

RDPARM 

RLATD 

RDPARM 

ROCP 

RCNTRL 

ROCPDT 

RDPARM 

ROCPP1 

RDPARM 

RSDIST 

RCNTRL 

SDAY 

RCNTRL 

SEASON 

RCNTRL 

SGNP 

RDPARM 

SH 

QANDQT 

SHS 

QANDQT 

SIG 

RDPARM 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

LOGICAL 

SIMPLE 

REAL 

UNKNOWN 

LOGICAL 

SIMPLE 

LOGICAL 

SIMPLE 

LOGICAL 

SIMPLE 

LOGICAL 

SIMPLE 

REAL 

ARRAY 

LOGICAL 

SIMPLE 

REAL 

ARRAY 

LOGICAL 

SIMPLE 

LOGICAL 

SIMPLE 

REAL 

array 

LOGICAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

UNKNOWN 

REAL 

UNKNOWN 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

179 
268 
273 
261 

180 
181 
182 
18  4 
296 

245 

246 
198 
2S5 
323 

185 

186 
183 
296 
187 
204 
101 
260 
102 

103 

104 

105 
295 

106 
260 
284 
110 
109 
287 
107 
290 
188 
205 
163 
163 
174 
185 
196 
224 
235 

246 

257 

189 

247 

248 

190 

249 

250 

191 

192 

193 
25  1 
272 
267 

258 


28  1 3 15/S  315 

286 


274 

308 

3 1 1 

317/S 

3 17 

318 

327 

329 

330 

308/S 

3 19 

33  1 „ 

3 15 

335 

131 

287 
132 
1 33 

134 

135 

290 

323 

136 

325/S 

325 

274 

275 

276 

285 

140 

139 

289 

137 

286 

206 

205 

206 

164 

165 

166 

175 

176 

177 

186 

187 

188 

1 97 

198 

199 

225 

226 

227 

236 

237 

238 

247 

248 

249 

258 

259 

312 

322  334/S  334 

313  337 


318  319/S  319 


331 

332 

334 

33  1 

337 

326/S 

326 

327 

277 

278 

279 

167 

168 

169 

17B 

179 

180 

189 

190 

191 

200 

201 

202 

228 

229 

230 

239 

240 

24  1 

250 

251 

252 

335/S  335 


320/S  320  322/S 


280  281  282 


170 

171 

172 

181 

182 

183 

192 

193 

194 

203 

204 

231 

232 

233 

242 

243 

244 

253 

254 

255 

285  320  332/S  332 

280 

308  337 


SIGE 

SIND 

SINL 

SINLON 

SIWTH 

SN2FLG 

SOLS 


RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

OANDQT 

LCNTRL 

RCNTRL 


REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 


ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 


194 

195 

252 

253 
262 
1 OB 

196 


275 

138 


325  326 


, 3 


322 


283 


173 

184 

195 

234 

245 

256 
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START 

LDPARM 

LOGICAL 

SIMPLE 

T 

QANDQT 

REAL 

ARRAY 

THSTD 

RDPARM 

REAL 

SIMPLE 

THSTD2 

RDPARM 

REAL 

SIMPLE 

TRIGS 

I FAX 

REAL 

ARRAY 

TS 

QANDQT 

REAL 

ARRAY 

TSTO 

RCNTRL 

REAL 

SIMPLE 

U 

QANDQT 

REAL 

ARRAY 

V 

QANDQT 

REAL 

ARRAY 

VER 

CCNTRL 

CHARTS 

SIMPLE 

WSAVE 

R DP ARM 

REAL 

ARRAY 

XLABEL 

CCNTRL 

CHAR+8 

ARRAY 

IOCEOURE 

MAP 

M AMP — — _ _ 

TUDC _ _ _ 

IvMIVIC 

1 TPC“  " ” * - 

wLA  o j 

FFT77 
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PIO  = .99999 

TAUP  = . 21 2 132E-04*TAU 
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DO  180  LsNCLRI . NL AY 
TAUSC  * TAUL ( I , L > 

TAUAB  = AMIN!  (SV/IL1  l ,L> 'XKK  , 20.  ) 
IF  < TAUSC. LT . 0 . 01)  GO  TO  160 
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TNN  = 4.*U/D 


VCLOUDS  37 
VCLOUDS  38 
VCLOUDS  39 
VCLOUDS  40 
VCLOUDS  41 
VCLOUDS  42 
VCLOUDS  43 
VCLOUDS  44 
VCLOUDS  45 
VCLOUDS  46 
VCLOUDS  47 
VCLOUDS  48 
VCLOUDS  49 
VCLOUDS  50 
VCLOUDS  51 
VCLOUDS  52 
VCLOUDS  53 
VCLOUDS  54 
VCLOUDS  55 
VCLOUDS  56 
VCLOUDS  57 
VCLOUDS  58 
VCLOUDS  59 
VCLOUDS  GO 
VCLOUDS  61 
VCLOUDS  62 
VCLOUDS  63 
VCLOUDS  64 
VCLOUDS  65 
VCLOUDS  66 
VCLOUDS  67 
VCLOUDS  6B 
VCLOUDS  69 
VCLOUDS  70 
VCLOUDS  71 
VCLOUDS  72 
VCLOUDS  73 
VCLOUDS  74 
VCLOUDS  75 
VCLOUDS  76 
VCLOUDS  77 
VCLOUDS  78 
VCLOUDS  79 
VCLOUDS  80 
VCLOUDS  81 
VCLOUDS  82 
VCLOUDS  83 
VCLOUDS  84 
VCLOUDS  85 
VCLOUDS  86 
VCLOUDS  87 
VCLOUDS  88 
VCLOUDS  89 
VCLOUDS  90 
VCLOUOS  91 
VCLOUDS  92 
VCLOUDS  93 
VCLOUDS  94 
VCLOUDS  95 
VCLOUDS  96 
VCLOUDS  97 
VCLOUDS  98 
VCLOUDS  99 
VCtOUDSlOO 
VCLOUDS 101 
VCLOUDS 102 
VCLOUDS 103 
VCLOUDS t 04 
VCLOUDS 105 
VCLOUDS 106 
VCLOUDS I 07 


o 

5 

e 

a 

Cft 


UP 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


■I 


\ \ i 


fi 


00154 

RN< 

f L > =■  RNN 

00  155 

C 

TNI 

IL1  - TNN 

00  156 

IF 

« L . EO  . NTOP (1)1 

c 

c 

c 

c 

c 

c 

c 

c 


GO  TO  ISO 
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00163 

GO  TO 

170 

VCLOUDS 127 

VCLOUDS1  28 
VCLOUDS 1 29 
VCLOUDS 130 
VCLOUDS 131 
VCLCUDS 132 
VCLOUDS 1 33 
VCLOUDS  t34 
VCLOUDS 1 35 


00164 

150 

CONTINUE 

VCLOUDS 1 36 

00165 

RNK 

= 

RNN*R70P  t TAU , PI  0 , COSZ  < I ) ) 

VCL0UDS137 

00166 

TNK 

TNN*TTOP  ( TAU , PIO , COSZ ( I ) > 

VCLOUDS 138 

00167 

SRNN 

SK  *RNK  * SB 

VCLOUDS 1 39 

00168 

STNN 

= 

SK  * TNK 

VCLOUDS 1 40 

00169 

SRSN 

- 

RNN 

VCLOUDS 141 

00170 

STSN 

= 

TNN*  50 

VCLOUDS 1 42 

0017  1 

TFK 

FKK*STNN 

VCLOUDS 143 

C 

VCLOUDS 144 

00172 

GO  TO 

170 

VCLOUDS 145 

VCLOUDS 1 46 
VCLOUDS 1 47 
VCLOUDS 148 
VCLOUDS 1 49 
VCLOUDS 150 
VCLOUDS 15 1 
VCLOUDS 152 


00173 

1 60 

CONTINUE 

VCLOUDS 153 

00174 

SB  = EXP ( - 1 . 66*TAUAB > 

VCLOUDS 154 

00175 

STNN  = STNN ♦SB 

VCL0UDS155 

00176 

SRSN  = SRSN*SB**2 

VCL0UDS156 

00177 

STSN  = STSN*SB 

VCLOUDS 157 

00  178 

RN ( L ) = 0 * 

VCLOUDS  T 58 

00179 

TN  < L ) = SB 

VCLOUDS 159 

00180 

TFK  “ FKK  * ST  NN 

VCLOUDS160 

C 

VCL0UDS16 1 

00  181 

170 

CONTINUE 

VCLOUDS t 62 

C 

VCL0UDS1 63 

00182 

IF  ( TFK . LT . . 001 > GO  TO  190 

VCL0UDS164 

00183 

STN ( L ) = S TNN 

VCL0UDS165 

00  184 

SRsat  = srsn 

VCLOUDS 166 

C 

VCL0UDS167 

00185 

180 

CONTINUE 

VCLOUDS 168 

VCLOUDS 169 
VCLOUDS 170 
VCLOUDS17 1 
VCLOUDS 1 7 2 
VCLOUDS I 7 3 
VCLOUDS 1 7 4 
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00189 
00  190 
00  19  1 


00  1 94 
00  195 

00  196 
00  197 
00198 
00  199 
00200 
0020  1 


00203 

00204 

00205 

00206 
00207 


00209 
00210 
0021  1 
00212 
00213 
002  14 
002  15 
002  16 
002  1 7 
00218 
002  19 
00220 
0022  I 
00222 

00223 

00224 


00226 

00227 

00228 
00229 


ALd.C?  = ALU*tJ-*'DSNN,/OENOM*FKK 
DB  ' DA 

GO  TO  200 


c 

c 

C *****  ****•***••**»****♦♦»♦,»,, 

c 0F  ABSORPTI0N  among  individual  cloud  uV( 

c 

190  CONTINUE 
C 

M = L-  I 

c IF  'M.LT.NTOP(K)  go  to  220 

SRSN  = SRSMW) 

STNN  = STN  < M } 

DENOM  = 1.  - SRSN*RNN 

AL.t.M  : AU?:[!'.-or,/OEN™,FW 
DB  = OA 

200  CONTINUE 
C 

L - L - 1 
M = L-  I 
SRSN  = RN(L) 

STNN  = TNft ) 

: DENOM  = 1.  - SRSN  * RNN 

; |F  'M.LT.NTOPf I > ) GO  TO  215 

N I s R1 

NO  = NTOPfl) 

DO  210  NN-NO.Nl 

s»n  : igiy«; 

STNN  - STN(W) 

DEN27  * 1 * " SRSN  *RNN 

al<i.u  : ^:/!v0r™roM‘FKK 

L 

M - L - 1 
SRSN  = RN(L) 

STNN  = TN ( L ) 

2 10  CONT^Se*  ‘ - Sf?SM‘RNN 

215  CONTINUE 

BDA  - s«?d  ™K*S™N*RNN/DENOM 
Aid  ‘ ?* *»■  ' BNNdFKH 

AL  I-{;2  alh.d  * da  - d» 

DB  = DA 
GO  TO  230 


rrrrr  absorption  of  reflected  flux  above  clouds 


00232 

00233 

00234 


220  CONTINUE 

ALfT  ??  I J 1 * * RNK  > ♦ F KK 

ALfl.L)  « ALCI.L1  * DA 
RNN  * RNK 


VCLOUDS17S 
VCLOUDS1SO 
VCLOUDS 18 1 
VCLOUDS 182 
VCLOUDS 193 
VCLOUDS 184 

VCLOUDS 185 

* ‘VCLOUDS 1B6 

s VCLOUDS  187 

VCLOUDS 188 

"VCLOUDS109 
VCLOUDS 190 
VCLOUDS 191 
VCLOUDS192 
VCL0UDS193 
VCLOUD5194 
VCL0UDS195 
VCLOUDS 196 
VCLOUDS 197 
VCLOUDS 198 
VCLOUDS 199 
VCLOUDS200 
VCL0UDS201 
VCL0UDS202 
VCL0UDS203 
VCLOUDS204 
VCLOUOS205 
VCLOUDS206 
VCLOUDS207 
VCL0UDS208 
VCLOUDS209 
VCL0UD52 1 0 
VCL0UDS2I 1 
VCL0UDS2  t 2 
VCLOUDS2 13 
VCL0UDS2 14 
VCL0UDS2 15 
VCL0UDS216 
VCLOUOS2 17 
VCL0UDS218 
VCLOUDS2 19 
VCL0U0S220 
VCLOUDS221 
VCLOUDS222 
VCL0UDS223 
VCL0UDS224 
VCLOUOS225 
VCL0UD5226 
VCL0UDS227 
VCL0UDS228 
VCL0UDS229 
VCLOUDS230 
VCLOUDS231 
VCL0UDS232 
VCL0U0S233 
VCLOUDS234 
VCL0UDS23S 
VCL0U0S236 
VCLOUDS237 
VCL0UDS238 
VCL0UDS239 
VCL0UDS240 
VCL0UDS241 
VCL0UDS242 
VCL  0UDS24  3 
VCL0UDS244 
VCL0UDS24S 
VCL0U0S246 
VCLOUDS247 
VCL0UDS248 
VCLOUDS249 


tO  *5 

C JS> 

> £3 

r-  ps 


CLOUDS  5 


c 


00235 

230 

CONTINUE 

00236 

FKK  = SK*RNN*FKK 

00237 

IF  1FKK.LT. . 00 1 ) 

GO  TO  250 

00238 

c 

OB  = 0. 

00239 

NM  = NTOP 1 1 > 

00240 

DO  240  NN=2.NM 

0024  1 

L = NTOP [ l > * 1 - 

NN 

00242 

WK  = 1 . 66 M Wl  I > - SWALECI  .LM*KKK 

00243 

DA  = 11.  - EXP ( - WK ) ) ♦ F KK 

00244 

ALII  . L 1 = AL  U .L  > 

* DA  - DB 

00245 

DB  = DA 

00246 

c 

240 

CONTINUE 

00247 

c 

250 

CONTINUE 

00248 

c 

8 10 

CONTINUE 

00249 

RETURN 

00250 

END 

STATEMENT  LABEL  MAP 
- -LABEL DEFINED REFERENCES 

10000  102 

110  11B  111 

120  120  118 

130  124  122 

150  164  156 

160  173  145 

170  181  163 

1 BO  185  142 

190  193  182 

200  202  192 

210  224  211 

215  225  208 

220  231  195 

230  235  230 

240  246  240 

250  247  134 

810  248  104 


172 


237 

105  106  133  138 


VCLQUDS250 
VCL0UDS251 
VCL0UDS252 
V0L0UDS253 
VCLOU03254 
VCLOUDS255 
VCL0UDS256 
VCL0UDS257 
V/CL  0UDS258 
VCL0UDS259 
VCL0UDS260 
V CLOUDS261 
VCLOUDS262 
VCL0UDS263 
VCL0UDS264 
VCLOUDS265 
VCLOUDS266 
VCL0UDS267 
VCL0UDS268 
VCLOUDS269 
VCLOUDS270 
VCLOUDS27 1 


CO 

ON 


O O 

^ n 

Q 
O TP 

0*J 

iO  ^ 

C 2-3 


r" 


c=n 


VARIABLE  MAP 


NAME 

SLOCK 

TYPE 

* -CLASS 

ACLEAR 

DSOLAR 

REAL 

ARRAY 

ACLOUD 

DSOLAR 

REAL 

ARRAY 

AL 

RADCOM 

REAL 

ARRAY 

AS 

RADCOM 

REAL 

ARRAY 

CIO 

CNTRLP 

REAL 

SIMPLE 

cioo 

CNTRLP 

REAL 

SIMPLE 

C40 

CNTRLP 

REAL 

SIMPLE 

CDATE 

RADCOM 

REAL 

ARRAY 

CDF  R 

CNTRLP 

REAL 

SIMPLE 

CD  XL 

CNTRLP 

REAL 

SIMPLE 

CDXO 

CNTRLP 

REAL 

SIMPLE 

CLEAR 

DSOLAR 

LOGICAL 

ARRAY 

CLH 

CNTRLP 

REAL 

SIMPLE 

CLOUD 

RADCOM 

REAL 

ARRAY 

CLOUDS 

SUBROUTINE 

CLOUDY 

05OLAR 

LOGICAL 

ARRAY 

CNTRLP 

REAL 

UNKNOWN 

COE 

CNTRLP 

REAL 

ARRAY 

COEF 

CNTRLP 

REAL 

SIMPLE 

COEFS 

CNTRLP 

REAL 

SIMPLE 

REFERENCES  A=ARGL I ST , C = CTRL  OF  DO. 

86 

87 

59  1 14/S  119/S  190/S  190 

233/S  233  244/S  244 

44 

14 

15 
1 G 
68 

2 

3 

4 

93  98  105 

5 
50 

1 


94 

2 

98 

3 

4 

5 

6 

13 

14 

15 

16 

17 

24 

25 

26 

27 

28 

35 

36 

37 

38 

39 

6 

7 

8 


I = DATA  IN1T,  REREAD.  S-STORE  W=WRITE 

9 

200/S  200  217/S  217  228/S  228 


7 

8 

9 

10 

1 1 

12 

18 

19 

20 

21 

22 

23 

29 

30 

31 

32 

33 

34 

40 

41 

42 

COSMAG 

COSROT 

COSZ 

CPP 

CTIO 

CUMDAY 

CUMRAT 

CVq 

CVT 

CXDE 

CXL 

CZH 

D 

DA 

DARK 

DB 

DELTA 

DENOM 

DSOLAR 

DTC3 

DTOUT 

ED 

EDNM 

ETP 

EVAP 

FOLD 

FCLEAR 

FCLOUD 

FCOEF 

FK 

FKK 

FMU 

FROST 

FSCAT 

FWET 

GAM 

GAMFAC 

GTOPO 

WH 

HHE 

HHS 

MICE 

I 


ICE 
I M 

JALB 

K 

L 


L 1 

LAND 

M 

MI  XWI 
NO 

Mf 

NCALL 

NCLEAR 

NCLRt 


DSOLAR 

CNTRLP 

RADCOM 

CNTRLP 

CNTRLP 

CNTRLP 

CNTRLP 

RADCOM 

RADCOM 

RADCOM 

RADCOM 

RADCOM 


DSOLAR 


CNTRLP 


CNTRLP 

CNTRLP 

CNTRLP 

CNTRLP 

RADCOM 

DSOLAR 

DSOLAR 

DSOLAR 

CNTRLP 

RADCOM 


CNTRLP 

RADCOM 

DSOLAR 

CNTRLP 

RADCOM 

CNTRLP 

CNTRLP 

RADCOM 

RADCOM 

RADCOM 

CNTRLP 


RADCOM 

RADCOM 


RADCOM 

RADCOM 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

INTEGER 


LOGICAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


INTEGER 

LOGICAL 

INTEGER 

LOGICAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


AftRA  V 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 


ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


73 
9 
70 
10 
1 1 
12 
13 
56 

56 

57 


toe  nr 

!0°  lOO  101  101  131  165  166 


70 

69 


1 28  /S 

129 

151  /S 

152 

153 

1 13/S 
218 
92 

1 14 
227/S 
98 

1 15 
228 
105 

189/S 

229 

190 

232/S 

191 

233 

199/S 

243/S 

200 

244 

20  1 
245 

216/S 

217 

109/S 

233/S 

17 

157/S 

215/S 

110 

244 

1 14 
245/S 

1 1 5 / S 

133 

191/S 

201/5 

217 

2 1 8 S 

228 

229 

158 

216 

159 

223/S 

160 

226 

161 

188/S 

189 

198/S 

199 

207/S 

212 

76 

87 

18 

77 

as 

78 

89 

79 

90 

80 
9 1 

81 

92 

82 

93 

83 

94 

24 

95 

85 

96 

96 

97 

IS 

19 

20 


1 27/S 
69 

128 

128 

1 29 

129 

150/S 

151 

151 

152 

152 

95 

96 

106 

84 

83 

22 

65 

135/S 

237 

135 

162 

243 

171 

180 

189 

199 

216 

227 

232 

236/S 

236 

23 

74 

75 

80 

24 
51 

25 

26 
54 

54 

55 
27 

104/C 
1 12 
137 
200 
242 

105 
1 12 
143 
20B 
242 

105 
1 13 
144 
210 
244 

105 
1 14 
156 
217 
24  4 

107 
1 1 7 
165 
217 

108 
1 19 
166 
228 

108 

123 

187 

228 

1 08 
130 
19* 
233 

109 

130 

190 

233 

110 

131 

195 

239 

112 

132 

200 

241 

73 

75 

1 

1 04 

72 

134/C 

135 

1 36 

1 ! 1 /C 
155 
200 
22  1 
1 17/S 

1 12 
156 
203/S 
222 
1 18 

1 14 
178 
203 
228 

1 1 8 C 
179 
204 
228 

1 19 
183 
205 
233 

122/C 

184 

206 

233 

123 
186/S 
217 
241  /S 

1 42  /C 
190 
217 
242 

143 
190 
2 1 9 • S 
244 

144 

194 

219 

244 

154 

200 

220 

73 

75 

194/S 

74 

195 

75 

196 

197 

204/S 

208 

209 

213 

2 1 4 

220/S 

210/S  211 

209/S  211 


1 106 

107/S  111  141 

141/S  142 


O 

c-* 

o 

a 

o 

CD 
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NDTC3 

CNTRLP 

NFK 

RADCOM 

NFLW 
NLA  Y 

CNTRLP 

NLAYOZ 

NLAYP1 

NM 

NN 

RADCOM 

NOZ 

RADCOM 

NT0P 

DSOLAR 

NTOPF 

□SOLAR 

NTOPT 

DSOLAR 

OCEAN 

RADCOM 

OCM22 

RADCOM 

OCM30 

RADCOM 

0CW38 

RADCOM 

OCM4  6 

RADCOM 

QCMXX 

RADCOM 

OLAPR 

RADCOM 

OL  JAN 

RADCOM 

OLJUL 

RADCOM 

OLOCT 

RADCOM 

OZALE 

PIO 

RADCOM 

PIM 

CNTRLP 

PL 

RADCOM 

PLE 

RADCOM 

PLK 

RADCOM 

PLKE 

RADCOM 

PREP 

RADCOM 

PROCM 

RADCOM 

QHOG 

RADCOM 

CNTRLP 

RADTRM 

RADCOM 

RCLEAR 

DSOLAR 

RCLOUD 

RADCOM 

RE 

RADCOM 

RF 

DSOLAR 

RH 

RADCOM 

RMEAN 

DSOLAR 

RN 

RWK 

RNN 

RADCOM 

RSURF 

RADCOM 

SO 

SB 

RADCOM 

SCOSZ 

DSOLAR 

SG 

RADCOM 

SHG 

RADCOM 

SHL 

RADCOM 

SHLE 

RADCOM 

SHLTOP 

CNTRLP 

SHSAT 

RADCOM 

SINROT 

SK 

CNTRLP 

SNOW 

RADCL»* 

SNOWN 

CNThL 

SNOWS 

CNTV LT 

SP 

SRNN 

RADCOM 

SRS 
SR  SN 

RAO COM 

SSS 

RADCOM 

SSSE 

RADCOM 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

ARRAY 

INTEGER 

ARRAY 

INTEGER 

ARRAY 

LOGICAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

LOGICAL 

SIMPLE 

REAL 

UNKNOWN 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

LOGICAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

28 


65 

134 

29 

1 

103 

122 

64 

103/S 

1 18 

186 

239  /S 

240 

21  1 /C 

240/C 

24  1 

68 

91 

107 

1 17 

90 

89 

73 

75 

67 

67 

67 

67 
6B 
66 
66 
66 
66 
60 

100  100  lOt 

166 
30 
45 

45 

46 
46 
69 

68 


31 

43 

44 

45 

46 

55 

56 

57 

66 

67 

68 

70 

81 

72 

132/S 

44 

97 

52 


62 

154/S 

178/S 

1G5'S 

167 

226 

129/S 

130 

130 

160 

165 

169 

215 

216 

223 

72 

130 

130 

70 

140/S 

167 

170 

79 

71 

50 

49 

49 

32 
5 1 

33 


142 


156  195  208 


101  125'S  131 


47 

48 

49 

58 

59 

60 

69 

70 

71 

205 

221 

232 

234 

1 3 1 / S 

1 3 1 

132 

18  7*5 

188 

189 

226/  S 

T P.7 

276 

227 

f 74/S 

175 

176 

210  239  241 


147/S  148 


50 

51 

52 

61 

62 

63 

72 

73 

74 

132 

152/S 

154 

198 

199 

207 

234/S 

236 

177 

179 

O 

XT' 

O 

© 

© 

LQ 

CO 


: y 


149  165 


S3  54 

64  65 


157  15B 

212/S  212 


139/S 

74 

34 

35 
71 

167 

75 

168 

227 

130/S 

132 

158/S 

158 

62 

1B4/S 

196 

2 1 3 

157 

160/S 

160 

169 

207 

53 

53 

212 

213/S 

215 

232  236 


167  /S 

S 1 7 6 ■'  S 176  184 

221/S  223 


188  195 rS  198  205 
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STBO 

STERP1 

STERP2 

STN 

STNN 

STSN 

SWALE 

SWIL 

TAU 

TAUAB 

TAUL 

TAUP 

TAUSC 

TCOND 

TEMP 

TEMPI 

TFK 

TG 

TH 

TICE 

TL 

TLE 

tlowl 

TLTOP 

TMIOL 

TW 

TNK 

TNN 

TOPABS 

TOTABS 

totoz 

tpene 

U 

W 

WET 

WI 

V/K 

WW 

X 

XDAY 

XK 

XKK 

ZLNCO 

PROCEDURE 


AMIN  1 

AWATER 

EXP 

RTOP 

SQRT 

TTOP 


CNTRLP 

CNTRLP 

CNTRLP 

RADCOM 


RADCOM 
R ACCOM 


RADCOM 


RADCOM 

DSOLAR 

DSOLAR 

RADCOM 
RADCOM 
CNTRLP 
RADCOM 
PA DCOM 
RADCOM 
CNTRLP 
RADCOM 
RADCOM 


RADCOM 

DSOLAR 

RADCOM 

RADCOM 

DSOLAR 

RADCOM 

RADCOM 

DSOLAR 

CNTRLP 

RADCOM 

CNTRLP 


TYPE 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


REAL 

REAL 

REAL 

real 

REAL 

REAL 

REAL 

real 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

real 

REAL 

REAL 

REAL 

REAL 

real 

REAL 

REAL 

REAL 

REAL 

REAL 


CLASS 

INTRINSIC 
STAT  FUNC 
INTRINSIC 
STAT  FUNC 
INTRINSIC 
STAT  FUNC 


— NAME ■ 


MAP 


SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 


36 

37 

38 


62 

183/S 

158 

159/S 

197/S 

199 

158 

161/S 

58 

108 

58 

144 

1 00 

100 

149 

165 

144/S 

146 

60 

1 23 

126/S 

127 

143/S 

145 

S3 

96 

82 

162/S 

171/S 

48 

48 

39 

47 

47 

64 

40 

64 

62 

155/S 

166/S 

168 

153/S 

155 

6 1 

1 10/S 

77 

68 

63 

148/S 

149 

85 

108/S 

69 

69 

137/S 

138 

88 

99 

99 

<-»P 

136 

1 36/S 

137 

42 


197 

214 

159 

162 

206/S 

2 T 2 

161 

170 

1 12 

242 

101 

10  1 

166 

174 

143 

149/5 

150 

146 

1 47 

180/S 

182 

179/S 

206 

226 

159 

160 

15  1 
109 

151 
1 12.  S 

139 

140 

99 

99 

1 44 

242 

168/S  171 

214/5  216 

177/S  177 

1 2 1 / S 123/S 


222 

161  166 

152  153 

113  137 

242/S  2' 


175/S  175 

222/S  226 

123  126 


170 

242 


REFERENCES  D=STMT  FN 


144 

147 

99/S 

109 

I 13 

127 

139 

140 

100/S 

131 

165 

148 
101  /S 

166 

DEF  4 A = ARGL 1ST 

150  174  243 


180 


t 3 1 


183 


146/S 


189 

147 
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SUBROUTINE  COMPO  ( ' > 

^|SN  = 5SoHNLEApjRliCiTEl  FORWARD  TIME  USING  «»*»'  OMIVATIVES 

^f^S’pSS^Jt^pEggf^^Mjr  0R  MATSUNO  C0RRECT0R 

ninvA  fSs  ^u2IpS^r^isn§i?e?r  leapfrog  step 


ARGUMENTS 


REFERENCES 
AVRX 
COMP  1 
COMP  2 
COP  YQ 
GEOHT 
POLOUT 
PRO  I AG 
RESTQM 
SAVEOM 
SCALED 
SHCORN 
TIMAVG 


DESCRIPTION 

PRESSURE  DIAGNOSTIC  ERROR  RETURN 
DESCRIPTION 

FOURIER  FILTERS  IN  HORIZONTAL  DIRECTION 
COMMUTE  HORIZONTAL  AND  VERTICAL  ADVECTION  TERMS 

C§PyUwSDfuRoSkM?ilXTEiRMODVNrtM,CS-  AND  PRESSUPP  GnAOlENT 

BE5fi?^Iu“^irP§if,US???r?IOPOTENT,AL  WE,,;HT 

PRINTS  OUT  PPESSUFE  DIAGNOSTICS 
RESTORE  TEMPORARY  MODEL  QUANTITIES 
TEMPORARILY  SAVE  MODEL  QUANTITIES 
VOLUME  SCALES  MODEL  QUANTITIES 
CORRECTS  NEGATIVE  SPECIFIC  HUMIDITIES 
TIME  AVERAGE  0 ( ND ) AFTER  LEAPFROG  STEP 


CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


1 • i 

• 

00002 

COMMON  /CCNTRL / 

CCO 

00003 

00004 

COMMON  /CCNTRL/ 
COMMON  /CCNTRL/ 

ADATE 

ATIME 

■i 

00005 

OOOOG 

COMMON  /CCNTRL/ 
COMMON  /CCNTRL/ 

JIC 

JOS 

00007 

COMMON  /CCNTRL/ 

CCSP06 

■% 

ooooa 

COMMON  /CCNTRL/ 

CCSP07 

00009 

COMMON  /CCNTRL/ 

ccspoa 

000  t 0 

COMMON  /CCNTRL/ 

VER 

1 h 

000  1 1 

COMMON  /CCNTRL/ 

XLABEL  ( 10  > 

; 1 

OOO  1 2 

COMMON  /CCNTRL/ 

COS  <30) 

1 

II 

00013 

c 

COMMON  /CCNTRL/ 

CQU  ( 10 J 

000  f4 

equivalence 

fCCO .CC< 1 ) ) 

n 

000  15 

CHARACTER'S 

CCO,  CC 1200 

000  1 6 

CHARACTER'S 

ADATE 

0001  7 

CHARACTER'S 

ATIME 

a S 

000  18 

CHARACTER'S 

JIC 

000  19 

CHARACTER  '8 

JOB 

l* 

00020 

00021 

CHARACTER'8 

CHARACTER'S 

CCSP06 

CCSP07 

J ; 

00022 

CHARACTER'S 

CCSPOS 

\ ] 

00023 

CHARACTER'S 

VER 

;i  % ; 

00024 

CHARACTER'S 

XLABEL 

1 '1 
i 1 

00025 

CHARACTER'S 

COS 

00026 

c 

CHARACTER'S 

COU 

PARAMETERS  SAVED  ON  HISTORY  RECORD 


00027 

COMMON 

/ ICNTRL / 

ICO 

000  28 

COMMON 

/ ICNTRL/ 

Irfl 

00029 

COMMON 

/ICNTRL/ 

IMD2 

00030 

COMMON 

/ICNTRL/ 

IMD2P 1 

00031 

COMMON 

/ICNTRL/ 

NDRSW 

00032 

COMMON 

/ICNTRL/ 

dM 

00033 

COMMON 

/ICNTRL/ 

JMD2 

00034 

COMMON 

/ICNTRL/ 

JMT  2 

00035 

COMMON 

/ICNTRL/ 

JNP 

00036 

COMMON 

/ICNTRL / 

J04 

00037 

COMMON 

/ICNTRL/ 

JOS 

00038 

COMMON 

/ICNTRL/ 

dSP 

00039 

COMPTON 

/ICNTRL/ 

KLIALB 

VCOMPO 

2 

VCOVPO 

3 

VCOMPO 

4 

VCOMPO 

5 

VCOMPO 

6 

VCOMPO 

7 

VCOMPO 

8 

VCOMPO 

9 

VCOMPO 

10 

VCOMPO 

1 1 

VCOMPO 

12 

VCOMPO 

13 

vcor.ipo 

14 

VCOMPO 

15 

VCOMPO 

16 

vcompo 

17 

VCOMPO 

18 

VCOMPO 

1 9 

VCOMPO 

20 

VCOMPO 

2 1 

VCOMPO 

22 

VCOMPO 

23 

VCOMPO 

24 

VCOMPO 

25 

VCOMPO 

26 

VCOMPO 

27 

vcntrl 

2 

VCNTRL 

3 

vcntrl 

4 

VCNTRL 

5 

VCNTRL 

6 

VCNTRL 

7 

vcntrl 

8 

VCNTRL 

9 

VCNTRL 

10 

VCNTRL 

I 1 

VCNTRL 

12 

VCNTRL 

13 

VCNTRL 

14 

vcntrl 

15 

VCNTRL 

16 

VCNTRL 

17 

VCNTRL 

18 

vcntrl 

19 

vcntrl 

20 

vcntrl 

21 

vcntrl 

22 

vcntrl 

23 

VCNTRL 

24 

VCNTRL 

25 

VCNTRL 

26 

VCNTRL 

27 

VCNTRL 

28 

VCNTRL 

29 

VCNTRL 

30 

VCNTRL 

3 1 

VCNTRL 

32 

VCNTRL 

33 

VCNTRL 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

38 

VCNTRL 

39 

vcntrl 

40 

VCNTRL 

4 1 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

46 

$i§ 

s§ 

£«S 

C sn 


COMPO  1 


00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 

0006  I 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

0007  1 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
00081 
00082 
00083 

00084 

00085 

00086 

00087 

00088 
000S9 
00090 

0009  1 

00092 

00093 

00094 

00095 

00096 


00097 

00098 

00099 
00  100 
00  10  1 
00102 

00103 

00104 


COMMON  / I CNTRL / KLIGVJ 
COMMON  /I CNTRL/  KLISST 
COMMON  / I CNTRL/  KS 
COMMON  / I CNTRL / KU 
COMMON  / ICNTRL / L0G8R 
COMMON  /I CNTRL/  MATIN 
COMMON  / I CNTRL/  MATSU* 
COMMON  / l CNTRL / MATSUN 
COMMON  / 1 CNTRL  / ML  F M2> 

COMMON  /T CNTRL/  M*OD 
COMMON  /I CNTRL/  NKRSH 
COMMON  /I CNTRL/  M5M 
COMMON  /I CNTRL/  NB 
COMMON  / ICNTRL / ND 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDA V 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHV 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NOT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHMSE 
COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLA  V 
COMMON  /ICNTRL/  NLAYM1 
COMPTON  /ICNTRL/  NLAYP  1 
COMMON  /ICNTRL/  NSDAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  I0LKSIZ 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINIT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDHOG 
COMMON  /ICNTRL/  IQS  130) 
COMMON  /ICNTRL/  IQU  MO) 

C 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

INTEGER 


( I TWIN 

IOSI 

1 ) ) 

( ITMAX 

IOS< 

2)  > 

{ IPREACC 

IOS< 

3)  > 

{ IPRECON 

IQS< 

4)  > 

( I HF  LUX 

I QS 1 

S ) ) 

1 IEFLUX 

IOSf 

6)  ) 

( IFUSION 

I QS  1 

7 ) ) 

< IRADSWG 

IQS  ( 

8)  ) 

< IRADLWG 

IQS  r 

9)  ) 

( IICLOUD 

I05<10)) 

t I UF  LUX 

I0S1 

It)) 

t I VF  LUX 

I QS ( 12)  ) 

< IOMEGA 

I QU  ( 

1 ) > 

( IDIABAT 

I QU  ( 

2)  ) 

{ IRADSW 

IQU< 

3 ) ) 

f I RADLW 

TOUf 

4 } ) 

(ICO  . ICU  ) 

> 

ICO,  I C 1 200  ) 

LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON  /LCNTRL/  LCO 
COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL/  Q8EG 
COMMON  /LCNTRL/  QDAY 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMMON  /LCNTRL/  QSHF 


VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

51 

VCNTRL 

52 

VCNTRL 

53 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

VCNTRL 

58 

VCNTRL 

59 

VCNTRL 

60 

VCNTRL 

61 

VCNTRL 

62 

VCNTRL 

63 

VCNTRL 

64 

VCNTRL 

65 

VCNTRL 

66 

VCNTRL 

67 

VCNTRL 

68 

VCNTRL 

69 

VCNTRL 

70 

VCNTRL 

7 1 

VCNTRL 

72 

VCNTRL 

73 

VCNTRL 

74 

VCNTRL 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRL 

79 

VCNTRL 

80 

VCNTRL 

B 1 

VCNTRL 

82 

VCNTRL 

83 

VCNTRL 

84 

VCNTRL 

85 

VCNTRL 

86 

VCNTRL 

87 

VCNTRL 

88 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

9! 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

98 

VCNTRL 

99 

VCNTRL 

100 

VCNTRL 

101 

VCNTRL 

102 

VCNTRL 

103 

VCNTRL 

104 

VCNTRL 

105 

VCNTRL 

106 

VCNTRL 

t 07 

VCNTRL  108 
VCWTRL  109 
VCNTRL  110 
VCNTRL  111 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  1 IS 
VCNTRL  1 16 
VCFJTRL  117 


n 

o 

K 


•n 

O 


to 
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00  105 

COMMON  /LCNTRL/ 

SN2FLG 

00  106 

COMMON  /LCNTRL/ 

QRSW 

00107 

COMMON  /LCNTRL/ 

QRSH 

00108 

COMMON  /LCNTRL/ 

LQS( 30 ) 

00109 

COMMON  /LCNTRL/ 

LQU ( 101 

00  110 

EQUIVALENCE 

< LTMIN 

.LOSt 

1 ) ) 

001  1 1 

equivalence 

{ L TMA  X 

.LOSt 

2)  ) 

00112 

equivalence 

( LPREACC 

.LOS< 

3 J I 

00  113 

EQUIVALENCE 

< L PRECON 

.LQSt 

4 ) ) 

00114 

EQUIVALENCE 

(LHFLUK 

, LQS < 

5)  } 

00115 

EQUIVALENCE 

( LEFLUX 

.LOS( 

6)  t 

00  116 

EQUIVALENCE 

< LFUSION 

< LOSt 

7)  ) 

00117 

EQUIVALENCE 

(LRADSWG 

, LOS  t 

8>  > 

00  t 18 

EQUIVALENCE 

< lradlwg 

.LOSt 

9)  ) 

00119 

EQUIVALENCE 

< LICLOUD 

. LQ5  t 

ton 

00120 

EQUIVALENCE 

(LUFLUX 

.LOSt 11)1 

00  t 2 1 

p 

EQUIVALENCE 

tLVFLUX 

. LOSt  1 2 ) l 

00  122 

EQUIVALENCE 

(LOMEGA 

, LQU  t 

1 ) ) 

00123 

EQUIVALENCE 

(LDIABAT 

. LQU  t 

2 J ) 

00  124 

EQUIVALENCE 

(LRADSW 

. LOUt 

3)  ) 

00  125 

r» 

EQUIVALENCE 

< LRADLW 

. Lour 

4 > ) 

00  126 

LOGICAL 

QALT 

OO  1 27 

LOGICAL 

QBEG 

00  1 28 

LOGICAL 

QDA  Y 

00  1 29 

LOGICAL 

QEND 

00  1 30 

LOGICAL 

QOUT 

00131 

LOGICAL 

QPHY 

00  1 32 

LOGICAL 

QSHF 

00  1 33 

LOGICAL 

SN2FLG 

00134 

LOGICAL 

QRSW 

00135 

LOGICAL 

qnsH 

00136 

w 

LOGICAL 

LQS 

00  137 

LOGICAL 

LQU 

00  138 

LOGICAL 

LTMIN 

00  1 39 

LOGICAL 

LTMAX 

00  140 

LOGICAL 

LPREACC 

00141 

LOGICAL 

LPRECON 

00  142 

LOGICAL 

LHFLUX 

00143 

LOGICAL 

LEFLUX 

00  1 44 

LOGICAL 

LFUSION 

00145 

LOGICAL 

LRADSWG 

00  146 

LOGICAL 

LRADLWG 

00147 

LOGICAL 

LICLOUD 

00148 

LOGICAL 

LUFLUX 

00  149 

p 

LOGICAL 

L VF  LUX 

00150 

LOGICAL 

LOMEGA 

00151 

LOGICAL 

LDIABAT 

00  152 

LOGICAL 

LRADSW 

00  153 

p 

LOGICAL 

LRADLW 

00154 

EQUIVALENCE 

(LCO , LC< 

f 1 ) 

00  155 

LOGICAL 

LCO,  LC<200> 

c 

C REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00  156 

COMMON 

/ RCNTRL/ 

RCO 

00  157 

COMMON 

/RCNTRL/ 

APHEL 

00  158 

COMMON 

/RCNTRL/ 

BETA 

00  159 

COMMON 

/RCNTRL/ 

COSD 

00160 

COMMON 

/RCNTRL/ 

CP 

00161 

COMMON 

/RCNTRL/ 

DAYSPY 

00  162 

COMMON 

/RCNTRL/ 

DEC 

00163 

COMMON 

/ RCNTRL/ 

DECMAX 

00  164 

COMMON 

/RCNTRL/ 

DIST 

00165 

COMMON 

/RCNTRL/ 

DLAT 

00166 

COMMON 

/RCNTRL/ 

DLON 

VCNTRL 

IIS 

VCNTRL 

1 19 

VCNTRL 

120 

VCNTRL 

121 

VCNTRL 

122 

VCNTRL 

123 

VCNTRL 

124 

VCNTRL 

125 

VCNTRL 

1 26 

VCNTRL 

127 

VCNTRL 

12B 

VCNTRL 

129 

VCNTRL 

130 

VCNTRL 

131 

VCNTRL 

132 

VCNTRL 

133 

VCNTRL 

134 

VCNTRL 

135 

VCN TRL 

136 

VCNTRL 

137 

VCNTRL 

138 

VCNTRL 

139 

VCNTRL 

140 

VCNTRL 

14  ! 

VCNTRL 

142 

VCNTRL 

143 

VCNTRL 

144 

VCNTRL 

145 

VCNTRL 

146 

VCNTRL 

147 

VCNTRL 

148 

VCNTRL 

149 

VCNTRL 

150 

VCNTRL 

15  1 

VCNTRL 

152 

VCNTRL 

153 

VCNTRL 

154 

VCNTRL 

155 

VCNTRL 

156 

VCNTRL 

157 

VCNTRL 

158 

VCNTRL 

159 

VCNTRL 

160 

VCNTRL 

16  1 

VCNTRL 

162 

VCNTRL 

163 

VCNTRL 

164 

VCNTRL 

165 

O Q 

VCNTRL 

1 66 

VCNTRL 

167 

VCNTRL 

168 

3?  5 

VCNTRL 

169 

o ^ 

VCNTRL 

170 

o g 

VCNTRL 

171 

a? 

VCNTRL 

172 

VCNTRL 

173 

iO 

VCNTRL 

174 

Sr  ^ 

VCNTRL 

175 

VCNTRL 

176 

VCNTRL 

177 

C ^ 

VCNTRL 

178 

VCNTRL 

179 

VCNTRL 

180 

VCNTRL 

181 

VCNTRL 

182 

VCNTRL 

183 

VCNTRL 

184 

VCNTRL 

185 

VCNTRL 

186 

VCNTRL 

187 

O 

o 

2 

VCNTRL 

IBS 

00167 

COMMON 

/RCNTRL/ 

DT 

00  168 

COMMON 

/ RCNTRL / 

ECCN 

00  169 

COMMON 

/ RCNTRL  f 

GNU  1 

00  1 70 

COMMON 

/RCNTRL/ 

GNU2 

00  171 

COMMON 

/RCNTRL/ 

GRAV 

00  1 72 

COMMON 

/RCNTRL/ 

OMEGA2 

00  173 

COMMON 

/RCNTRL / 

PI 

00i"4l 

COMMON 

/RCNTRL/ 

PI  180 

00  T75 

COMMON 

/RCNTRL / 

P I 2 

00  1 76 

COMMON 

/RCNTRL/ 

PSTD 

00  177 

COMMON 

/RCNTRL/ 

PIMEAN 

00  1 78 

COMMON 

/RCNTRL/ 

PSMAX 

00  1 79 

COMMON 

/RCNTRL/ 

PSMIN 

00180 

COMMON 

/RCNTRL/ 

P TOP 

00  181 

COMMON 

/RCNTRL/ 

RACE 

00182 

COMMON 

/ RCNTRL / 

RGAS 

00  183 

COMMON 

/RCNTRL/ 

ROCP 

00  t84 

COMMON 

/RCNTRL/ 

RSDIST 

00  185 

COMMON 

/RCNTRL/ 

SDAY 

00  186 

COMMON 

/RCNTRL/ 

SEASON 

00  187 

COMMON 

/RCNTRL/ 

SIGE 

t 25  1 

00  188 

COMMON 

/RCNTRL/ 

SINO 

00189 

COMMON 

/RCNTRL/ 

SOLS 

00  1 90 

COMMON 

/RCNTRL/ 

TSTD 

00  19  1 

COMMON 

/RCNTRL/ 

PLEVS 

< 25) 

00  192 

COMMON 

/RCNTRL/ 

HEATW 

00  193 

COMMON 

/RCNTRL/ 

HEATI 

00194 

COMMON 

/RCNTRL/ 

EPS 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

00196 

COMMON 

/RCNTRL/ 

CAL  TOJ 

00197 

0 

COMMON 

/RCNTRL/ 

PZERO 

00198 

equivalence 

(RCO.RCt  1 > ) 

00  199 

REAL 

RCO,  RC  <200 

C INTEGER  model  constants 


00200 

COMPAQ  N 

/ I DP ARM/ 

I JUMP 

146) 

0020  1 

COMMON 

/ I DP  ARP/I  / 

JDSP02 

C 0 202 

COMMON 

/ I DP ARM/ 

INDEX 

(72  ) 

00203 

COMMON 

/IDPARM/ 

IROD 

00204 

COMMON 

/ IDPARM/ 

JC 

(46) 

00205 

COMMON 

/IDPARM/ 

JE 

( 2 ) 

00206 

COMMON 

/IDPARM/ 

JP 

t 2,2) 

00207 

COMMON 

/IDPARM/ 

KSTEP 

00  2 08 

COMMON 

/IDPARM/ 

MJ 

f 46  1 

00209 

COMMON 

/IDPARM/ 

NHMS  1 

00210 

COMMON 

/IDPARM/ 

NYMD  1 

C LOGICAL  MODEL  CONSTANTS 


002  1 1 

JMMON 

/LOPARM/ 

FILTER 

002  12 

^ OMNI  ON 

/IDPARM/ 

I TAPE 

00213 

COMMON 

/LDPARM/ 

START 

00214 

LOGICAL 

FILTER 

002  15 

LOGICAL 

ITAPE 

00216 

0 

LOGICAL 

START 

C 

0 

REAL  MODEL 

constants 

00217 

COMMON 

/ROPARM/ 

ADLDP 

00218 

COMMON 

/ RDPARM/ 

CONI 

00219 

COMMON 

/ RDPARM/ 

CON  1 DT 

00220 

COMMON 

/RDPARM/ 

C0N2 

00221 

COMMON 

/RDPARM/ 

CON2DT 

00222 

COMMON 

/RDPARM/ 

C0N3 

00223 

COMMON 

/RDPARM/ 

C0N3DT 

00224 

COMMON 

/RDPARM/ 

C0N4 

00225 

COMMON 

/RDPARM/ 

CON4DT 

00226 

COMMON 

/RDPARM/ 

CON5 

VCNTRL  189 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  19S 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCN7RL  199 
VCNTRL  200 
VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 
VCNTRL  207 
VCNTRL  208 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 


O 

O 

S' 


*-d 

O 

4>- 


— 
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00227 

COMMON 

/RDPARM/ 

COSL 

< 46  ) 

VCNTRL 

260 

00228 

COMMON 

/ROPARM/ 

COSLON 

< 72  ) 

VCNTRL 

261 

00229 

COMMON 

/RDPARM/ 

CPD2 

VCNTRL 

262 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

VCNTRL 

263 

00231 

COMMON 

/RDPARM/ 

DXYP 

(46  ) 

VCNTRL 

264 

00232 

COMMON 

/RDPARM/ 

DYP 

(46  ) 

VCNTRL 

265 

00233 

COMMON 

/RDPARM/ 

FCORLS 

( 46  l 

VCNTRL 

266 

00234 

COMMON 

/RDPARM/ 

F IDT 

VCNTRL 

267 

00235 

COMMON 

/RDPARM/ 

F 2D  T 

VCNTRL 

260 

00236 

COMMON 

/RDPARM/ 

H1DT 

VCNTRL 

269 

00237 

COMMON 

/RDPARM/ 

H20T 

VCNTRL 

270 

00238 

COMMON 

/RDPARM/ 

PKSTD 

VCNTRL 

271 

00239 

COMMON 

/RDPARM/ 

PK  TOP 

VCNTRL 

272 

00240 

COMMON 

/RDPARM/ 

RL  AT 

(46) 

VCNTRL 

273 

0024  1 

COMMON 

/RDPARM/ 

RLATD 

< 46) 

VCNTRL 

274 

00242 

COMMON 

/RDPARM/ 

ROCPDT 

VCNTRL 

275 

00243 

COMMON 

/RDPARM/ 

ROCPP 1 

VCNTRL 

276 

00244 

COMMON 

/RDPARM/ 

SGNP 

( 2 > 

VCNTRL 

277 

00245 

COMMON 

/RDPARM/ 

SINL 

(46) 

VCNTRL 

278 

00246 

COMMON 

/RDPARM/ 

SINLON 

(72» 

VCNTRL 

279 

00247 

COMMON 

/RDPARM/ 

THSTD 

VCNTRL 

280 

00248 

COMMON 

/RDPARM/ 

THSTD2 

VCNTRL 

281 

00249 

COMMON 

/RDPARM/ 

W5AVE 

t 159  > 

VCNTRL 

282 

00250 

COMMON 

/ RDPARM ' 

DSIG 

( 9 J 

VCNTRL 

283 

0025*1 

COMMON 

/RDPARM/ 

SIG 

(9  ) 

VCNTRL 

284 

00252 

COMMON 

/RDPARM/ 

DSIGINV 

t 9 l 

VCNTRL 

285 

C 

VCNTRL 

286 

00253 

BIT  BI TTEMP1 29808) 

VBIT 

2 

C 

VOANDQT 

2 

C 

COMDECK  VQANDQT  RESOLUTION 

VALUES 

VQANDQT 

3 

C 

VOANDQT 

4 

C 

IM 

= 72 

VOANDQT 

5 

C 

NLAY 

= 9 

VQANDOT 

6 

C 

JM»  1 

= 46 

VOANDQT 

7 

C 

NLAY*  1 1 

= 99 

VOANDQT 

8 

C 

1 M *NL  AY*  1 1 

= 7 128 

VOANDQT 

9 

C 

JM/2  * 1 

= 23 

VOANDQT 

10 

GLOBAL  MODEL  PROGNOSTIC  FIELDS  (NEEDED  IN  COMPO J 


VO ANDO T t 1 
VOANDQT  12 
VO ANDO T 1 3 
VOANDQT  14 


00254 

COMMON 

/QANDQT / OPROGI 72 , 9 , 1 1 . 

46) 

VQANDQT 

15 

C 

VOANDQT 

16 

00255 

DIMENSION 

PHIS  (7128.1) 

VOANDQT 

17 

00256 

DIMENSION 

SMTH  (7128.23> 

VOANDQT 

18 

00257 

DIMENSION 

ALBEDO  (7128,1) 

VOANDQT 

19 

00258 

DIMENSION 

GT  (7128.1) 

VQANDQT 

20 

00259 

DIMENSION 

GW  (7128.1) 

VOANDQT 

2 t 

00260 

DIMENSION 

TS  (7128,1) 

VOANDQT 

22 

00261 

DIMENSION 

SHS  (7128,1) 

VQANDOT 

23 

00262 

DIMENSION 

P (72,99.1) 

VOANDQT 

24 

C 

VQANDQT 

25 

00263 

DIMENSION 

U (72,9.11, 

1 > 

VOANDQT 

26 

00264 

DIMENSION 

V < 72 . 9 . 1 t , 

1 > 

VOANDQT 

27 

00265 

DIMENSION 

T (72.9.11. 

I > 

VQANDOT 

28 

00266 

DIMENSION 

SH  (72.9,11, 

1 ) 

VQANDQT 

29 

00267 

DIMENSION 

PHI  , / 2 . 9 . 1 f . 

1 > 

VOANDQT 

30 

C 

VQANDOT 

31 

00268 

EQUIVALENCE 

( QPROG ( 1 . 1 . 1 . 1 > 

, PHIS 

( 1 , 1 > ) 

VOANDQT 

32 

00269 

EQUIVALENCE 

( OPROG ( 1 , 2,1,1) 

, SMTH 

(1.1)) 

VQANDOT 

33 

00270 

EQUIVALENCE 

( QPROG ( 1 . 3,1.1), ALBEDO 

(1.1)) 

VQANDOT 

34 

00271 

EQUIVALENCE 

( OPROGt 1 , 4 . 1 , ! ) , GT 

( 1 . 1 > ) 

VOANDQT 

35 

00272 

EQUIVALENCE 

( QPROG ( 1 . 5 ' . 1 ) 

, GW 

( 1 . U ) 

VOANDQT 

36 

00273 

EQUIVALENCE 

< QPROG ( 1 . 6,1.1) 

, TS 

(1,1)) 

VOANDOT 

37 

00274 

EQUIVALENCE 

( QPROG < 1 . 7,1.1) 

, SHS 

c i . n ) 

VQANDOT 

38 

00275 

EOUP  '.ENCE 

( QPROG ( 1 . 8,1,1> 

, P 

« i . i . u ) 

VQANDOT 

39 

C 

VOANDQT 

40 

00276 

EQUIVALENCE 

( QPROG ( 1.1.  2.1) 

,U  ( 1 . 

1.1,1)) 

VOANDOT 

4 1 

00277 

EQUIVALENCE 

( QPROG ( 1,1.  4 , 1 > , V ( 1 . 

1 . 1 . U ) 

VOANDOT 

42 

00278 

EQUIVALENCE 

( QPROG ( 1.1.  6, 1 ) , T ( 1 . 

1.1.U) 

VO ANDO  r 

43 

00279 

EQUIVALENCE 

( QPROG ( 1,1.  8.11 

, SH  ( 1 . 

1.1,1)) 

VQANDQT 

44 

O 

o 

3 

o 
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m m 


EQUIVALENCE 


< QPROG  f 1.1,10,1), PHI ( t , 1 , 1 , 1 ) ) 


C SPACE  FOP  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN 


0028  1 
00282 
00283 


COMMON 

DIMENSION 

EQUIVALENCE 


f QANDQT / 0SDIAG172 
I 05D I AG (72 


f OSDIAG, IQSDI AG) 


. 15.46) 
,15,46) 


COMMON  /QANDQT/  QUDIAG(72,9,  5,46) 

C 
C 

C DEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION  00.001  INPUT  100 

C CYBER  VECTOR  VERSION  00 


-1 

00286 

CON  IDT 

= CON  1 * DT 

00287 

CON2DT 

- CQN2*DT 

00288 

CON3DT 

= CON3*DT 

00289 

CON40T 

= CON4  * DT 

)’ 

00290 

F IDT  = 

8.  *0T 

i 

00291 

F2DT  = 

-DT 

00292 

H1DT  = 

. 5 * F IDT 

1 00293 

H2DT  = 

. 5 • F 2DT 

00294 

JS2  = 1 

00295 

JS1  = 1 

•;  i 00296 

JP  1 - 1 

l 1 00297 

JP  2 = 1 

00298 

00299 

00300 

00301 

00302 


00303 

00304 

00305 

00306 

00307 

00308 

00309 
003  1 0 
0031  1 
00312 
003  13 
003  14 

00315 

00316 
003  1 7 
00318 
003  19 
00320 

00321 

00322 

00323 


MAIN  LATITUDE  LOOP 


DO  80  d=1,JM 
M a 0 

IF  ( J . EQ . 1 ) Ms  i 
IF  rj.EO.dWI)  M = 2 

IF  (M.E0.2)  GO  TO  20 


SAVE  THEN  SCALE  OfNB,dP2> 

CALCULATE  GEOPOTENTIAL  HEIGHTS  FOR  01ND.JP2) 


CONTINUE 

1KSTEP.NE.0J  GO  TO 
L ZE I TBEG ( 8HCOP YQ 

- COPYQ  ( NB , ND , JP  2 ) 

- ZE I TEND 

CONTINUE 

t KSTEP ,NE . 1 > GO  TO 

- ZE I TBEG ( 8HSAVE  OM 
, SAVEQM  (NB.JP2) 

- ZEITEND 

CONTINUE 

. ZE I TBEG ' 8HSCALEQ 
• SCALEO  f NB, JP2, 1 > 

- ZEITEND 

. ZE I TBEG ( 8HGE0HT 

- GEOHT  1ND.UP2) 

. ZEITEND 

IF  1JP2.GT.2) 

- JP  2 
= JP2  * 1 

GO  TO  10 


GO  TO  20 


VQANDQT  45 
VOANDQT  46 
VQANDQT  47 
VQANDQT  48 
VQANDQT  49 
VOANDQT  50 
VOANDOT  51 
VOANDQT  52 
VOANDQT  53 
VOANDQT  54 
VQANDQT  55 
VCOMPO  31 
VBEGDEB  2 
VBEGDEB  3 
VBEGDEB  4 
VBEGDEB  5 
SSSSSSS VBEGDEB  6 
VCOMPO  33 
VCOMPO  34 
VCOMPO  35 
VCOMPO  36 
VCOMPO  37 
VCOMPO  38 
VCOMPO  39 
VCOMPO  40 
VCOMPO  41 
VCOMPO  42 
VCOMPO  43 
VCOMPO  44 
VCOMPO  45 
VCOMPO  46 
VCOMPO  47 
VCOMPO  4B 
VCOMPO  49 
VCOMPO  50 
VCOMPO  5 t 
VCOMPO  52 
VCOMPO  53 
VCOMPO  54 
VCOMPO  55 
VCOMPO  56 
VCOMPO  57 
VCOMPO  58 
VCOMPO  59 
VCOMPO  60 
VCOMPO  61 
VCOMPO  62 
VCOMPO  63 
VCOMPO  64 
VCOMPO  65 
VCOMPO  66 
VCOMPO  67 
VCOMPO  69 
VCOMPO  69 
VCOMPO  70 
VCOMPO  71 
VCOMPO  72 
VCOMPO  73 
V COP/IPO  74 
VCOMPO  75 
VCOMPO  76 
VCOMPO  77 
VCOMPO  78 
VCOMPO  79 
VCOMPO  80 
VCOMPO  81 
VCOMPO  82 
VCOMPO  B3 
VCOMPO  84 
VCOMPO  B5 
VCOMPO  86 
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C 

C 

C 

C 

c 

» » . t 
* * ♦ • 
.... 

PREDICT  0 < NB , J > = 0 < NB , d ) * DT  *F ( Q 1 ND , J ) ) 

* * -4  4 

* » * ^ 
t ♦ * # 

c 

00324 

20 

CONTINUE 

00325 

CALL 

ZE  I TBEG  ( 8HC0MP 1 ) 

00326 

CALL 

COMP  1 t J ) 

00327 

CALL 

ZE I TEND 

00328 

CALL 

ZE 1 TBEG*  BHCOMP2  ) 

00329 

CALL 

C0MP2  { d ) 

00330 

CALL 

ZEI TEND 

0033  1 

c 

c 

IF  1 d . LT . 3 > GO  TO  70 

c 

♦ M * 

* v 4 * 

c 

» * . ♦ 

CORRECT  FOR  NEGATIVE  HUMIDITIES 

.... 

c 

c 

» ♦ t • 

c 

00332 

30 

CONTINUE 

00333 

CALL 

ZEI TBEG ( SHSHCORN  ) 

00334 

CALL 

SHCORN  <dS2> 

00335 

c 

G 

CALL 

ZE I T END 

c 

...» 

4 4 ■ « 

c 

...» 

CHECK  FOR  PRESSURE  DIAGNOSTIC 

4 ♦ w 4 

c 

c 

.... 

4 4 4 4 

c 

4 4 4 4 4 4 

00336 

QI TTEMP ( 1 ; JM)  = <P< 1 , NB.dS2; IM> . GE . PSMIN-PTOP ) .AND. 

c 

{ P ( 1 , UB . dS2 ; I M ) .LE . PSMAX-PTOP ) 

00337 

IF  <Q8SCNT<BITTEMP< 1 ; IM) ) .EO. IM>  GO  TO  40 

00328 

CALL 

ZEITBEG(8HPRDIAG  > 

00339 

CALL 

PRDIAG  < JS2 , I > 

00340 

CALL 

ZEI TEND 

0034  1 

RETURN  1 

00342 

40 

CONTINUE 

00343 

00344 

00345 

00346 

00347 

00348 

00349 

00350 


0035  1 
0 035  2 

00353 

00354 

00355 

00356 


C 

c 

c 

c 

c 

c 

c 

c 


UNSCALE  0 t N6 , J52 ) 

APPLY  FOURIER  FILTER  NEAR  POLES 


C 

C 

C 

C 

C 

C 

C 

C 


CALL  ZEI TBEG  ( 8HSCALEQ  ) 

CALL  SCALEQ  <NB,JS2,-1> 

CALL  ZE  I TEND 

IF  t . NOT  .FILTER!  dS2  } > GO  TO  41 
CALL  ZE ITBEGI BHAVRX  > 

CALL  AVRX  <dS2) 

CALL  ZE I TEND 
41  CONTINUE 


TIME  SMOOTH  0<ND,dS2)  USING  EARLIER  AND  LATER  VALUES  • 

FOR  SMOOTH  LEAPFROG  TIME  SCHEME  .... 


IF  (MATSUN . NE . O > GO  TO  50 
IF  < NOT . ( KSTEP . EQ. 1 .AND.  GNU? . NE . 0 . » ) GO  TO  60 
CALL  ZE I TBEG18HTIMAVG  ) 

CALL  T IMA VG  <dS2> 

CALL  ZE I TEND 

GO  TO  60 


VCOMPO  87 
VCOMPO  88 
VCOMD0  89 
VCOMPO  90 
VCOMPO  91 
VCOMPO  92 
VCCMPO  93 
VCOMPO  94 
VCOMPO  95 
VCOMPO  96 
VCOMPO  97 
VCOMPO  98 
VCOMPO  99 
VCOMPO  100 
VCOMPO  1 0 1 
VCOMPO  102 
VCOMPO  1 03 
VCOMPO  104 
VCOMPO  105 
VCOMPO  106 
VCOMPO  107 
VCOMPO  108 
VCOMPO  109 
VCOMPO  110 
VCOMPO  1 1 1 
VCOMPO  112 
VCOMPO  113 
VCOMPO  114 
VCOMPO  115 
VCOMPO  116 
VCOMPO  117 
VCOMPO  1 18 
VCOMPO  119 
VCOMPO  120 
VCOMPO  121 
VCOMPO  122 
VCOMPO  123 
VCOMPO  124 
VCOMPO  125 
VCOMPO  126 
VCOMPO  127 
VCOMPO  128 
VCOMPO  129 
VCOMPO  130 
VCOMPO  131 
VCOMPO  132 
VCOMPO  133 
VCOMPO  134 
VCOMPO  135 
VCOMPO  136 
VCOMPO  137 
VCOMPO  1 38 
VCOMPO  1 39 
VCOMPO  140 
VCOMPO  141 
VCOMPO  142 
VCOMPO  143 
VCOMPO  144 
VCOMPO  145 
VCOMPO  146 
VCOMPO  147 
VCOMPO  148 
VCOMPO  149 
VCOMPO  150 
VCOMPO  151 
VCOMPO  152 
VCOMPO  153 
VCOMPO  154 
VCOMPO  155 
VCOMPO  156 
VCOMPO  157 


O 

Si 

o 


■-J 


ORIGINAL  PAGE  19 
OF  POOR  QUALITY 


C 

VCOMPO 

150 

VCOMPO 

159 

c 

* ¥ * ♦ 

* * ♦ ♦ 

VCOMPO 

160 

c 

* ♦ * * 

REPLACE  ORIGINAL 

Q(NB.JS2>  IN  Q ( ND  » JS2  1 

* »*♦ 

VCOMPO 

161 

c 

* *■  * * 

FOR  MAT5UN0  TIME 

SCHEME  CORRECTOR  STEP 

» ♦ 

VCOMPO 

162 

c 

* ♦ » 4 

4 * * ♦ 

VCOMPO 

163 

* + + *•*•»  ► * 

VCOMPO 

1 64 

c 

VCOMPO 

165 

00357 

50 

CONTINUE 

VCOMPO 

166 

00358 

IF  < KSTEP . NE . t } GO  TO 

GO 

VCOMPO 

167 

00359 

CALL 

ZE I TBEG ( 8HREST0M 

) 

VCOMPO 

168 

00350 

CALL 

RESTQM  IND.JS2) 

VCOMPO 

169 

0036  1 

CALL 

ZEI TEND 

VCOMPO 

170 

c 

VCOMPO 

171 

VCOMPO 

1 72 

c 

* r ♦ + 

^ l • 

VCOMPO 

173 

r> 

♦ ♦ ♦ • 

NORMALIZE  Q f NS  1 AT  POLES 

1 ♦ » f 

VCOMPO 

174 

c 

+ » * * 

vcompo 

175 

VCOMPO 

176 

c 

VCOMPO 

177 

00362 

60 

CONTINUE 

VCOMPO 

178 

00363 

IF  f Mtl  ( JS2  ) ► EQ . 0 > GO  TO  6t 

VCOMPO 

179 

00364 

CALL 

ZE I TBEG ( 8HPOLOUT 

) 

VCOMPO 

! 80 

00365 

CALL 

POLOUT  (NB.MdfJSZM 

VCOMPO 

1 8 1 

00366 

CALL 

ZEI TEND 

VCOMPO 

182 

0-03  G 7 

6 1 

CONTINUE 

VCOMPO 

133 

0^360 

IF  (d.LT.JM) 

GO  10  70 

VCOMPO 

184 

0D369 

JS2  = 

JS2  ♦ 1 

VCOMPO 

185 

00370 

IF  I JS2  . LE  . dNP ) GO  TO  30 

VCOMPO 

186 

c 

» * * * 

• • • ‘ 

VCOMPO 

187 

0037  1 

70 

CONTINUE 

VCOMPO 

188 

00372 

dS2  - 

JS  i 

VCOMPO 

189 

00373 

JS 1 - 

j 

VCOMPO 

190 

00374 

JP 1 - 

dP2 

VCOMPO 

191 

00375 

JP2  - 

JP.2  * t 

VCOMPO 

192 

00376 

so 

CONTINUE 

VCOMPO 

193 

00377 

RETURN 

VCOMPO 

194 

00378 

END 

VCOMPO 

195 

STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


10 

303 

323 

10000 

285 

1 1 

30B 

304 

1 2 

3 13 

309 

20 

324 

302 

320 

30 

332 

370 

40 

342 

337 

41 

350 

346 

50 

357 

35  1 

60 

362 

352 

356  358 

6 1 

367 

353 

70 

37  1 

33  1 

368 

80 

376 

298 

*R I ABLE 

MAP 

•NAME 

BLOCK- - 

TYPE 

CLASS 

ADATE 

CCNTRL 

CHAR  * 8 

SIMPLE 

ADLDP 

RDPARM 

REAL 

SIMPLE 

ALBEDO 

QANDOT 

REAL 

ARRAY 

APHEL 

RCMTRL 

REAL 

SIMPLE 

ATIME 

CCNTRL 

CHAR  * 8 

SIMPLE 

BETA 

RCNTRL 

REAL 

SIMPLE 

BITTEMP 

BIT 

ARRAY 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

CC 

CCNTRL 

CHAR ♦B 

ARRAY 

CCO 

CCNTRL 

CHA  R ♦ 8 

SIMPLE 

CCNTRL 

REAL 

UNKNOWN 

REFERENCES  A=ARGLI ST , C^CTRL  OF  DO. 


3 

217 

16 

257 

157 

270 

4 

158 

17 

253 

196 

336  'S 

337 

14 

15 

2 

14 

15 

2 

13 

3 

4 

I^DATA  INIT,  REREAD.  S=STORE  . V/-WRITE 


7 8 9 10  It 


O 

o 


o 


oo 


o g 

■n  g 

-a  £ 
o Z 

o j> 

» P 

lO  *0 

c s 

F Pi 


3 


RTl 


12 


; i 

CCSP06 

CCNTRL 

CHAR • B 

S I MP  L E 

7 

20 

CCSP07 

CCNTRL 

CHAR-8 

SIMPLE 

8 

2 1 

CCSP08 

CCNTRL 

CHAR  * 8 

SIMPLE 

9 

22 

4 

C0MP0 

SUBROUTINE 

1 

j ' 

COM  1 

RDPARM 

REAL 

SIMPLE 

218 

286 

? ■ 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

219 

286  / S 

i 

C0N2 

rdparm 

REAL 

SIMPLE 

220 

287 

:! 

CON  2 D T 

RDPARM 

REAL 

SIMPLE 

221 

287/S 

* 

C0N3 

RDPARM 

REAL 

SIMPLE 

222 

288 

i ! 

CCN3DT 

RDPARM 

REAL 

SIMPLE 

223 

283  /S 

:5 

CON4 

RDPARM 

REAL 

SIMPLE 

224 

289 

i 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

225 

289/S 

; 

CONS 

RDPARM 

REAL 

SIMPLE 

226 

* 

COSD 

RCNTRL 

REAL 

SIMPLE 

159 

1 ’ 

COSL 

RDPARM 

REAL 

ARRAY 

227 

i 

COSLON 

RDPARM 

REAL 

ARRAY 

228 

i 

i 

\ 1 

( 

CP 

RCNTRL 

real 

SIMPLE 

160 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

COS 

CCNTRL 

CHAR-8 

ARRAY 

12 

25 

I ! 

COU 

CCNTRL 

CHAR-8 

ARRAY 

13 

26 

; i 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

16  1 

; : 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

' * 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

163 

; .1 

D13T 

RCNTRL 

REAL 

SIMPLE 

1 64 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

; i 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

DS1G 

RDPARM 

REAL 

ARRAY 

250 

DSIGTNV 

RDPARM 

REAL 

ARRAY 

252 

-1* 

i DT 

RCNTRL 

REAL 

SIMPLE 

167 

286 

V 

DXP 

RDPARM 

REAL 

ARRAY 

230 

* 

DXYP 

RDPARM 

REAL 

ARRAY 

23  1 

DYP 

RDPARM 

REAL 

ARRAY 

232 

u 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

•!*. 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

i 

F IDT 

RDPARM 

REAL 

SIMPLE 

234 

290  /S 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

29  1 /S 

J 

S FCORLS 

RDPARM 

REAL 

ARRAY 

233 

FILTER 
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COMMON  /OMSAVE/  PIT (72,5) 

COMMON  /QMSAVE/  CONV < 72 , 9 , 5 ) , SD(72,9,5) 

COMMON  /QMSAVE/  TERMW (72.9.5) . TERMT (72,9,5) 


COMMON 

S 

/ IMdM/ 

I MM  1 . 
I MT 2 , 

I MM2 , 
1 MT4  , 

I MM3  , 

IMM4\ 

I MM5 

S 

S 

IMNLAY. 
I MD2M1 , 

IMNLAY1 . 

IMNLAY2 , 

IMNLAY3, 

IMNLAY4, 

IMNLA Y5 

S 

NLAYT2 , 

NLAYT3 , 

NLAYT4  , 

NLAYT5 . 

NLAYT6, 

NLAVT7 

WORK 

COMMON 

S 

s 

s 

s 

s 

s 

s 

s 

s 

s 


AREAS 

Pd<72  ,9). 

PdP 1(72,9), 

PdP 2 (72,9), 

PUISI (72,9). 

PPU172  ,9.2). 

F FLUX  1 (72,9),  FFLUX2f 72,9)  , 
GFLUX1  (72,9)  , GFLU/.2  ( 72 , 9 ) , 
PV 1 (72.9) , PV2 (72,9) , 

PU (72,9) , 

PU 1 (72,9) t PU2 (72,9) , 
SDK72),  PK  1(72),  PK2(72) 


Pd  ARRARY  SHOULD  BE  THE  FIRST  BLANK  COMMON 
IT  IS  USED  IN  COMP 2 WHERE  IT  IS  CALLED 


DIMENSION  BIT! (648) ,BIT2(648) ,BIT3(648) , 

S BIT4 ( 648 ) ,BIT5 ( 648) 

BIT  BIT1 , BIT2,  BIT3,  BIT4,  BITS 

BIT  BIT1D.BIT2D,BIT3D,BIT4Df BIT5D 

DESCRIPTOR  BIT  ID , BI T2D , BI T3D , BI T4D , B I T5D 
COMMON  /BITC0MP1/  B I T I MM 1 f 648 ) , B I T I MM2 ( 648 i 
BIT  B1TIMM1,  BITIMM2 
ASSIGN  BIT1D >BIT1 ( 1 ;648) 

ASSIGN  BIT2D,BIT2< 1 :648) 

ASSIGN  BI T3D ,BIT3( 1 ; 648 ) 

ASSIGN  BIT4D.BIT4U  ;648) 

ASSIGN  BIT5D.BIT5( 1 :648) 


NLAYND  = NLAYMND  - 1) 
NLAYNB  a NLAY* < NB  - 1) 
dPI  a d + 1 
dD2  = J + 2 
K = dC(d) 

KP1  = dC(dPI) 

KP2  = dC<dP2) 


Pd( 1 . 1 ; IM> 
Pd( 1 ,2: IM) 
Pd( 1,3; I M T 2 ) 
Pd( 1 ,5 ; IMT4) 
Pd( 1 ,9; IM) 


a PH.ND.d;  IM) 
= Pd( 1 , 1 ; IM} 

= Pdf  1 , 1 ; I MT  2 ) 
= Pd( 1 , 1 ; IMT4 ) 
a P J < 1 , 1 • 1 Ml 


THE  ABOVE  SCHEME  IS  FASTER  FOR  9 LAVERS  THEN  THE  FOLLOWING 
DO  LOOP. 
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3 
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VQMSAVE 

6 

VQMSAVE 

7 

VQMSAVE 

8 

VQMSAVE 
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VQMSAVE 

10 

VQMSAVE 

1 1 

VOMSAVE 

12 

VQMSAVE 

13 

VOMSAVE 

14 

VIMdM 

2 

VI  MUM 

3 

VIMdM 

4 

VIMdM 

5 

VIMdM 

6 

VWKCMP 1 

2 

VWKCMP 1 

3 

VWKCMP 1 

4 

VWKCMP 1 

5 

VWKCMP 1 

6 

VWKCMP 1 

7 

VWKCMP 1 

a 

VWKCMP 1 

9 

VWKCMP 1 

10 

VWKCMP 1 

1 1 

VWKCMP 1 

12 

VWKCMP 1 

13 

VWKCMP  t 

14 

VWKCMP 1 

15 

VVJKCMP  1 

16 

VWKCMP ! 

17 

'VWKCMP 1 

18 

VWKCMP 1 

19 

VWKCMP 1 

20 

VWKCMP 1 

21 

VWKCMP 1 

22 

VWKCMP 1 

23 

VBITCM1 

2 

VBITCM1 

3 

VBI TCM1 

4 

VBITCM1 

5 

VbJTCMI 

6 

vei T CM  1 

7 

VBI TCM1 
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VBITCMI 

9 

VBITCMI 

10 

VBITCMI 

1 1 

VBITCMI 

12 

VBITCMI 

13 

VBITCMI 

14 

VCOMP 1 
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VC CMP  1 

17 

VCOMP 1 
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VCOMP 1 
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VCOMP 1 
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VCOMP 1 
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27 

VCOMP 1 

28 

VCOMP 1 

29 

VCOMP 1 
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0032! 

00322 

00323 


00324 


00325 

00326 

00327 

00328 


00329 

00330 

00331 

00332 


00333 

00334 

00335 

0033G 

00337 

00338 

00339 

00340 


00341 


00342 

00343 


00344 

00345 

00346 


DO  5111  L=2 , NLAY 
Pd  < 1 , L ; IM ) r 

5111  CONTINUE 


PU ( i i i j IM) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PJP1 < 1 
Pdpl f 1 
PJP  1(1 
POP  1(1 
PdP  K1, 


i : IM) 

2;  IM) 

3 ; IMT2 > 
5: IMT4) 
9;  IM) 


P ( 1 .NO, 
PdP  t<1, 
PdP 1(1, 
PdP!  < 1 . 
PdP 1(1, 


dP 1 ; IM) 
T i IM) 

1 ; I WIT 2 ) 

1 ; IMT4 ) 
l ; IM) 


THE  ABOVE 
DO  LOOP . 


SCHEME  IS  FASTER  FOR  9 LAYERS  THEN  THE  FOLLOWING 


DO  5112  L = 2 # NLAY 
PdP! (1 ,L; IM) 

51 12  CONTINUE 

PdP 2( 1 . 1 ; IM) 

PdP2 (1.2; IM) 

PdP2 { 1 ,3 ; IMT2)  = 
PdP2 ( 1 ,5; IMT4 > = 
PtlP2(  1 . 9 ; I M ) s 


= PdP  M1.1;  I M > 

= P(1 ,ND,dP2;IM) 


PdP2 ( 1 , 
PdP2( 1 , 
PdP  2 < 1 , 
PdP2< 1 , 


IM) 
IMT2) 
IMT4  ) 
IM) 


THE  ABOVE 
DO  LOOP. 


SCHEME  IS  FASTER  FOR  9 LAYERS  THEN  THE  FOLLOWING 


51  13 
500  1 


C 

C 

C 


DO  5113  L=2 , NLAY 
PdP  2 ( 1 , L; IM) 
CONTINUE 
CONTINUE 


- PdP2( 1 . 1 : I Ml 


COMBINE  LAYER  AND  TIME  INDICES 


PUISI ( 1 , 
PPU< 1.1 
PPU( 1,1 


IMNLA Y > s 
IMNLAY1 ) 
IMNLAY2) 


DYP(d)  •’Pdl  1 , 
= PUISI (1.1; 
= PUISI M . 1 ; 


1 ; IMNLAY) *U( 1 , 1+NLAYND. 1 .d; IMNLA Y 
IMNLA Y 1 ) ♦ PUISI (2, 1 ; IMNLAY1 l 
IMNLA Y2)  * PUISI (3, 1 ; IMMLAY2) 


5002 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


C 

C 

c 

c 

c 

c 

c 


DO  5002 
PPU< IM 
PPU( IMM1 .LL 
PPUdiyi  .LL 
CONTINUE 


LL= 1 , NLAY 

.LL . 1 ) = PUISI  ( IM  , LL  ) 
2)  = PUISI ( IMM1 , LL ) 
2)  = PUISI ( IM  , LL) 


PUISI < 1 , 
PUISI ( 1 , 
PUISI (2, 


LL) 

LL) 

LL) 


IF  ( d . EQ . U GO  TO  20 


HORIZONTAL  ADVECTION  IN  LONGITUDINAL  DIRECTION 
CALCULATE  PU 


FFLUK 1 ( 1 , 1 ; IMNLAY ) = H 1 DT*PPU (1,1.1: IMNLAY ) 
FFLUX2 ( 1 , 1 ; IMNLAY ) = H2D  T *PPU (1,1,2: IMNLAY ) 


GFLUX1 (1,1; IMNLAY 1 ) r 

5 

GFLU*2{  1 . 1 ; IMNLAY2)  = 


DO  5003  LL  = 1 .NLAY 


0(1.1 *NLA YND , 1 . d; IMNLAY 1 ) 
* U' 2. 1 ‘NLAYND, 1 . d; IMNLAY1 ) 
0(1.1 *NLA YND , 1 , d ; IMNLAY2) 
+ U(3,  1 ANLAYND,  1 , d ; IPJNLAY2) 
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49 

VCOMP 1 

50 

VCOMP 1 

51 

VCOMP 1 

52 

VCOMP  t 

S3 

VCOMP  1 

54 

VCOMP 1 

55 
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VCOMP 1 
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VCOMP 1 

78 

VCOMP  1 

79 
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VCOMP 1 
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VCOMP 1 
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VCOMP 1 

85 

VCOMP 1 
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GFLUX 1 ( IM  , L L ) = UIIM  . LL * NLA YND , 1 , J ) * U < 1 , LL  + NLA  YND ,1,0) 
GFLUX2<IM  .LL)  = U|!M  , LL^NLAYND , 1 , d ) U ( 2 , LL*NL A YHD , 1 .J) 
GFLUX2< IMM1 .LL)  = U < IMM 1 , LL^NL A YND . I . d > * U < 1 . LL-^NLA  YND . 1 , d > 
5003  CONTINUE 
C 

GFLUX  1 M . 1 : IMNLAY)  = FFLUX1  <1.1;  I MNLA Y ) *GFLUX  1 <1,1;  IMNLAY) 
GFLUX2<  1.1; IMNLAY)  a FFLUX2  < 1.1; IMNLAY ) *GFLUX2  < 1,1; IMNLAY  > 

C 

WHERE  I BIT !MM2<  1 ; IMNLA Y2  > > U<3.  1+NLAYNB,  1 , d ; I MNLA Y2 ) * 

S U<3, l+NLAYNB. 1 , d; IMNLAY2)  + GFLUX2< 1,1; IMNLAY2J 

C 

WHERE (BITIMM1 ( 1 ; IMNLAY 1 ) ) U<2. I^NLAYNB, 1 . d; IMNLA Y1)  = 

S U ( 2 , 1 +NLAYNB , 1 . J ; IMNLA Y1 ) * GFLUX 1 ( 1 t 1 ; I MNLA Y 1 J 

C 


UU  , 1 A NL A YNB , 1 ,J; IMNLAY)  a U<  1 , 1 *NLA YNB , 1 ,d; IMNLAY) 

S - GFLUX 1 (1.1; IMNLAY) 

S - 0FLUX2< 1 , 1 ; IMNLAY » 

C 

DO  5004  LL  = 1 .NLAY 

UM  . LL  1 NLA  YNB  . 1 . d)  a U ( \ . L L * NLA  YNB  . 1 f d ) <*  GF  LUX  2 < I MM  1 . L L ) 

U<  2 . LL  -i  NLAYNB  . 1 , d)  a U < 2 . L L * NL A YNB , f.d)  * GFLUX2(IM  ,uL) 

U < 1 , LL* NLA YNB  f 1 f d } = U < 1 . L L x NL A YNB . 1 . d ) * GFLUX 1 ( IM  .LL) 

5004  CONTINUE 
C 

C **  * ► 

C * * * * V WIND  ADVECTION 

C • w * * ♦ * 

C 

c 

c 


GFLUX 1(1,1: IMNLAY 1 ) 
S 

GF  LUX  2 ( 1.1; IMNLAY2) 
S 


V<  t . t+NLAYND. 1 , d; IMNLA VI > 
V' 2, 1 *NLA YND ♦ 1 . d; IMNLA Y1 ) 
V<1  , 1 +NLAYND • 1 . d; IMNLA Y2) 
V ( 3 . 1 +NLAYND. t , d; IMNLAY2) 


DO  5005  LL* 1 .NLAY 

GFLUX  1 { IM  , L L ) = VUM  . LL  *NLA YND  . 1 . d ) * V (1  . LL  ■‘•NL  A YND  . 1 . d > 

GFLUX2UM  .LL)  a V(IM  . LL  * NL  A YND  , 1 . d ) * V < 2 . LL *NLA YND . t . d > 

GF  LUX 2 < IMM1  . LL  > = V < I MM 1 . LL * NLA YND . 1 . d ) + V < 1 . LL +NLA YND . 1 , d i 

5005  CONTINUE 


C 

GFLUX 1 <1.1; IMNLAY)  a FFLUX 1 <1.1; IMNLAY ) *GFLUX 1 <1.1; IMNLAY) 
GFLUX2  < 1.1; IMNLAY)  = FFLUX2<  1,1: I MNLA V ) -GFLUX 2 < 1.1; IMNLAY) 

C 

WHERE ( B I T IMM2 ( 1 ; IMNLA Y2 ) ? V<3. 1 *NLAYNB , 1 , J; IMNLA Y2)  * 

S V<3 . 1 +NLAYN0 . 1 ,d; IMNLAY2 ) - GFLUX2 < 1 . 1 : IMNLA Y2 ) 

C 

WHERE (BITIMM1 ( 1 ; IMNLAY 1) > V < 2 . 1 +NLA YNB . 1 . d ; IMNLAY 1 > a 
S V<2, l+NLAYNB , 1 ,d; IMNLAY! ) ♦ GFLUX  1 < 1 , 1 ; IMNLA Y 1 ; 

C 


VI  1 , 1 -‘•NLAYNB  . 1 , d ; IMNLAY  ) = V < 1 , 1 * NLA  YNB  . 1 . d ; IMNLA  Y ) 

S - GFLUX 1 <1.1; IMNLAY) 

S - GFLUX2I 1 . 1 : IMNLAY) 

C 

DO  5006  LL*l .NLAY 

V < 1 , LL  * NLAYNB . 1 . d ) = V < I ♦ LL  A NLAYNB . 1 , d ) * GFLUX 2 ( IMM 1 . L L ) 

V ( 2 , LL  * NLAYNB , 1 , J ) = V < 2 , LL * NLA YNB . 1 . d ) * GFLUX2(IM  .LL) 

V (1  , LL4- NLAYNB  . 1 . J ) a VM  , LL  + NLAYNB  ,1,0)  + GFLUX  1 < IM  ,LU 

5006  CONTINUE 

C 

c 

C ****** 

c * * + + • 

C TEMPERATURE  ADVECTION 

C * * • * * « 

c 


GFLUX 1 <1.1; IMNLA Y 1 * = T< 1 . 1 *NLAYND. 1 . d; IMNLAY1 ) 
S 4 T ( 2 . 1 x NLA YND . 1 , d ; IMNLAY 1 ) 


VC0MP1  105 
VC0MP1  106 
VCOMP 1 107 
VC0MP1  108 
VC0MP1  109 
VCOMP 1 110 
VC0MP1  111 
VCOMP 1 112 
VCOMP 1 113 
VCOMP 1 114 
VCOMP!  MS 

vcomp i tie 

VCOMP 1 117 
VCOMP 1 1 18 
VCOMP 1 119 
VCOMP 1 1 20 
VCOMP I 121 
VCOMP 1 1 22 
VCOMP 1 1 23 
VCOMP 1 1 24 
VCOMP 1 1 25 
VCOMP 1 126 
VCOMP  1 1 27 
VCOMP 1 128 
VCOMP 1 129 
VCOMP 1 1 30 
VCOMP 1 131 
VCOMP 1 132 
VCOMP 1 1 33 
VCOMP 1 I 34 
VCOMP 1 135 
VCOMP 1 136 
VCOMP 1 1 37 
VCOMP 1 1 38 
VCOMP 1 139 
VCOMP 1 140 
VCOMP 1 141 
VCOMP 1 142 
VCOMP 1 I 43 
VCOMP 1 144 
VCOMP!  145 
VCOMP 1 146 
VCOMP 1 147 
VCOMP 1 148 
VCOMP 1 149 
VCOMP 1 150 
VCOMP 1 151 
VCOMP 1 152 
VCOMP 1 1 53 
VCOMP 1 154 
VCOMP 1 155 
VCOMP 1 156 
VCOMP 1 157 
VCOMP 1 1 58 
VCOMP 1 159 
VCOMP 1 160 
VCOMP 1 161 
VCOMP 1 162 
VCOMP 1 163 
VCOMP 1 1 64 
VCOMP 1 165 
VCOMP 1 165 
VCOMP 1 167 
VCOMP 1 168 
VCOMP T 169 
VCOMP 1 170 
VCOMP 1 171 
VCOMP 1 172 
VCOMP 1 173 
VCOMP 1 174 
VCOMP 1 175 


CO 
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00379 


00380 
0038  1 
003B2 
00383 
003B4 

00385 

00388 

00387 


00338 


00389 


00390 
0039  1 

00392 

00393 
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00395 
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00397 

00398 

00399 

00400 
0040  1 

00402 

00403 

00404 

00405 
00405 

00407 

00408 

00409 
004  10 

004  1 1 
004  12 

00413 


004  14 
00415 
004  16 
00417 


GPLUX2 M . T ; IMNLAY2 > = 


T < 1 . 1 ‘NLAYND.  1 . d ; IMNLA Y2) 
T ( 3 . 1 ■ NLA YND. 1 . 0 ; IMNLA V2 ) 


DO  5007  LL  = 1 . NLA Y 
GFLUXUIM  , LL  ) = T { IM  , LL 
GFLUX2  t IM  * LL  ) * T MM  .LL 
GFLUX2  MMMI  ,LL  ) “ TflMMI.LL 

5007  CONTINUE 

GFLUX t ft , 1 ; IMNLAY)  = F FLU XI 
GFLUX2  M , 1 ; IMNLAY  ) = FFLU*2 

WHEREfBlTIMM21  1 ; IMNLAV2  > ) 

S T<3,t*NLAYNB 

WHERE  101 TIMM1 f 1 ; IMNLAY 1 ) ) 

S T < 2 . 1 * NLA /MB 

Tf  1 . 1 *NLAVNB,  1 ,0; IMNLAY) 


4 NLA YND ,1,0)  * T(  1 .LL+NLAYND,  1 .0 ) 
‘NLAYND.1.J)  * T < 2 . LL*NLAYND .1.0) 
•NLA YND  . t . d>  * TM  .LL+NLAVNO.  1 . 0) 


C 

C 


f 1 . 1 ; IMNLAY) ♦ GF  LUX  1(1,1; IMNLAY I 
< 1 . 1 ; IMNLAY ) *GFLUX2f 1.1; IMNl.  A / » 

T1 3 , 1 +NLAYNB , 1 , J; IMNLAY2 > = 

. 1 ,0; IMNLAY2 > * GFLUX2 i 1 , 1 ; I VNLA Y2 ) 

T12 , 1 *NLAYNB, 1 . J; IMNLAY 1 > = 

. 1 . 0:  IMNLAY  11  + GFLUX 1 ( 1 4 1 ; IMML AV 1 • 

T ( 1 , t * NL  A YfJB  ,I,J;  IMNLAV  « 

- GFLUX If  1.1; IMNLA Vi 

- GFLUX2 (1,1; IMNLAV ) 


DO  5008  LL= 1 , NL A Y 
T f 1 . LL 4NLAYNB , 1 , J ) = T11.LL 

T 1 2 . LL  J-NLAYNB .1,0)  = T12.LL 

TM  .LL  1 NL  AVfJB  ,1,0)  = Tfl.LL 
5003  CONTINUE 


* NL A VNB , 1.0) 
*NLAYNB . t , d ) 
•■NLA  VNB  . 1 ( J» 


GF  LUX 2 1 I MM 1 . LL ) 
GFLUX2 ( IM  .LL) 
GFLUX 1 f IM  .LI) 


C 

C 

C 

C 

C 

C 

c 

c 

c 


c 


HUMIDITY  ADVECTION 


GFLUX 1 ' 1 , 1 : IMNLAY 1 ) 
S 

GF  LUX  2 f 1,1; IMNLAY2) 
S 


SHM.  I 1 NLA  YND  . 1,0;  IMNLAY  1 ) 
SH<  2,  1 ‘NLA YND .1.0: IMNLAY 1 ) 
SH (1,1 fcNL A YND , 1 .0; IMNLA Y2) 
SHf  3,  I 1 NLA YND . 1 .0; IMNLA Y2 ) 


DO  5009  LL= 1 . NLA V 

GFLUX  1 f IM  , LL  ) = SH1IM  . LL  * NLAYND  . 1 . J ) * SH  ( 1 , LL  ■*• NLA Yf-JD  .1.0) 

GFLUX2 1 IM  , LL ) = SH1IM  . LL ‘NL A YND , 1 , 0 > * SH < 2 . LL 4 NLA VND . 1 . 0 ) 

GFLUX21  IMM1  .LL  ) = SH  < I MM  I . L L * NL  A VND  . 1 , d > + SH  * 1 , LL  * NLA  YflD  .1*0) 

5009  CONTINUE 


C 

GFLUX 1(1,1; IMNLAY)  = FFLUX 1 ( 1 , 1 ; IMNLAY ) *GFLUX 1(1,1; IMNLAV ) 

GFLUX2 f 1 , 1 ; IMNLAY)  = FFLUX2 ( 1 , I ; IMNLA Y ) *GFLUX2 ( I . 1 ; I MNLA Y ) 
C 

BIT1D  = SH  (1,1  •■NLAYND  .1,0;  IMNLAV  ) „ LE  . 0 . 

BIT2D  * GFLUX1 ( 1 , 1 ; IMNLAY) .LT.O. 

BIT3D  * GFLUX2  ( 1 , 1 ; I MNLAY  ) .LT.O. 

C 

BI T4 f 1 ; IMNLAY 1 ) = B I T 1 < 2 ; IMNLA Y 1 > . AND . B I T2 1 1 ; IMNLA V 1) 

DO  5010  LL=IM, IMNLAY, IM 

BI T4{ LL ) = BI T1 (LL-IMMt > . AND.BIT2I LL > 

5010  CONTINUE 
C 

BIT2D  = BI T ID . AND. .NOT.BIT2D 

BIT4D  = BIT4D.0R.BIT2D 
C 

GFLUX 1 ( 1 , 1 ; IMNLAY)  = 08VMASK f O . O , GFLUX 1< 1 . 1 ; IMNLAY ). BI T 40 ; 

S GFLUX 1 f 1 , 1 ; IMNLAY  > ) 

C 

C 

C 

BIT4<  1 ; IMNLA Y2)  = BIT1 (3; IMNLAY2)  . A ND . B I T 3 ( 1 ; IMNLA Y2 ) 

DO  5011  LL  = IMM 1 , IMNLAY  . IP/1 

BIT41LL  > = 0 IT  1 ( LL- IMM2 ) . AMD . BI T3 ( LL ) 

BIT41LL  *1)  = BIT1 (LL-IMM3) . AND . BI T3 ( LL * 1 ) 


VCOMP 1 I 76 
VCOMP 1 177 
VCOMP 1 178 
VCOMP 1 179 
VCOMP 1 180 
VCOMP 1 181 
VCOMP 1 182 
VCOMP 1 1 83 
VCOMP 1 184 
VCOMP 1 1 35 
VCOMP 1 1 86 
VCOMP 1 187 
VCOMP 1 188 
VCOMP 1 189 
VCOMP 1 190 
VCOMP 1 191 
VCOMP 1 192 
VCOMP 1 193 
VCOMP 1 1 94 
VCOMP 1 195 
VCOMP 1 196 
VCOMP 1 1 97 
VCOMP 1 1 93 
VCOMP 1 199 
VCOMP 1 200 
VCOMP 1 20 1 
VCOMP 1 202 
VCOMP 1 203 
VCOMP 1 204 
VCOMP 1 205 
VCOMP 1 206 
VCOMP i 207 
VCOMP 1 2 OB 
VCOMP I 209 
VCOMP 1 210 
VCOMP 1 211 
VCOMP 1 212 
VCOMP 1 213 
VCOMP 1 214 
VCOMP 1 215 
VCOMP 1 216 
VCOMP 1 217 
VCOMP 1 218 
VCOMP 1 219 
VCCMP 1 220 
VCOMP 1 221 
VCOMP 1 222 
VCOMP 1 223 
VCOMP 1 224 
VCOMP 1 225 
VCOMP 1 226 
VCOMP 1 227 
VCOMP 1 228 
VCOMP 1 229 
VCOMP 1 230 
VCOMP 1 231 
VCOMP!  232 
VCOMP 1 233 
VCOMP 1 234 
VCOMP 1 235 
VCOMP 1 236 
VCOMP 1 237 
VCOMP  t 233 
VCOMP 1 239 
VCOMP 1 240 
VCOMP 1 24 1 
VCOMP 1 242 
VCOMP 1 243 
VCOMP 1 244 
VCOMP 1 245 
VCOMP 1 246 


n 

o 

K 


v£> 


ORIGINAL  PA@Z  !f 
OF  POOR  QUALITY 


004  13 


5011  CONTINUE 


00419 

00420 

00421 

00422 

00423 

00424 


00425 
004  26 

00427 

00428 

00429 

00430 

00431 


00432 

00433 

00434 

00435 

00436 


00443 

00444 

00445 

00446 

00447 


C 

C 


BIT  30  ss  BIT  10.  AND.  . K3T.BIT3D 
BIT40  = BIT40 .OR .BIT3D 

GFLUX2I 1,1; IMNLAV)  = Q8VMASK (0.0, GFLUX2  < 1.1; IMNLAY) , BI T40 ; 
s GFLUX2I 1.1 ; IMNLAY) ) 

WHERE ( BITIMM2 I t ; 1MNLAY2 ) ) SH < 3 , 1 + NL A YNB . 1 . J ; I MNLAY2 > = 

S SH( 3 , 1 *NLAYNB , f ,d; IMNLA Y2 1 * GFLUX2I 1,1: IMNLAY2 ) 

WHEREIBITIMM1 C 1 ; IMNLAYt ) ) SH I 2 . 1 ♦ NLA YNB , 1 f J ; IMNLAY 1 > = 

S SH( 2. 1+NLAYNB, 1 , d; IMNLAV 1)  A GFLUX 1 < 1 . 1 ; IMNLA V 1 > 


SH<  1 . 1 ■»  NLA  YNB  . 1 , d ; IMNLAY  J * 


SHI  I . 1 * NLA YNB . 1 , J; IMNLAV > 

- GFLUX 1 11,1 ; IMNLAY ) 

- GFLUX2I 1.1; IMNLAY > 


DO  5012  LL= 1 * NLA Y 


50 


lul  1 = SHU  LL^NLAVNB.  1 .d)  *■  GFLUX2 1 I WIM 1 . L L J 

SH  I 2 f LL  ^-NLAYNB  . 1 , d > n SH ! 2 . LL *NLAVNB . 1 . d ) * GFLUX2IIM  LL) 

12  loNTINUE NLAYNB, 1.JJ  = SHI  1 »LL*NLAYNB,  1 ,d)  - GFLUX?! IM  [ll! 


C 

c 

c 

c 

c 

c 

c 

c 


IF  Id.EQ.JM) 
GO  TO  30 


GO  TO  50 


SOUTH  POLE  CORRECTION 


20  CONTINUE 

CONV (1 . 1 . KP I ; IMNLAY ) = 0. 

CONVI1.UK  ; IMNLAY)  = 0. 

PVC1.1.K  : IMNLAY)  s 

SPV<  t.  1 , KP1  * IMNLAY)  '¥  IMNLAY)*VC  1 • t-NLAYND.  1 , J;TMNLAY) 

S DXPlJPIMPdPlMU;  IMNLAY  > ►VI  1 . I *NLAYND  , 1 ,JP1  ; IMNLAY  ) 


HORIZONTAL^ADVECTJON  IN  LATITUDINAL  DIRECTION 


00437 

30 

00438 

PV  M . 1 , K 
S 

00439 

PV1U.1; 

00440 

PV2  f itt; 

0044  t 

FFLUX1 1 1 

00442 

C 

C 

FFLUX2I 1 

CONTINUE 
P2; IMNLAY)  = 

Ttj.SiX?i%P2,«»PUP2(  1 • 1 : 1MNLAY)*VI  1 . 1 *NLA YND  , 1 .JP2; IMNLAY* 
= PV(  1 • 1 IMNLAY)  * PV(  1 . 1 .KP1  ; IMNLAY) 

IMNLAV)  a PVI 1 , 1 . K ; IMNLAY)  * PV < 1 . 1 , KP2 ; IMNLA V ) 

♦ 1 ; IMNLAY ) = H1DT*PV1 ( 1 , 1 ; IMNLAY) 

, 1; IMNLAY)  = H20T*PV2I  1 . 1 ; IMNLAY) 


U WIND  ADVECT ION 


GFLUX 1 U , 1 : IMNLAY ) = FFLUX 1 I 1 t t : IMNLAY ) * 

S I U I 1 , 1 ANLA YND , 1 , d : IMNLAY ) * U I 1 . I * NLA YND . 1 . JP 1 * IMNLAY ) > 

GFLUX2U  . 1 ; IMNLAY)  = FFLUX 2 I 1 , 1 ; IMNLAY  ) * 

S I U I 1 , 1 x NLA  YND  , 1 , J ; IMNLAY  ) fc  U U , t *NLA  VND  1 dP2  ♦ TMflLJi  V » » 

0< . . I-NLAYNB. 1 . JP2; IMNLAV)  = Ull, 1 V AVNB . T . J?2 j i mSl A vl 
5 * GFLUV2 U . 1 : IMNLAY) 

U 11,1 4 NLA YNB , 1 , JP 1 : IMNLAY ) = U M , 1 * NLA YNB , 1 . dP 1 ; IMNLA Y > 

4 GFLUX 1 M , 1 ; IMNLAY) 

; IMNLAY ) = U I 1 , 1 ♦ NLA YNB ♦ 1 . d ; IMNLAY  > 


Ull . 1 * NLA YNB . 1 . d 


VCOMP 1 247 
VCOMPt  24S 
VCOMP 1 249 
VCOMP 1 250 
VCOMP 1 25 1 
VCOMP 1 252 
VCOMPt  253 
VCOMP 1 254 
VCOMPt  255 
VCOMP 1 256 
VCOMPt  257 
VCOMPt  25B 
VCOMP 1 259 
VCOMP 1 260 
VCOMPt  261 
VCOMPt  262 
VCOMP 1 263 

VCOMPt  264 
VCOMP 1 265 
VCOMP 1 266 
VCOMP 1 267 

VCOMP 1 268 
VCOMP 1 269 
VCOMPt  270 
VCOMPt  271 
VCOMPt  272 
VCOMPt  273 
VCOMP 1 274 

VCOMPt  275 
VCOMP I 276 
VCOMP!  277 
VCOMPt  273 
VCOMP  t 279 
VCOMPt  280 
VCOMP 1 28 1 

VCOMP 1 282 
VCOMP  t 283 
VCOMP 1 284 

VCOMPt  285 
VCOMPt  286 
VCOMPt  287 
VCOMPt  288 
VCOMPt  289 
VCOMP  t 290 
VCOMPt  291 
VCOMPt  292 
VCOMP 1 293 
VCOMP 1 294 
VCOMP!  295 
VCOMPt  296 
VCOMPt  297 
VCOMPt  298 
VCOMP  t 299 
VCOMPt  300 
VCOMPt  301 
VCOMPt  302 
VCOMP 1 303 
VCOMP 1 304 
VCOMPt  305 
VCOMPt  306 
VCOMP 1 307 
VCOMPt  308 
VCOMP  t 309 
VCOMP!  3 TO 
VCOMPt  31 t 
VCOMP 1 312 
VCOMP 1 313 
VCOMP!  314 
VCOMPt  315 
VCOMP 1 316 
VCOMPt  317 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


00448 

00449 

00450 
0045  t 
00452 


00453 

00454 

00455 
00458 
00457 


00458 

00459 


00460 

00461 

00462 

00463 

00464 

00465 

00466 


00467 

00468 

00469 

00470 

00471 

00472 


00473 

00474 

00475 


C 

C 

C 

C 

C 

c 

c 


s - GFLUX IMNLAY ) - GFLUX2  M , I ; IMNLAY  > 

• * + * 


V WIND  ADVECT10N 


GFLUX 1 ( 1 


GFLUX2 


MjtllMNLAV)  =:  FFLUX 1 M , 1 : IMNLAY) » 
(VU  . I^NLAYND,  1 , d;  IMMLAV1  * VM,  1 ** 
J«sJMMJILAV>  " FFLUX2 tt , t ; IMNLAY! ♦ 


NLAYND,  t .UP  t ; IMNLAY ) ) 


V<  1 

s 

V<  1 , 


Vf  1 , 1 


c 

c 

c 

c 

c 

c 

c 


t ANLA YNB . 1 t UP! ; IMNLA Y ) = V? U V*NLA VNB [T^UP I ; IMNLA V ) 

W-AGFLUX1  (1  j^IMWLAYl  = Vrci  ^^AVMe!7?jtlMNLAyi 
GFLUX 1(1,1; IMNLAY  ) - GF LUX 2 I 1 , T ; IMNLA Y > 


TEMPERATURE  ADVECT1 ON 


C 

C 

C 

C 

C 

c 

c 


GFLUX f(1  1; IMNLAY)  = FFLUX 1 f ! . 1 ; IMNLAY! ♦ 

*oFLO*an! ! ; . ^^}:NL4VND- 1 JP>  * ■ 

T < 1 . 1 ■‘■NLAYNB.  t . UP  I ; IMNLAY  ) = T t t , 1 •» NLAYNB  , 1 , JpY  ; IMNLA V > 

T(  • , 1 ‘■NLAYNB  . 1 , J ; IMNLAY  I .* tVu  t?NLAYlU!T!i?IlU.AY> 

S GFLUX t { f , t ; IMNLA Y ) - GFLUX2M  i 1 ; irJlNCA;” 


HUMIDITY  ADVECT I ON 


GFLUX 1(1,1; IMNLAY ) = FFLUX II 1f 1 j IMNLAY) * 

!qflu»2  j ???  i .s^cs;  5 x • , , lttM«  . 

^ ISHM t 1 *NLAYND , 1 . J; IMNLAY)  4 SH<  1 , 1 *NLAYND • 1 . UP2 : IMNLA V I > 

nlllZ  = 2J?1C1U,tMLAYWD*  l.«H>1ilMNLAVI  .LE.O. 

BIT2D  - GFLUX 1(1,1; IMNLAY 1 . LT . 0 . 

BIT4D  = BI T ID . AND.BIT2D 

PTT^n  = ^?JhAVND  • 1 - J;  IMULAV)  .LE.O. 

BIT5D  = BIT3D* AND. .N0T.BIT2D 
BIT4D  = SIT4D.OR.BIT5D 

GFLUX! (1.1; IMNLAY)  = OBVMASK ( 0 . 0 . GFLUX 1 M . 1 ; IMNLA Y ). B I T4D • 

* GFLUX1 ( 1 t 1; IMNLAY 1 ) 

= IS/ A'  ttNLAyWD'  ■ * IMNLAY)  *LE.O. 

BIT2D  = GFLUX2  (1,1*1 „ LT  O 
B I T 4 D s BIT  ID . AND . BI T2D 
BIT5D  » BI T3D . AND . „ N0T+BIT2D 
BIT40  » BI T4D.0R.BIT5D 

GFLUX2 (1,1; IMNLAY ) = Q8VMASK < O . O .GFLUX2 M . 1 ; IMNLA V > . B I T40 • 

GFLUX2  C 1,1; IMNLA V ) ) 

SN  (1,1  NLA  VNB  . 1 , JP2  : I MNL  A V ) » SH(  t , 1 * NLA  VNB  . 1 , JP2  ; IMNLA  V ) 

^SH( t . J * NLAYNB , 1 , UP 1 ; IMNLA  V I a V^l *NLAVNB?f*jP 1 : IMNLA V ) 

SH (1,1 ‘NLAYNB . 1 . J ; IMNLA V)  a t +NL/WNB^*V*  J • IMNLA V ) 

S - GFLUX t« 1.1; IMNLAY!  - GFLUX 2 I 1,1; IMNLAY) IMNLAY  > 


VCOMP 1 3 1 B 
VCOMP!  319 
VCOMP 1 320 
VC CMP  1 321 
VCOMP 1 322 
VCOMP t 323 
VCOMP 1 324 
VCOMP 1 325 
VCOMP I 326 
VCOMP 1 327 
VCOMP 1 328 
VCOMP!  329 
VCOMP 1 330 
VCOMP 1 331 
VCOMP!  332 
VCOMP 1 333 
VCOMP 1 334 
VCOMP 1 335 
VCOMP 1 336 
VCOMP 1 337 
VCOMP 1 338 
VCOMP 1 339 
VCOMP 1 340 
VCOMP J 341 
VCOMP 1 342 
VCOMP 1 343 
VCOMP 1 344 
VCOMP 1 345 
VCOMP!  346 
VCOMP t 347 
VCOMP 1 348 
VCOMP!  349 
VCOMP 1 350 
VCOMP 1 351 
VCOMP!  352 
VCOMP 1 353 
VCOMP 1 354 
VCOMP 1 355 
VCOMP 1 356 
VCOMP 1 357 
VCOMP 1 358 
VCOMP!  359 
VCOMP!  360 
VCOMP!  361 
VCOMP!  362 
VCOMP!  363 
VCOMP 1 364 
VCOMP!  365 
VCOMP!  366 
VCOMP!  367 
VCOMP!  368 
VCOMP!  3S9 
VCOMP!  370 
VCOMP!  371 
VCOMP!  372 
VCOMP!  373 
VCOMP!  374 
VCOMP!  375 
VCOMP!  376 
VCOMP!  377 
VCOMP!  378 
VCOMP!  379 
VCOMP!  380 
VCOMP 1 381 
VCOMP!  382 
VCOMP 1 3B3 
VCOMP!  384 
VCOMP!  385 
VCOMP!  386 
VCOMP 1 387 
VCOMP!  388 


O 

o 


ORIGINAL  PASS  S3 
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00476 

00477 

00478 

00479 

00480 

00481 

00482 

00483 

00484 

00485 

00486 

00487 


00488 

00489 

00490 

00491 

00492 

00493 

00494 

00495 

00496 

00497 


00498 


00499 

00500 


00501 

00502 


Ci 

o 

K 

no 


c 

c 

c 

c 

c 

c 


CONTINUITY  EQUATION 


CONV ( 1 . 1 
CONV ( 1 . t 
5 

CONV ( 1 . I 


a 


FFLUX1 (2 
FFLUX2(3 
DO  5015 
FFLUX1 i 1 
FFLUX2( 1 
FFLUX2  < 2 
5015  CONTINUE 
CONV ( 1 . 1 
5 


. KP2; IMNLAY)  = -PV2<  1,1; IMNLAY) 

,KP1; IMNLAY)  = CONVC 1 . 1 ,KP 1 : IMNLAY) 

-«■  8 . *PV1  ( 1 . 1 i IMNLAY  } 

. K ; IMNLAY ) = CONV < 1 . 1 * K ; I MNL A V } 

- 8.*PV1<1,1; I MNL AY ) + PV2<1,1 
* 1 : IMNL A Y 1 ) * B . * ( PPU( 2 . 1 . 1 ; I MNLAY 1 ) - PPUC1 
, 1 ; I MNLAY2 ) = PPU(3, 1,2; IMNLAY2)  - PPUM 

LL- 1 ♦ NLAY 

,LL>  = 8 . M PPU ( 1 « LL , 1 ) - PPUCIM  . LL , 1 > ) 

. LL  > - PPU ( 1 , LL  , 2 ) - PPU( IMM1 .LL,2) 

LL  > = PPU (2,LL.2I  - PPU  t IM  , LL , 2 ) 


; IMNLA Y > 

,1.1; IMNLA Y 1 > 

, 1 . 2 : IMNLA Y2 1 


. K; IMNL AY)  * CONV  M , 1 , K ; IMNLA V ) 

- FFLUXt  M . I : IMNLAY) 

GO  TO  70 


* FFLUX2I 1 , 1 ; IMNLAV) 


C 

C 

c 

c 

c 

c 


NORTH  POLE  CORRECTION 

NO  V WIND  ADVECTION  OVER  POLE 


50  CONTINUE  _ 

CONV I 1 . 1 , K; IMNLAV)  = CONV f 1 , 1 , K ; IMNLAY ) - 8 . ♦PV ( 1 , 1 * K ; IMNLA V > 

FFLUX 1(2,1: IMNLAY 1 ) - 8 . * < PPU ( 2 , 1 . 1 ; I MNLA Y 1 ) - PPU <1,1,1; IMNLAY 1 ) 
FFLUX2 13* 1 ; 1MNLAY2)  = PPU f 3 , 1 . 2 ; IMNLAY2 ) - PPU M t 1 , 2 : IMNL A Y2 ) 

OO  5013  LL= 1 , NL A Y 

FF LUX  1(1, LL ) * 8.*<PPU( l.LL, 1)  - PPU UW 
F F LUX 2 f 1 , LL ) = 

FFLUX2  < 2 , LL  ) = 

5013  CONTINUE 

CONV  t I , 1 t K ; IMNLAY ) » CONV ( 1 f 1 t K ; IMNLAY ) 

S - FFLUXI M , 1 ; IMNLAY)  ♦ FFLUX2( 1 , 1 ; IMNLA V ) 


,LL,1>) 

PPU ( 1 , LL , 2 > - PPU  < I MM 1 , LL  « 2 ) 
PPUf2.LL,2>  - PPU ( IM  , LL , 2 ) 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


HORIZONTAL  ADVECTION  NEAR  NORTH  POLE 


FFLUX 1 { 1 , 1 ; IMNLAY)  = H 1DT*PV  t 1 . 1 , K ; IMNLAV  > 


U WIND  ADVECTION 


GFLUX 1 M , 1 ; IMNLAY)  = FF LUX  1 t 1 , 1 ; IMNL A V ) 

S • fUf 1 # 1*NLAYND. 1 ,d«; IMNLAY | U < 1 . 1 *NLA YND . 1 . JNP ; 

U< 1 , 1+NLAYNB, 1 t JM: IMNLAY)  = 

S U( 1 . 1 +NLAYNB , 1 ,JM: IMNLAV ) - GFLUX 1 ( 1 , 1 : IMNLAY ) 


IMNLAY) > 


V WIMO  ADVECTION 


GFLUX 1( 1 ,1 ; IMNLAY)  = FFLUXt (1,1 ; IMNLAY) 

$ MV<  1 , 1A?*LAYND,  1 * UPA  5 IMNLAV)  + V t 1 , 1 *NLAVND  , 1 , «JNP  ; 

V < 1 , 1 *NLAYNB. 1 , JM; IMNLAY > = 

S V(  1 , t-^Nt.AYNB,  1 tdM;IMNLAY)  - GFLUX  1 U , 1 ; IMNLAY  ) 


IMNLAY)  ) 


VCOMP 1 
VC0MP1 
VCOMP 1 
VCGMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
> VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP! 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP  1 
VCOMP 1 
VCOMP 1 
VCOMP  1 
VCOMP  1 
VCOMP  1 
VCOMP  1 
VCOMP  1 
) VCOMP 1 
VCOMP  1 
VCOMP  1 
VCOMP  1 
VCOMP  1 
VCOMP  1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCGMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP  f 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 


389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 
4 16 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 
4 34 

435 

436 

437 

438 
435 

440 

441 

442 

443 

444 

44  5 

446 

447 

448 

449 
*50 

45  I 

452 

453 

454 

455 

456 

4E7 

458 

459 


to 


ORIGINAL  PAGE  \B 
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00503 

00504 


00505 


00506 

00507 

00508 

00509 

00510 
005  1 1 

00512 


00513 


00514 
005  15 
00516 
005  1 7 


00518 

00519 

00520 

00521 

00522 

00523 

00524 

00525 

00526 

00527 

00528 

00529 

00530 

00531 

00532 

00533 

00534 
00635 


C * 

C ♦ * ■ 

c ♦ *« 
c 
c 
c 


TEMPERATURE  ADVECTION 


C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


GFLUX 1 ( t , 1 ; IMNLAY)  = FFLUX 1(1,1; IMNLAY 1 
S * < T ( 1 , 1 ^NLAYND ♦ 1 , JM ; IMNLAY > ♦ T f f , 1 *NL A YNO ; 1 , dNP : IMWL A Y J ) 
T 1 1 . 1 ‘NLAYNB , 1 . dtt; IMNLAY ) = 

S T( 1 . 1-NLAVNB , 1 ,JM; IMNLAY ) - GFLUX 1 M t 1 : IMNLAY ) 


HUMIDITY  ADVECTION 


GFIUK 1(1,1; IMNLAY)  s FFLUX  1(1,1; IMNLAY  J 
S * ( SH  (1,1  * NLAYND  , t t »JM:  IMNLAY  1 * SHM  . 1 ‘NLAYND , 1 , dNP  : IMNLAV  » > 

BIT  ID  = SHM  , 1 •‘NLAYND,  1 , dM;  IMNLAY)  .LE  0 
BIT  2D  ^ GFLUX 1(1*1; IMNLAV ) . LT . 0 . 

BIT3D  s BIT1D, AND.BIT2D 

BIT4D  = SH( 1 , 1+NL AYND, 1 , dNP ; IMNLAY) , LE . 0 . 

BIT5D  = BIT4D . AND . BIT20 
BIT50  * BIT5D .OR ,BIT3D 

GFLUX 1 ( 1 , 1 ; IMNLAY)  = Q8VMASK f 0 . O . GFLUX 1 ( 1 , 1 ; IMNLAV >. B I T5D ; 

3 GFLUX II  I . 1 ; IMNLAY)  ) 

SHM  . I^NLAYNB.  1 ,dM;  IMNLAY)  = 

S SH< 1 , 1 *NLAYNB , 1 ,dM; IMNLAV)  - GFLUX 1 ( 1 , 1 ; I MNLA Y ) 


CORRECT  CONV  AT  CENTER  BAND 


' * * 


5014 
C 90 
C 

C « 

C • 

C - 
C * 
c * 
c 


70  CONTINUE 

DO  5014  LL  = 1 , NLAY 

CONV  < 1 , LL , K ; I M ) - CONV ( 1 , LL . K ; I M ) *DSIG ( LL ) 
CONTINUE 

CONTINUE 


COMPUTATION  OF  SIGMA  CHANGE  TN  TIME 


t 4 < 
4 4 4 


IF  (d.B'Q.  1 ) GO  TO  130 
PITf  I , K ; 1M ) = CONV ( 1 , NLA V , K ; IM  > 

DO  100  L= I , NLA YM 1 

PITM,K;I-M)  r PITM.K;IM>  * CONV ( 1 , L . K : IM ) 
100  CONTINUE 

TEMP  - DT/DXYP(J) 

P ( 1 , NB , d ; I M ) “ PM,NB,d;IM>  ‘ TEMP ‘ P I T ( 1 , K ; 
SD 1 ( 1 ; I M ) = 0, 

PK I ( 1 ; I M ) = SIG( 1 ) *P( 1 tND,d; IM) + PTOP 
PKIMjIM)  r VEXPBYKCPK1 ( 1 ;IM) , IM;PK1 ( 1 ;IM) ) 
DO  110  LsI.NLAYPJII 
NLAYND 


IM) 


LND  = 
LNB  “ 
LP  1 = 
LP1N0 
LP  1 NB 


* NLAYNB 
*■  1 

LP 1 + NLAYND 
LP  1 «-  NLAYNB 


IS!  * CONV  I 1 ,L,K:XM>  - DSXGf L)»PXT< 1 ,K; IM) 

SD 1 M f IM)  ^ SD  f i , L , K ; I M ) 


VC0MP1  460 
VCOMP1  461 
VCOMPI  462 
VC0MP1  463 
VC0MP1  464 
V COM PI  465 
VCOMPI  466 
VC0MP1  467 
VCOMP 1 468 
VCOMPI  469 
VCOMP I 470 
VCOMPI  471 
VCOMPI  472 
VCOMPI  473 
VCOMPI  474 
VCOMPI  475 
VCOMPI  4 76 
VCOMPI  477 
VCOMPI  478 
VCOMPI  479 
VCOMPI  4 BO 
VCOMPI  481 
VCOMPI  482 
VCOMPI  483 
VCOMPI  434 
VCOMPI  485 
VCOMPI  486 
VCOMPI  487 
VCOMPI  438 
VCOMPI  489 
VCOMPI  490 
VCOMPI  491 
VCOMPI  492 
VCOMPI  493 
VCOMPI  494 
VCOMPI  495 
VCOMPI  496 
VCOMPI  497 
VCOMPI  49B 
VCOMPI  499 
VCOMPI  500 
VCOMPI  501 
VCOMPI  502 
VCOMP I 503 
VCOMPI  504 
VCOMP!  505 
VCOMPI  506 
VCOMPI  507 
VCOMPI  508 
VCOMPI  509 
VCOMPI  510 
VCOMPI  511 
VCOMPI  512 
VCOMPI  513 
VCOMPI  514 
VCOMPI  515 
VCOMPI  516 
VCOMPI  517 
VCOMPI  5 18 
VCOMPI  519 
VCOMPI  520 
VCOMPI  521 
VCOMPI  522 
VCOMP!  523 
VCOMPI  524 
VCOMPI  525 
VCOMPI  526 
VCOMPI  527 
VCOMPI  528 
VCOMPI  529 
VCOMPI  530 


n 

o 

5 


LO 


— % - — 


ORIGINAL  FAGS  IS 
OF  POOR  QUALITY 


00536 

00537 
005  35 

00539 

00540 
0054  t 


00542 

00543 

00544 

00545 

00546 

00547 

00548 

00549 


00550 

00551 

00552 


00553 

00554 

00555 

00556 

00557 
0055a 

00559 

00560 


00561 

00562 

00563 

00564 

00565 


00566 


C 

C 

C 

C 

C 


C 

C 

C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


» 

VERTICAL  ADVECTIOM  Or  MOMENTUM  »*** 


FFLUK1 ( 1 , 1 ; IM)  = 

S H2DT»S0(  1 VL  ,K  ; IMY  MUM  .LNO  t ! , J : IM)  * U(1  .LP1ND,  I,  J-pJIM 

Uf  1 .LP1NB,  1 „ d:  I ft!)  =U  ( t , LP  I NB  . 1 , J : IM  > -FFLUX  f ( 1 , 1 ; I M > *DS I GI NV ' L P 1 > 
FFLUJM?  1 1 \ ^ifA  ) * ” U M , LNB  . 1 , J j I M ) * FFLUX f ( 1 , 1 ; XM> +DSXGI NV * L > 

S H2DT*-SD(  1,LtK;IM)MV<  1 .LND,  t , J ; |W)  * VI  1.LP1MO,  1 ,d;  IMH 

VM  , LP  1NB  , 1 . d : IM)  = V<  1 ,LP  1NB  . 1 , d ; IMI  - FFLUX  1 ( 1 , 1 ; !M) "DSIGINV  f LP 1 
V M , LNB , 1 , d; IM)  a V t f , LNB . 1 , J ; IM > * FFLUX 1 M , 1 ; IM) *DSIGI NV« L ) 


VERTICAL  ADVECTION  OF  TEMPERATURE 
P*  •'KAPPA  COMPUTED  AT  CENTER  OF  LAVER 


PK2< 1 ; IM) 
PK2  ( 1 ; IM) 
FFLUX 1(1, 
F FLUX  111, 
FFLUX  Ml, 
T ( 1 , L P 1 NB 
S 

T ( 1 , LNB . 1 
S 

PK1M;IM) 


- SIGILPI  ) pPM  , ND  , J ; I M ) -»-PTOP 
a VEXPBYKf PK2( 1 ; IM) , IM;PK2( 1 ; IM) ) 
t;IM)  = T( 1,LND, 1, J; IMI/PK1 r 1 ;1M) 

1;IM)  * FFLUX 1(1,1: IM)  A T t 1 , LP1ND * 1 . J : IM) / PK2 f 1 ; 
1;IM)  = H2DT  *£D  ( 1 ,L,K;  IM)  ♦ FFLUX  HI,  I ;IM) 

= T ( 1 , LP 1 NB , 1 , J ; IM ) 

•PK2( 1 : IM ) ♦FFLUX 1 ( 1 „ 1 : IM) *DSIGINV<LP1 I 
• J ; IM  ) a T(  i ,LN3. 1 ,d;  IMI 

* PKH  1 ; IM)  ♦FFLUX  1 I 1 , 1 : IMI  * D S I G I N V ( L ) 

= PK2( 1 ; IM) 


IM  > 


♦ ♦ ♦ ♦ 


VERTICAL  ADVEGTION  OF  MOISTURE 
INVERSE  LINEAR  INTERPOLATION  OF 
CODE  MOVED  FROM  COMP3  03/24/81 


SPECIFIC  HUMIDITY 


FFLUX M 1 , 1 ; IM)  = SH ( 1 , LND , t ,d; IM)  * SH I 1 t LP 1 ND . 1 . J • IM ) 

B I T 1(  1 ; IM)  = FFLUX  M 1 , 1 ; IM  ) . fdE  . 0 ' ' 

ViHE R E ( B I T 1 f 1 : IM)  > FFLUX  1 l 1 . 1 ; IM)  = 

S 4.-SHM  , LND , 1 ,d:I»>»SHf  1 , LP  1ND  , 1 t J : 1 M) /FFLUX  1 C 1 t 1 ; IM> 


FFLUX 21 1 , 1 ; IM)  = H2DT+SD f 1 , L , K ; 
BITMljIMI  = SHMtLND,  J.d;lM) 
BIT2M:IM)  = SH  ( 1 , L P t ND . 1 . J : I M ) 
BIT3(1;IfJU  a FFLUX 2 ( 1 ,1  ; IM)  . LT 


IM ) ♦ FFLUX  1 < 1 
• LE . 0 . 

LE  .0  . 

0.0 


1 ; IM) 


SITU  1 ;IM> 
BIT2< 1 : IM) 
B I T 1 f 1 ; I'M) 
F FLUX  2 < 4 , 1 
S 


= 8 I T 1 t 1 ; I M ) . AND . 6 1 T 3 ( 1 ; I M ) 
a B2T2I 1 ; IM) .AND. .NOT .BIT3< 1 j IM) 

= BIT1  ( 1 ; IM)  .OR.BIT2M  ; IM) 

;IM>  = Q8VMASK  (0.0,  FFLUX  2 (1  .'1;IM),BIT1(1;|M): 

F FLUX 2 ( 1 , 1 ; IM)  ) 


SH1  ( 1 . L P 1 NB  , 1 , J ; I M ) a SH ( 1 , LP 1 NB , 1 , J ; I M ) 

* . • FFLUX2(  1 , 1 ; IM)  •-DSIGINV(LP1  ) 

SH(1  . LNB  , 1 t d;  INI)  a SH ( 1 , LNB , 1 , d ; IM) 

. ® 4 FFLUX 2 ( 1 , 1 ; IM)  •'DSIGI NV ( L ) 

110  CONTINUE 

120  CONTINUE 

IF  fJ.LT.JM)  RETURN 


POLE  CALCULATIONS 


130  CONTINUE 


VC0MP1  531 
VCOMP 1 532 
VCOMP1  533 
VCOMP1  534 
VCOMP1  535 
VCOMP  t 536 
VCOMP 1 537 
VCOMP 1 538 
VCOMP 1 539 
VCOMP 1 540 
VCOMP 1 541 
VCOMP 1 542 
VCOMP 1 543 
VCOMP 1 544 
VCOMP 1 545 
VCOMP 1 546 
VCOMP 1 547 
VCOMP 1 548 
VCOMP 1 549 
VCOMP 1 550 
VCOMP 1 551 
VCOMP 1 552 
VCOMP 1 553 
VCOMP!  554 
VCOMP 1 555 
VCOMP 1 556 
VCOMP 1 557 
VCOMP 1 558 
VCOMP 1 559 
VCOMP 1 560 
VCOMP 1 561 
VCOMP 1 562 
VCOMP 1 563 
VCOMP 1 564 
VCOMP 1 565 
VCOMP 1 566 
VCOMP 1 567 
VCOMP 1 568 
VCOMP 1 569 
VCOMP 1 570 
VCOMP 1 571 
VCOMP 1 572 
VCOMP 1 573 
VCOMP 1 574 
VCOMP 1 575 
VCOMP 1 576 
VCOMP 1 577 
VCOMP 1 578 
VCOMP 1 579 
VCOMP 1 580 
VCOMP 1 581 
VCOMP 1 582 
VCOMP 1 583 
VCOMP!  584 
VCOMP 1 585 
VCOMP 1 586 
VCOMP 1 587 
VCOMP 1 588 
VCOMP 1 589 
VCOMP 1 590 
VCOMP 1 591 
VCOMP 1 592 
VCOMP 1 593 
VCOMP 1 594 
VCOMP 1 595 
VCOMP 1 596 
VCOMP 1 597 
VCOMP 1 598 
VCOMP 1 599 
VCOMP 1 600 
VCOMP 1 601 
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V 'M  '■ 


00567 

M 

1 

00568 

IF 

< J. 

.EQ. JM) 

00569 

K 

= 

JC( JE(M>  > 

00570 

PI 

T 

t 1 , 

, K ) = 

0 . 

0057  1 

JP 

1 

JP  1 1 , 

, M ) 

00572 

JP 

2 

= 

JP  f 2 , 

,M) 

00573 

00574 

00575 

00576 

00577 

00578 

00579 


00580 

00581 

00582 

00583 

00584 

00585 

00586 

00587 

00588 

00589 


00590 

00591 

00592 

00593 

00594 

00595 

00596 

00597 

00598 


00599 

00600 
0060  1 


00602 

00503 

00604 

00605 

00606 
00607 


HORIZONTAL  ADVECTION  OF  MOMENTUM, 
TEMPERATURE.  AND  SPECIFIC  HUMIDITY 


DO  150  t = 1 , NLA Y 
INO  = L * NLAYND 

PVff1,1;IM)  * P (1 , NO , JP 1 ; IM ) *V < 1 . LND , 1 , JP 1 : IM) 

PV1S  = Q8SSUM( PV 1(1,1;! Ml) 

FFLUX 1 f 1,1; IM)  =PVf<f,t;IM)*f-  U(  1 , LND , 1 , JP 1 ; IM) *SI NLON  M ; IM I 
& - SGNP  <M>  *V<  1 , LND  , 1 .-JP1  ; IM)  -COSLONM  : IM>  1 

PVU1S  ” OB SSUMf FFLUX1 < 1 . 1 ;IM1 1 
FFLUX1 ( I , 1 t IM)  = 

S PV  1 ( 1 , 1 ; IM } * ( SGNP  (M  } *UM  , LND  , 1 , JP  1 ; IM)  * COSLON*  1 ; IM  ) 

5 - Vf  1 , LND,  1 , JP  1 ; IM)  *SI  HLONM  ; IMI  ) 

PVV1S  = QBSSUMf FFLUX 1 11,1; IM)  ) 

FFLUKM1,1;IMl  = PV  1(1  , 1 ; IM) ♦ T t 1 , LND  , 1,  JP  1 ; IM  ) 

PVTIS  = Q8S5UM1 FFLUX i (1,1; IM) ) 

FFLUX  IM.IjIM)  = PV1  ( 1 , i ; IMI  »SH(  1 .LND  . 1 . JP  1 ; IM) 

PVHIS  = 08SSUM ( F FLUX  1 ( f , 1 ; JM ) ) 

PV2M,1;IM)  » P( 1 ,ND. JP2; IM)*V( ! ,LND, 1 , JP2; IM) 

PV2S  =■  Q8SSUM<PV2( 1 , 1 ; IM) ) 

FFLUX1 M , 1 ;IM>  = PV2 M , 1 ; I M ) * < - U ( 1 , LND t 1 . UP 2 ; IM ) ♦ S I NLON (1 ; I M t 

6 - SGNP  (M>  *V ( 1 , LND , 1 , JP2 ; IM ) ♦COSLON ( 1 ; IM ) I 
PVU2S  « 08SSUM1 FFLUX 1 U . 1 ; IM) ) 

FFLUX 1 < I , 1 ; IM)  = 

S PV2  f 1 , 1 ; IM) *<  SGNP  <M>  *U(  1 . LND  , 1 , JP2 ; IM)  * COSLON  < 1 ; IfA) 

* - VM  ,LND . 1 , JP2  ; IM)  •SINLONM  ; IMM 

PVV2S  = Q8SSUMCFFLUX! f 1 , 1 ; IM) ) 

FFLUX 1 I 1 , 1 ; JM)  - PV2 ( 1 , 1 ; I M ) • T < 1 , LND , I . UP 2 ; I M ) 

PVT2S  = QBSSUWH  FFLUX1 ( 1 , 1 ; IM) ) 

FFLUX 1 M , 1 ; IMI  = PV2 ( 1 , 1 ; I M > *SH M , LND . 1 , JP2 : IM ) 

PVH2S  - OSSSUM* FF LUX  1 (1,1; IM)  ) 

UP  ( L , NB , M ) = UP ( L , NB , M ) A SGNP  < M ) M CON  IDT  * P VU1S  * CON2D T * PVU2S 1 

VP(L.NB.M)  - VP(L,N8,M>  - SGNP ( M ( CON  1 D T * PVV 1 S + C0H2D T ' PVV23 > 

TP  ( L , NB  , M ) = TP ( L , NB ,M ) A SGNP ( M I * ( CON  IDT* PVT  IS  * C0N2D T * FV T2S ) 

SHP(L.NB.M)  " SHP(L.NB.M)  * SGNP 1 M I * < CON  1 DT * PVH 1 S * C0M2D1 *PVH2SI 


CONTINUITY  EQUATION 


CONVM.L.K)  = SGNP  (M)  MC0N1  *PV1S  * C0N2  * PV2S ) * DS I G f L ) 
PITfl.K)  = P I T ( 1 t K ) * CONV  M.L.K) 

150  CONTINUE 

♦ * * ♦ * * * *♦♦*■♦**♦♦*♦■♦*♦*♦♦♦•**♦*•■  **♦♦**•»*♦  » » 4 *»*>4>  + «*  + **+-***  * < 
*■  * * ♦ 

COMPUTATION  OF  SIGMA  CHANGE  IN  TIME 


SD1 ( 1 ) = 0. 

DO  1 GO  L=1.NLAVMI 

SD ( f , L , K ) c S01(l)  + CONV  f 1 , L , K ) - DSIG<L)*PIT<1.K> 
SO  HI)  * SD(1aL,K) 

160  CONTINUE 

PP ( NB , M ) = PP(NB.M)  * DT*PIT(1,K> 


VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP  1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP  1 
VCOMP 1 
VCOMP  1 
VCOMP 1 
VCOMP  1 
VCOMP  ! 
VCOMP  f 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP I 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP I 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP ! 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP I 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP 1 
VCOMP  ^ 
VCOMP 1 


COMPl  15 


00608 
00609 
003  10 
006  t f 
00612 
00613 
006  14 
006  t 5 
00616 


00617 

00618 
00619 
00620 
00621 


00622 

00623 

00624 

00625 

00626 

00627 

00628 

00629 

00630 
0063  1 

STATEMENT 
— LABEL 

100 
1 10 
120 
130 
150 
160 
170 
20 
30 
50 

5001 

5002 

5003 

5004 

5005 

5006 

5007 

5008 

5009 
50  10 


.r?-  m 


.. 


c 

c 

c 

c 

c 

c 

c 


VERTICAL  ADVECTION  OF  MOMENTUM 


PKtM)  = EXP8YK  ISIG<  U ‘PPfNO.MMPTOPJ 

, _ 4 DO  170  L-l, NLA  YM 1 

LP  1 - L A J 


C 

C 

C 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


VERTICAL  ADVECTION  OF  TEMPERATURE 


= 6XP0VK  < SIG(  LP1  > *PP  ( ND  .M)  *PTOP  > 

tpV^d^mS2^!*50^  1 - L*K>  # f Tp^,ND.MJ  / PH!  ( M * 
J ^ ^ ? ^ s TP(LPI.NB.H)  ~ PK2  ( 1 ! *QFLUX  * 

, T?  ( L * W8.MJ  * PK1  t 1)  *QFLUX*DSIG 


P«H1I  = PK2  f 1 I 


TP(LP1 tND,M>/P«2f 1 ) > 
DSIGINVf LP1 1 
QFLUX  *DSIGINV( L } 


V?flIICAL  ADVECTION  OF  MOISTURE  AT  THE  POLES  II 

WdrMOVE0Nrg™,20MP3°03/«/8?P  SPECIFIC  »™lOlTr 


M 1 * SHP  ( LP  t ( ND  tfJl  ) /SHLE 


170 


SHP  ( L « ND  , M ) * SHP  ( L P 1 , NO  . M ) 

ici  /i?MLE/  ME  *°  * } SHLE  = 4 ‘SHP1L.ND 
OFLUX  = H2DT^SD ( t , I , K | >5HLE 
IF  ( SHP ( L , ND , M ) . L E . 0 . ) OFLUX  = AM A x t ( net  n v o » 

SHP(LP^fNRtfW,lID’MiuLf  * 0FLU*  s AMlMMOFLUxio  > 
Ihp  LPNBWM)M!  5mp?iPIwSImVB,WJI  0FLUX-DSIGINV1LP1) 
5HPfL.NBtM^-^SHP(L4NBtM>  * OF  LUX  - DS I GI NV  f L > 

RETURN 

END 


LABEL  MAP 

DEFINED REFERENCES 


VCOMPt  673 
VCOMPt  674 
VCOMPt  675 
VCOMP  1 676 
VCCMP1  677 
VCOMPt  678 
VCOMP1  679 
VCOMPt  68  0 
VCOMP 1 68 1 
VCOMPt  682 
VCOMPt  683 
VCOMP  t 684 
VCOMP 1 685 
VCOMP 1 686 
VCOMP 1 697 
VCOMPt  68S 
VCOMP 1 589 
VCOMP 1 690 
VCOMP 1 69 1 
VCOMP!  692 
VCOMP 1 693 
VCOMPt  694 
VC. 7/PI  695 
VCOMPt  696 
VCOMP 1 697 
VCOMP 1 690 
VCOMP  1 699 
VCOMP 1 700 
VCOMPt  701 
VCOMPt  702 
VCOMPT  703 
VCOMP 1 704 
VCOMPt  705 
VCOMPt  70S 
VCOMP  T 707 
VCOMPt  708 
VCOMPt  709 
VCOMPt  710 
VCOMPT  7 t 1 
VCOMP 1 712 
VCOMPt  713 
VCOMP 1 714 
VCOMP 1 715 
VCOMPT  716 
VCOMPt  717 
VCOMP 1 718 
VCOMPt  719 


n 

O 


3 


O' 


522 

520 

563 

528 

564 

566 

5 IQ 

601 

573 

606 

603 

629 

609 

432 

34  1 

437 

431 

4B8 

430 

332 

340 

336 

350 

346 

360 

356 

367 

363 

377 

373 

384 

380 

394 

390 

40  1 

397 

410 

408 
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501  1 

4 18 

4 15 

50  12 

429 

425 

5013 

496 

492 

5014 

5 17 

515 

5015 

485 

481 

5111 

323 

32  1 

5112 

327 

325 

5113 

33  1 

329 

70 

5 14 

487 

VARIABLE  MAP 


-NAME 

--BLOCK 

--TYPE 

--CLASS 

ADATE 

CCNTRL 

CHAR-8 

SIMPLE 

ADLOP 

RDPARM 

real 

SIMPLE 

ALBEDO 

QANDQT 

REAL 

ARRAY 

APHEL 

RCNTRL 

REAL 

SIMPLE 

ATIME 

CCNTRL 

CHAR  * 8 

SIMPLE 

BETA 

RCNTRL 

real 

SIMPLE 

B I T 1 

BIT 

ARRAY 

BIT10 

BIT 

DESCRIPTOR 

8IT2 

BIT 

ARRAY 

BIT2D 

BIT 

DESCRIPTOR 

BIT3 

BIT 

ARRAY 

BIT3D 

BIT 

DESCRIPTOR 

BIT4 

BIT 

ARRAY 

BIT4D 

BIT 

DESCRIPTOR 

BIT5 

BIT 

ARRAY 

BIT5D 

BIT 

DESCRIPTOR 

BI TCOMP  1 

REAL 

UNKNOWN 

BIT! MM ! 

BI TCOMP 1 

BIT 

ARRAY 

BITIMM2 

B I TCOMP 1 

BIT 

ARRAY 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

CC 

CCNTRL 

CHARTS 

ARRAY 

CCO 

CCNTRL 

CHAR  ■►8 

SIMPLE 

ccntrl 

REAL 

UNKNOWN 

CC5P06 

CCNTRL 

CHAR  * 8 

SIMPLE 

CCSP07 

CCNTRL 

CHAR-8 

SIMPLE 

CCSPOS 

CCNTRL 

CHAR  * 8 

SIMPLE 

COMP  1 

SUBROUTINE 

CONI 

RDPARM 

REAL 

SIMPLE 

CON IDT 

RDPARM 

REAL 

SIMPLE 

CON2 

RDPARM 

REAL 

SIMPLE 

CON2DT 

RDPARM 

REAL 

SIMPLE 

CON3 

RDPARM 

REAL 

SIMPLE 

CON3DT 

RDPARM 

REAL 

SIMPLE 

C0N4 

RDPARM 

REAL 

SIMPLE 

CON4DT 

RDPARM 

REAL 

SIMPLE 

CONS 

RDPARM 

REAL 

SIMPLE 

CONV 

OMSAVE 

REAL 

ARRAY 

COSD 

RCNTRL 

REAL 

SIMPLE 

COSL 

RDPARM 

REAL 

ARRAY 

COSLON 

RDPARM 

REAL 

ARRAY 

CP 

RCNTRL 

REAL 

SIMPLE 

CPD2 

RDPARM 

REAL 

SIMPLE 

COS 

CCNTRL 

CHAR-B 

ARRAY 

CQU 

CCNTRL 

CHAR-8 

ARRAY 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

DEC 

RCNTRL 

REAL 

SIMPLE 

DECMAX 

RCNTRL 

real 

SIMPLE 

DIST 

RCNTRL 

REAL 

SIMPLE 

DLAT 

RCNTRL 

REAL 

SIMPLE 

DLON 

RCNTRL 

REAL 

SIMPLE 

REFERENCES 

3 

217 

256 

157 

4 

158 

A 

16 

269 

17 

=ARGL 1ST, 

C-CTRL 

OF  DO. 

302 

303 

308 

407 

409 

557/S 

557 

559/S 

559 

560 

304 

SOB 

305 

308 

404  S 

4 1 1 

302 

303 

309 

407 

409 

304 

305 

309 

4 05  S 

4 11*'$ 

459 

470 

507/5 

509 

5 10 

302 

303 

310 

4 1 4 

4 16 

304 
51  1 

305 

310 

406  S 

4 1 9 * S 

302 

303 

311 

407/S 

409/S 

304 

305 

21  1 

412  S 

412 

465 

302 

466 

303 

469/  S 
312 

47  15 

47  1 

304 

306 

305 

312 

45 4 /s 

465 

306 

307 

354 

37  1 

38B 

306 

196 

14 

2 

307 

15 

14 

353 

15 

370 

337 

2 

13 

7 

8 
9 
1 

2 18 

3 

20 

21 

22 

599 

4 

5 

6 

219 

220 

595 

599 

596 

597 

598 

221 

222 

223 

224 
2 25 
226 

595 

596 

597 

598 

298 

433/S 

434 /S 

4 76  S 

477/S 

489 

159 

227 

497/S 

497 

5 16.  S 

516 

228 
160 
229 
1 2 
13 
16  1 
162 

163 

164 

165 

166 

577 

25 

26 

579 

587 

589 

I =DA  T A I NI T , R=READ,  S-STQRE . W = WRJTE 


4 14 

416 

4 17 

551  /s 

552 

4 19 

40O/S 

462 

467  rS 

4 69 

555/S 

4 1 1 

558/S 

412 

558 
461  /S 

559 

462 

464 

4 17 
419 

556/S 

420 

557 

463/S 

558 

464 

470 

414/S 

413 

472 

416/S 

420/S 

509/S 

4 17/S 

420 

510 

421 

462/S 

470/S 

47  1 

5 1 0 / S 

511/S 

51  1 

4 23 
422 

7 

8 

9 

1 0 

1 1 

477 

519 

478/S 

521 

478 

534 

486  -S 
599  S 

486 

600 

554 

506 

46B 

508 

465 

5 t 2 

12 


4se 

604 
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a 

o 

j3j 

TJ 
H 1 


DSIG 

RDPARM 

REAL 

ARRAY 

250 

5 16 

534 

599 

604 

DSIGINV 

RDPARM 

REAL 

ARRAY 

252 

537 

538 

540 

54  1 

547 

548 

561 

562 

612 

613 

G15 

616 

619 

620 

627 

628 

DT 

RCNTRL 

REAL 

SIMPLE 

157 

523 

607 

DXP 

RDPARM 

REAL 

ARRAY 

230 

435 

436 

438 

DXYP 

RDPARM 

REAL 

ARRAY 

231 

523 

DYP 

ROPARM 

REAL 

ARRAY 

232 

333 

ECCN 

RCNTRL 

REAL 

SIMPLE 

1 68 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

F IDT 

RDPARM 

REAL 

SIMPLE 

234 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

FCQRLS 

RDPARM 

REAL 

ARRAY 

233 

FFLUX1 

// 

REAL 

ARRAY 

301 

342/S 

351 

368 

385 

402 

441/S 

443 

448 

453 

458 

479/S 

482/S 

486 

490/S 

493/S 

497 

498/S 

499 

501 

503 

505 

536/5 

537 

538 

539/S 

540 

54  1 

544 /S 

545/S 

545 

546/S 

546 

547 

548 

550/S 

55  1 

552/S 

552 

553 

577/S 

578 

579/S 

580 

58  1 /S 
594 

582 

583  / S 

584 

587/S 

588 

589/S 

590 

59  1 *S 

592 

593 

F FLUX  2 

// 

REAL 

ARRAY 

301 

343/S 

352 

369 

386 

403 

442/S 

444 

449 

454 

459 

4B0/S 

483/S 

484/S 

486 

43  1 /S 

494  /S 

49S/S 

497 

553  S 

556 

560 

560 

560 

561 

562 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

211 

214 

GFLUX t 

// 

REAL 

ARRAY 

301 

344/S 

347 /S 

35  1 /S 

35  1 

354 

355 

359 

361  'S 

364  /S 

368 

368 

371 

372 

376 

378  /S 

38  I /S 

385  /S 

385 

388 

389 

393 

395  /S 

398/S 

402/S 

402 

4 05 

4 13/S 

413 

413 

423 

4 24 

428 

443/S 

446 

447 

448  ‘S 

45  1 

452 

453/S 

456 

457 

458/S 

461 

466/S 

466 

466 

474 

475 

499/S 

500 

501/S 

502 

503/S 

504 

5 05/  S 

507 

512/S 

5 12 

5 t 2 

513 

GF  LU  X 2 

// 

REAL 

ARRAY 

301 

345/S 

348  /S 

249/S 

352/S 

352 

353 

355 

357 

358 

362 

365/S 

366/S 

369/S 

369 

370 

372 

374 

375 

379.  S 

382/S 

383 

386/  S 

386 

387 

389 

391 

392 

396/S 

399/5 

400  S 

403/S 

403 

406 

42  I/S 

421 

42  1 

422 

424 

426 

427 

44  4 S 

445 

447 

449/S 

450 

452 

454  /S 

455 

457 

459/S 

468 

472  S 

472 

472 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

/ w 

169 

GNU2 

RCNTRL 

REAL 

SIMPLE 

1 70 

GRAV 

RCNTRL 

REAL 

SIMPLE 

171 

GT 

QANDOT 

REAL 

ARRAY 

257 

270 

GW 

QANDQT 

REAL 

ARRAY 

258 

27  1 

H IDT 

RDPARM 

REAL 

SIMPLE 

236 

342 

44  1 

498 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

343 

442 

536 

539 

546 

553 

6 1 1 

6 1 4 

618 

624 

HEAT  I 

RCNTRL 

REAL 

SIMPLE 

193 

HE  A TW 

RCNTRL 

REAL 

SIMPLE 

192 

IBLKS1Z 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

4 1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

7 1 

72 

73 

74 

75 

76 

77 

78 

ICSPS3 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

IDPARM 

INTEGER 

UNKNOWN 

200 

201 

202 

203 

204 

205 

206 

207 

2 09 

209 

210 

IDSP02 

I DP ARM 

INTEGER 

SIMPLE 

20  ! 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

83 

IICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

SB 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

200 

IM 

ICNTRL 

INTEGER 

SIMPLE 

28 

320 

320 

322 

322 

324 

324 

326 

326 

328 

328 

330 

330 

337 

337 

339 

339 

347 

347 

348 

348 

358 

359 

364 

364 
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365 

375 

376 

3B1 

381 

382 

382 

392 

393 

398 

398 

399 

399 

408 

40B 

4 15 

427 

428 

482 

484 

493 

495 

5 1 6 

516 

519 

519 
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521 

521 

524 

524 

524 

5 25 

526 

526 

527 

527 

527 

527 

534 

534 

534 

534 

535 

535 

536 

536 

536 

536 

537 

537 

537 

538 

538 

538 

539 

539 

539 

539 

540 

540 

540 

541 

54  1 

541 

542 

542 

543 

543 

543 

543 

544 

544 
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544 

545 

545 

545 

545 

546 

546 

546 

547 

547 

547 

547 

548 

549 

548 

54B 

549 

549 

550 

550 

550 

551 

551 

552 
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552 

552 

552 
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553 

553 

554 

554 

555 

555 

556 

556 

557 

557 

557 

558 

55B 

558 

559 

559 

559 

5G0 

560 

560 

560 

561 

561 

561 

562 

562 

562 

575 

575 

575 

576 

577 

577 

577 

577 

S77 

577 

578 

579 

579 

579 

579 

579 

579 

580 

set 

581 

581 

582 

583 

583 

583 

584 

585 

585 

585 

586 

587 

587 

587 

587 

587 

587 

588 

589 

589 

589 

589 

589 

589 

590 

59  t 

591 

591 

592 

593 

593 

593 

594 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

29 

IMD2M1 

IMJM 

INTEGER 

SIMPLE 

300 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

30 

IMJM 

INTEGER 

UNKNOWN 

300 

I MM  t 

I M JM 

INTEGER 

SIMPLE 

300 

33J 

338 

349 

349 

357 

366 

366 

374 

383 

383 

391 

400 

400 

409 

415 

426 

483 

494 

I MM2 

IMJM 

INTEGER 

SIMPLE 

300 

4)6 

I MM3 

I M JM 

INTEGER 

SIMPLE 

300 

417 

IMM4 

IMJM 

INTEGER 

SIMPLE 

300 

IMM5 

I M JM 

INTEGER 

SIMPLE 

300 

IMNLAY 

IMJM 

INTEGER 

SIMPLE 

300 

333 

333 

333 

34  2 

342 

343 

343 

35  1 

35  1 

351 

352 

352 

352 

355 

355 

355 

355 

368 

3SS 

368 

369 

363 

369 

372 

372 

372 

372 

385 

385 

385 

386 

386 

386 

389 

389 

389 

389 

402 

402 

402 

403 

403 

403 

404 

405 

406 

408 

4 13 

413 

413 

415 

42  1 

421 

421 

424 

424 

424 

424 

433 

434 

435 

435 

435 

436 

436 

436 

438 

438 

438 

439 

439 

439 

440 

44Q 

440 

441 

441 

442 

442 

443 

443 

443 

443 

444 

444 

444 

444 

445 

445 

445 

446 

446 

446 

447 

447 

447 

447 

448 

448 

448 

448 

449 

449 

449 

449 

450 

450 

450 

451 

45  1 

451 

452 

452 

452 

452 

453 

453 

453 

453 

454 

454 

454 

454 

455 

455 

455 

456 

456 

456 

457 

457 

457 

457 

450 

458 

45B 

458 

459 

459 

459 

459 

460 

46  1 

463 

466 

466 

465 

467 

468 

472 

472 

472 

473 

473 

473 

474 

474 

474 

475 

475 

475 

4 75 

476 

476 

477 

477 

477 

478 

478 

478 

478 

406 

486 

486 

486 

489 

489 

489 

497 

497 

497 

497 

498 

490 

499 

499 

499 

499 

500 

500 

500 

501 

501 

501 

50  1 

502 

502 

502 

503 

503 

503 

503 

504 

504 

504 

505 

505 

505 

505 

506 

507 

509 

5 1 2 

512 

S 1 2 

513 

513 

5 1 3 

IMNLAY1 

IMJM 

INTEGER 

SIMPLE 

300 

334 

334 

334 

344 

344 

344 

354 

354 

354 

354 

361 

361 

361 

371 

371 

371 

371 

378 

373 

378 

388 

380 

388 

388 

395 

395 

395 

407 

407 

407 

423 

423 

423 

423 

479 

479 

479 

490 

490 

490 

IMNLAY2 

IMJM 

INTEGER 

SIMPLE 

300 

335 

335 

336 

345 

345 

345 

353 

353 

353 

353 

362 

362 

362 

370 

370 

370 

370 

379 

379 

379 

387 

387 

3S7 

387 

396 

395 

396 

414 

4 14 

4 14 

422 

422 

422 

422 

480 

430 

480 

491 

49  1 

49  1 

IMNLAY3 

IMJM 

INTEGER 

SIMPLE 

300 

IMNLAY4 

IMJM 

INTEGER 

SIMPLE 

300 

IMNLAY5 

IMJM 

INTEGER 

SIMPLE 

300 

IMT2 

IMJM 

INTEGER 

SIMPLE 

300 

IMT4 

IMJM 

INTEGER 

SIMPLE 

300 

INDEX 

IDPARM 

INTEGER 

ARRAY 

202 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

91 

I PRE ACC 

ICNTRL 

INTEGER 

UNKNOWN 

01 

I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

82 

IQS 

ICNTRL 

INTEGER 

ARRAY 

77 

79 

80 

8 1 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

IQSDIAG 

OANDOT 

INTEGER 

ARRAY 

281 

282 

IQU 

ICNTRL 

INTEGER 

ARRAY 

78 

91 

92 

93 

94 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

94 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

93 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

203 

I TAPE 

LDP ARM 

LOGICAL 

SIMPLE 

212 

2 15 

I TMAX 

ICNTRL 

INTEGER 

UNKNOWN 

80 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

79 

1 UF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

89 
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Vi  . 
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IVFLUX 

d 

ICNTRL 

INTEGER 

INTEGER 

UNKNOWI 

SIMPLE 

dC 

dE 

die 

JM 

IDPARM 
I DP ARM 
CCNTRL 
ICNTRL 

INTEGER 
INTEGER 
CHAR  * 8 
INTEGER 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

dM02 

JMT2 

dNP 

d04 

d08 

doa 

dp 
JP 1 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

CCNTRL 

IDPARM 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR  **8 

INTEGER 

INTEGER 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

dP2 

INTEGER 

SIMPLE 

dSP 

K 

ICNTRL 

INTEGER 

INTEGER 

SIMPLE 

SIMPLE 

KLI  ALB 

KLIGW 

KLISST 

KP1 

KP2 

KS 

KSTEP 

KU 

L 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

INTEGER 

integer 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

LC 

LCO 

LCNTRL 

LCNTRL 

LCNTRL 

LOGICAL 

LOGICAL 

integer 

ARRAY 

SIMPLE 

UNKNOWN 

LDIABAT 

LDPARM 

LEFLUX 

LFUSIOW 

LCNTRL 

LCNTRL 

LCNTRL 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

LHFLUX 

LICLOUD 

LL 

LCNTRL 

LCNTRL 

LOGICAL 

LOGICAL 

INTEGER 

UNKNOWN 

UNKNOWN 

SIMPLE 

90 

i 

315 

345 

347 

355 

355 

362 

364 

372 

372 

379 

38  1 

389 

389 

396 

398 

423 

424 

435 

443 

457 

457 

526 

536 

541 

54  1 

552 

552 

204 

317 

205 

569 

5 

18 

32 

430 

505 

506 

33 

34 

35 

499 

36 

37 

6 

19 

206 

571 

315/S 

318 

453 

456 

577 

579 

316/S 

319 

454 

455 

587 

589 

38 

317/S 

434 

4B9 

497 

524 

534 

599 

600 

6 18 

624 

39 

40 

41 

318/S 

433 

319/S 

438 

42 

207 

43 

321 /C 

322 

53  1 

534 

553 

562 

598 

599 

61  1 

61  1 

618 

620 

154 

155 

97 

154 

97 

98 

108 

109 

123 

151 

21  1 

212 

1 15 

143 

1 16 

144 

316 

317 

320 

347 

348 

348 

357 

357 

358 

364 

365 

365 

374 

374 

375 

381 

382 

382 

39  1 

39  1 

392 

398 

399 

399 

424 

426 

426 

444 

447 

447 

458 

459 

463 

536 

537 

537 

542 

544 

545 

554 

555 

561 

318 

319 

569 

499 

500 

500 

5 13 

5 13 

555 

501 

503 

505 

572 

324 

436 

436 

456 

458 

460 

579 

53  1 

583 

323 

438 

4 38 

455 

459 

467 

589 

591 

593 

435 

439 

440 

497 

493 

5 16 

534 

534 

535 

600 

600 

604 

436 

439 

477 

440 

476 

325 /C 

326 

329/C 

534 

534 

535 

573/C 

574 

595 

599 

600 

603/C 

613 

613 

6 1 3 

620 

620 

622 

155 

99 

100 

101 

213 


333 

333 

34  1 

349 

349 

353 

353 

359 

359 

366 

366 

370 

375 

376 

376 

383 

383 

387 

392 

393 

393 

400 

400 
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427 

427 

428 

44Q 

449 

45  2 

475 

475 

518 

538 

538 

539 

347 

547 

548 

561 

562 

562 

501 

568 

502 

502 

509 


443 

446 

446 

474 

474 

571/S 

444 

445 

445 

473 

473 

S72/S 

478 

478 

486 

516 

519 

519 

536 

339 

546 

604 

604 

605 

477 


330 

520/C 

52  1 

536 

538 

539 

595 

596 

596 

604 

604 

604 

6 14 

614 

616 

623 

624 

625 

102 

103 

104 

344 

344 

345 

353 

354 

354 

361 

361 

362 

370 

371 

371 

37S 

378 

379 

367 

388 

388 

395 

395 

39G 

<*  22 

422 

423 

428 
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435 

452 

453 

454 

523 

524 

524 

539 

540 

540 
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550 

550 

555 

568 
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504 

504 

448 

451 

451 

575 

575 

577 

443 

450 

450 

585 

585 

587 

486 

489 

489 

52  1 

521 

521 

553 

559/S 

570 

607 

611 

6t4 

528  'C 

529 

530 

54  1 

546 

548 

597 

597 

598 

605 

609/C 

610 

6 16 

616 

613 

623 

628 

628 

105 

106 

107 

114  142 
119  147 
336/C  337 
347  347 
357  357 
364  365 
375  375 
3S2  382 


337 

347 

358 

365 

375 

383 


337  338 
348  348 
355  358 
365  366 
376  376 
383  383 


338  338 

348  349 

359  359 

366  366 

376  380/C 

390 /C  391 


339  339 

349  349 

359  363 ' C 

373/C  374 

381  331 

391  391 


339  346 
356/C  357 
364  364 
374  374 
381  382 
392  392 
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LNB 

INTEGER 

SIMPLE 

LND 

INTEGER 

SIMPLE 

LOGSR 

I CNTRL 

INTEGER 

SIMPLE 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

LP  t 

INTEGER 

SIMPLE 

LP1NB 

INTEGER 

SIMPLE 

LP1ND 

INTEGER 

SIMPLE 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

LRADLW 

LCNTRL 

LOGICAL 

UNKNOWN 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

LTMAX 

LCNTRL 

logical 

UNKNOWN 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

LVFtUX 

LCNTRL 

LOGICAL 

UNKNOWN 

M 

INTEGER 

SIMPLE 

MATIN 

ICNTRL 

INTEGER 

SAMPLE 

MATSNX 

ICNTRL 

ILTEGER 

SIMPLE 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

MJ 

IDPARM 

INTEGER 

ARRAY 

MLF 

ICNTRL 

INTEGER 

ARRAY 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

NB 

ICNTRL 

INTEGER 

SIMPLE 

NO 

ICNTRL 

INTEGER 

SIMPLE 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

NO  AY 

ICNTRL 

INTEGER 

SIMPLE 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

NHMS1 

IDPARM 

INTEGER 

SIMPLE 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

NLAVNB 

INTEGER 

SIMPLE 

392 

393 

393 

393 

397/C 

398 

400 

400 

400 

403  C 

409 

409 

4 t 7 

417 

417 

425/C 

426 

426 

4 28 

4 28 

481/C 

4S2 

482 

482 

484 

492/C 

493 

493 

493 

494 

5 1 5 /C 
530/S 

516 

538 

516 

53B 

5 16 
54  1 

54  1 

548 

529/S 

536 

539 

544 

550 

552 

579 

579 

581 

583 

585 

587 

44 

1 22 
531  /S 

150 

532 

533 

537 

540 

542 

812 

6 12 

614 

615 

615 

615 

822 

623 

626 

627 

627 

627 

533/S 

537 

537 

540 

540 

547 

532/S 

538 

539 

545 

550 

552 

1 12 
1 13 
108 

140 
14  1 
1 10 

1 1 1 

1 12 

1 13 

1 14 

120 

109 

121 

122 

136 

123 

1 24 

125 

137 

125 
1 18 
124 
1 17 
1 1 1 
1 10 
120 
121 
567/S 

153 

146 

152 

145 

139 

138 

148 

149 
568  /S 

569 

57  1 

572 

577 

595 

596 

596 

595 

597 

597 

607 

607 

608 

6 l 1 

61  1 

612 

6 J5 

615 

616 

5 16 

617 

618 

622 

622 

623 

623 

625 

626 

45 

46 

47 
208 

48 

49 

5 1 

52 

3 14 

524 

524 

595 

595 

598 

607 

607 

612 

612 

613 

6 19 

619 

620 

620 

627 

627 

53 

3 13 

320 

324 

32e 

526 

61  1 

6 14 

614 

617 

618 

618 

626 

54 

55 
76 

56 

57 
31 

58 

59 

60 
62 

209 
6 1 
50 

S3 

3 13 

314 

321 

325 

329 

380 

390 

397 

4 25 

48  1 

492 

64 

520 

528 

603 

609 

314/S 

353 

353 

354 

354 

355 

359 

359 

370 

370 

371 

371 

375 

376 

376 

387 

387 

388 

392 

392 

393 

393 
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422 

426 

427 

427 

428 

428 

445 

450 

450 

45  1 

45  1 

452 

452 

457 

473 

473 

474 

474 

475 

398 

398 

399 

399 

399 

409 

415/C 

416 

416 

416 

426 

427 

427 

427 

428 

483 

482 

433 

484 

484 

494 

494 

495 

495 

495 

548 

562 

562 

554 

574  5 

5T5 

577 

577 

587 

589 

SS9 

591 

593 

547 

561 

6 10'S 

6 f I 

612 

617 

618 

619 

619 

619 

547 

56  1 

55  1 

555 

1 15 

1 16 

1 1 7 

1 18 

1 19 

579 

587 

523 

595 

595 

597 

598 

5 98 

598 

599 

612 

613 

613 

614 

614 

618 

619 

5 19 

620 

620 

627 

627 

628 

628 

596 

595 

537 

597 

598 

613 

615 

615 

616 

616 

628 

628 

542 

575 

525 

608 

611 

622 

52  2 

67  3 

623 

625 

336 

346 

355 

363 

373 

515 

519 

573 

355 

357 

357 

358 

358 

372 

372 

374 

374 

375 

388 

389 

3S9 

391 

391 

423 

4 23 

424 

424 

426 

445 

446 

446 

447 

447 

455 

455 

455 

456 

457 

475 

500 

50  0 

502 

502 
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NLAYND 


NLA YP t 

NLAVT2 

NLAYT3 

NLAYT4 

NLAYT5 

NLAYT6 

NLAYT7 

NMLEV 

NSDAY 

NSEO 

NSTEP 

NYMD 

NYMDO 

NYMD1 

NYMDE 

NZINIT 

OMEGA 2 

P 

PHI 

PHIM 

PHIP 

PHIS 

PI 

PI  tao 
P I 2 

PI ME AN 

PIT 

Pd 

PJPI 

PJP2 

PKt 


PK2 

PKSTD 

PKTOP 

PLEVS 

PM 

PP 

PPU 


PSMAX 

PSMIN 

PSTD 

PTOP 

PU 

PUt 

PU2 

PUISI 

PV 

PV1 

PV  1 s 

PV2 

PV2S 

PVH1S 

PVH2S 

PVT  IS 

PVT2S 

PVUtS 


INTEGER 

SIMPLE 

504 

313/S 

ICNTRL 

INTEGER 

SIMPLE 

349 

378 

395 

436 

453 

499 

574 

65 

IMJM 

INTEGER 

SIMPLE 

300 

IMJM 

INTEGER 

SIMPLE 

300 

IMJM 

INTEGER 

SIMPLE 

300 

I M JM 

INTEGER 

SIMPLE 

300 

I MOM 

INTEGER 

SIMPLE 

300 

IMJM 

INTEGER 

SIMPLE 

300 

ICNTRL 

INTEGER 

SIMPLE 

75 

ICNTRL 

INTEGER 

SIMPLE 

66 

ICNTRL 

INTEGER 

SIMPLE 

67 

ICNTRL 

INTEGER 

SIMPLE 

69 

ICNTRL 

INTEGER 

SIMPLE 

7 1 

ICNTRL 

INTEGER 

SIMPLE 

73 

ID FARM 

INTEGER 

SIMPLE 

210 

ICNTRL 

INTEGER 

SIMPLE 

72 

ICNTRL 

INTEGER 

SIMPLE 

74 

RCNTRL 

REAL 

SIMPLE 

172 

QANDQT 

REAL 

ARRAY 

261 

QANDQT 

REAL 

ARRAY 

265 

QMSAVE 

REAL 

ARRAY 

295 

QPOLES 

REAL 

ARRAY 

289 

QANDOT 

REAL 

ARRAY 

254 

RCNTRL 

REAL 

SIMPLE 

173 

RCNTRL 

REAL 

SIMFLE 

174 

RCNTRL 

REAL 

SIMPLE 

175 

RCNTRL 

REAL 

SIMPLE 

177 

QMSAVE 

REAL 

ARRAY 

297 

ft 

REAL 

ARRAY 

30  1 

/ / 

REAL 

ARRAY 

301 

/ f 

REAL 

ARRAY 

301 

// 

REAL 

ARRAY 

301 

// 

REAL 

ARRAY 

621/S 
30  1 

RDPARM 

REAL 

SIMPLE 

621 

238 

RDPARM 

REAL 

SIMPLE 

239 

RCNTRL 

REAL 

ARRAY 

19  1 

QMSAVE 

REAL 

ARRAY 

290 

QPOLES 

REAL 

ARRAY 

284 

ft 

REAL 

ARRAY 

301 

RCNTRL 

REAL 

SIMPLE 

480 

493 

178 

RCNTRL 

REAL 

SIMPLE 

179 

RCNTRL 

REAL 

SIMPLE 

176 

RCNTRL 

REAL 

SIMPLE 

180 

// 

real 

ARRAY 

30  1 

// 

REAL 

ARRAY 

301 

// 

REAL 

ARRAY 

30  1 

f f 

REAL 

ARRAY 

301 

QMSAVE 

REAL 

ARRAY 

339 

296 

// 

REAL 

ARRAY 

301 

ft 

REAL 

SIMPLE 

576/S 

REAL 

ARRAY 

301 

REAL 

SIMPLE 

586/S 

REAL 

SIMPLE 

584  /S 

REAL 

SIMPLE 

594/S 

real 

SIMPLE 

5S2/S 

real 

SIMPLE 

592/5 

REAL 

SIMPLE 

57B/S 

504 

513 

5 1 3 

530 

533 

333 

344 

344 

345 

345 

361 

361 

352 

362 

364 

378 

379 

379 

38  t 

381 

396 

396 

398 

398 

399 

438 

443 

443 

444 

444 

454 

454 

453 

458 

459 

50  1 

50  1 

503 

503 

505 

274  320  324  32B  524/S 

279 


267 


519/S 

521  'S 

52  1 

524 

534 

320/S 

322  'S 

322 

333 

435 

324/5 

326  '5 

326 

435 

328/S 

330/S 

330 

4 3B 

5 26/  S 

527/S 

527 

527 

544 

542/  S 

543/S 

543 

543 

545 

607/S 

607 

60S 

617 

334/S 

335/S 

337  S 

335 /S 

339/S 

482 

482 

483 

483 

484 

493 

494 

4g4 

4 95 

495 

526 

542 

SOB 

617 

333/S 

334 

334 

335 

335 

435/S 

436/S 

438/S 

439 

439 

439/S 

599 

44  1 

477 

478 

575/S 

4 40/S 
599 

442 

476 

478 

585/S 

59S 

590 

597 

597 

595 


347 

347 

34B 

348 

349 

364 

365 

365 

366 

366 

362 

382 

383 

383 

395 

399 

400 

400 

404 

435 

448 

44B 

443 

44g 

453 

459 

460 

453 

467 

499 

505 

506 

503 

529 

532 

524 

526 

542 

575 

585 

570/S 

600  1 S 

600 

604 

607 

540 

549/S 

603  ' S 

618 

620 

547 

549 

617  ' S 

618 

619 

342 

484 

343 

490 

473 

490 

479 

491 

480 

491 

337 

337 

338 

338 

339 

440 

440 

4e9 

498 

576 

577 

579 

581 

583 

586 

587 

583 

591 

593 
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PVU2S 

PVVtS 

PVV2S 

PZERO 

QALT 

QANDQT 

QBEG 

QDAY 

QEND 

QFLUK 


QMSAVE 

QOUT 

QPHV 

QPOLES 

QPROG 


QRSH 

QRSW 

OSDI AG 

QSHF 

QUDIAG 

HADE 

RC 

RCO 

RCNTRL 


RDP ARM 


RCNTRL 

LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 


LCNTRL 

LCNTRL 


QANDQT 


LCNTRL 

LCNTRL 

QANDQT 

LCNTRL 

QANDQT 

RCNTRL 

RCNTRL 

RCNTRL 


REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

LOGICAL 

LOGICAL 

LOGICAL 

REAL 


REAL 

LOGICAL 

LOGICAL 

REAL 

REAL 


LOGICAL 

LOGICAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 


REAL 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


UNKNOWN 

SIMPLE 

SIMPLE 

UNKNOWN 

ARRAY 


SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 


UNKNOWN 


RGAS 

RCNTRL 

REAL 

SIMPLE 

flLAT 

RDP A RM 

REAL 

ARRAY 

RLATD 

RDP ARM 

REAL 

ARRAY 

ROGP 

RCNTRL 

REAL 

SIMPLE 

ROCPDT 

RDP ARM 

REAL 

SIMPLE 

ROCPP 1 

RDP ARM 

REAL 

SIMPLE 

RSD 1ST 

RCNTRL 

REAL 

SIMPLE 

5D 

QMSAVE 

REAL 

ARRAY 

SD  1 

// 

REAL 

ARRAY 

SDAY 

RCNTRL 

REAL 

SIMPLE 

SEASON 

RCNTRL 

REAL 

SIMPLE 

SGNP 

RDP ARM 

REAL 

ARRAY 

SH 

QANDQT 

REAL 

ARRAY 

SHLE 

SHM 

QMSAVE 

REAL 

REAL 

SIMPLE 

ARRAY 

SHP 

QPOLES 

REAL 

ARRAY 

SHS 

QANDQT 

real 

ARRAY 

SIG 

RDPARM 

REAL 

ARRAY 

SIGE 

RCNTRL 

REAL 

ARRAY 

SIND 

RCNTRL 

REAL 

SIMPLE 

SI  NL 

RDPARM 

REAL 

ARRAY 

S1NLON 

RDPARM 

REAL 

ARRAY 

SMTH 

QANDQT 

REAL 

ARRAY 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

SOLS 

RCNTRL 

REAL 

SIMPLE 

start 

LDPARM 

LOGICAL 

SIMPLE 

T 

QANDQT 

REAL 

ARRAY 

588 /S 
580  /S 
590/S 

197 

98 
253 

99 
100 
101 

61  1 /S 
625 
290 
102 

103 
284 
253 
277 
107 
105 
280 

104 
283 
IQ  1 

198 
156 
156 
167 
178 
189 


595 

596 
596 


126 

280 

127 

128 

129 
6 1 2 
626/S 
291 

130 

131 
285 
267 
278 
135 
134 
282 

132 


199 


217 

228 

239 

250 
182 

240 
24  1 

183 

242 

243 

184 
298 
618 
301 

185 

186 

244 
265 
400 
427 
473 
550 
593 
622/S 
294 
288 
62S/5 
260 

251 

187 

188 

245 

246 
255 
105 
189 
213 
264 
383 
393/S 
457 


283 


613 

614  'S 

615 

616 

618/S 

619 

620 

626 

627 

628 

298 

292 

293 

294 

295 

296 

297 

286 

287 

288 

289 

268 

269 

270 

271 

272 

273 

274 

279 

624 /S  625 

299 


275 


276 


198 

157 

199 

158 

159 

160 

161 

162 

163 

164 

165 

166 

1 68 

169 

170 

17  1 

172 

173 

174 

176 

176 

177 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

190 

191 

192 

193 

194 

195 

196 

19^ 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

251 

252 

534/S 

535 

536 

539 

546 

553 

604  /S 

60S 

61  1 

614 

624 

525/S 

534 

535  /S 

602/S 

604 

605/S 

577 

579 

587 

539 

595 

596 

597 

59B 

599 

27B 

395 

395 

396 

396 

398 

393 

399 

399 

400 

404 

422/S 

422 

4 23/S 

423 

424/S 

424 

4 26  S 

426 

427 

428/S 

426 

458 

458 

459 

459 

460 

463 

467 

473 

474/S 

474 

475/S 

475 

505 

505 

506 

509 

513/S 

513 

550 

552 

552 

554 

555 

561/S 

561 

552  'S 

562 

583 

623 

623  / S 

623 

624 

598/S 

598 

622 

622 

623 

623 

625 

626 

627/S 

627 

628 

273 

526 

542 

60S 

617 

577 

579 

587 

589 

268 

133 

216 

277 

378 

378 

379 

379 

381 

381 

332 

382 

383 

387 /S 

387 

388/S 

383 

389/S 

389 

391  /S 

391 

392/S 

392 

393 

453 

453 

454 

454 

455/S 

455 

455  'S 

456 

457 

503 

503 

504/S 

504 

54  4 

545 

547/S 

547 

648/S 

S48 

O 

O 


to 
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TEMP 

TERMT 

OMSAVE 

TERMW 

OMSAVE 

THSTD 

RDPARM 

THSTD2 

R DP ARM 

TM 

OMSAVE 

TP 

OPOLES 

TS 

OANDOT 

TSTD 

RCNTRL 

II 

OANDOT 

UM 

OMSAVE 

UP 

OPOLES 

V 

OANDOT 

REAL 

SIMPLE 

REAL 

ARRAY 

real 

ARRAY 

REAL 

SIMPLE 

real 

SIMPLE 

REAL 

ARRAY 

real 

ARRAY 

REAL 

array 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

VER 

VM 

VP 

WSAVE 
Kt ABEL 


AWJA  X 1 • 

AMIN  I 

EXPBYK 

08SSUM 

Q0VMASK 

VEXPBYK 


CCNTRL 

OMSAVE 

OPOLES 

RDRARM 

CCNTRL 


TYPE 

REAL 

real 

REAL 

REAL 

REAL 

REAL 


PROCEDURE  MAP 
--NAME 


CHARTS 
REAL 
REAL 
REAL 
CHAR  *8 


CLASS 

INTRINSIC 

INTRINSIC 

FUNCTION 

INTRINSIC 

INTRINSIC 

FUNCTION 


SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 


58  1 

591 

523  t S 

524 

299 

299 

247 

240 

293 

287 

597/S 

597 

618 

6 18 

259 

272 

190 

262 

275 

333 

344 

344 

349 

349 

353 /S 

353 

354/S 

358 

359/S 

359 

443 

443 

447  f S 

447 

499 

499 

500/S 

538 

577 

579 

587 

509 

29  I 

285 

595/S 

595 

61  1 

6 1 1 

263 

276 

361 

36  1 

352 

366 

370/S 

370 

37  1 /S 

37  t 

376/S 

376 

435 

435 

4 38 

45  1 /S 

451 

452/S 

452 

501 

540 

54t/S 

54  1 

575 

577 

TO 

23 

292 

266 

596/S 

596 

6 1 4 

614 

249 

1 t 

24 

REFERENCES 

D-STMT 

FN  DEF, 

AtARGUST 

619/S 

619 

620/S 

620 

345 

354 

444 

500 

345 

355/S 

444 

536 

347 

355 

445/S 

536 

34  7 

357.  S 
44<= 

537  - S 

348 

357 

446/5 

537 

348 

358 

446 

538 

612/S 

362 

612 

364 

513/S 

364 

6«  3 
365 

365 

366 

372/S 
448 
50  1 
579 

372 

448 

502/S 

585 

374/S 

449 

502 

587 

3~4 

449 

529 

589 

375/S 
450 /S 
539 

375 

450 

540 

6TS/S 

615 

616/S 

6 16 

6 as 

626 

600  6 t 7 

576  570  580  582  5P<j 

4t3  421  466  47?  5t2 

527  543 


586  588  590  592  5®4 

550 


O 

o 
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to 

4S 


o 


o 
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O 

O 
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0000  1 

SUBROUTINE  C0MP2  <J) 

VC0MP2 

2 

C 

VC0MP2 

3 

C 

INTEGRATES  CORIOLIS*  THERMODYNAMICS*  AND  PRESSURE  GRADIENT 

V COMP 2 

4 

C 

VC0MP2 

5 

c 

ARGUMENTS 

DESCRIPTION 

VC0MP2 

6 

c 

J 

LATITUDE  BAND  NUMBER 

VC0MP2 

7 

c 

VCOMP2 

8 

c 

VCNTRL 

2 

c 

Q 

CHARACTER 

MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

3 

00002 

COMMON 

/CCNTRL / 

CCO 

VCNTRL 

5 

00003 

COMMON 

/ CCNTRL / 

ADATE 

VCNTRL 

6 

00004 

COMMON 

/CCNTRL/ 

ATIME 

VCNTRL 

7 

00005 

COMMON 

/CCNTRL/ 

JIC 

VCNTRL 

8 

00006 

COMMON 

/CCNTRL/ 

JOB 

VCNTRL 

9 

00007 

COMMON 

/CCNTRL/ 

CCSP06 

VCNTRL 

10 

00008 

COMMON 

/CCNTRL/ 

CCSP07 

VCNTRL 

1 1 

00009 

COMMON 

/CCNTRL/ 

CCSP08 

VCNTRL 

12 

00010 

COMMON 

/CCNTRL/ 

VER 

VCNTRL 

13 

000  t 1 

COMMON 

/CCNTRL/ 

XLABEL  (10) 

VCNTRL 

14 

000  12 

COMMON 

/CCNTRL/ 

CQS  ( 30 ) 

VCNTRL 

15 

00013 

COMMON 

/CCNTRL/ 

COU  (10) 

VCNTRL 

16 

00014 

c 

VCNTRL 

17 

EQUIVALENCE 

<CCO*CC< 1 ) > 

VCNTRL 

18 

00015 

CHARACTER'S 

CCO*  CC ( 200 ) 

VCNTRL 

19 

000  16 

CHARACTER  * 8 

ADATE 

VCNTRL 

20 

00017 

CHARACTER  *8 

ATIME 

VCNTRL 

21 

00018 

CHARACTER*  8 

JIC 

VCNTRL 

22 

00019 

CHARACTER  *8 

JOB 

VCNTRL 

23 

00020 

CHARACTER'S 

CCSP06 

VCNTRL 

24 

00021 

CHARACTER  *8 

CCSP07 

VCNTRL 

25 

00022 

CHARACTER'S 

CCSP08 

VCNTRL 

26 

00023 

CHARACTER'S 

VER 

VCNTRL 

27 

00024 

CHARACTER'? 

XLABEL 

VCNTRL 

28 

00025 

CHARACTER'S 

CQS 

VCNTRL 

29 

00026 

CHARACTER'S 

CQU 

VCNTRL 

30 

c 

VCNTRL 

31 

c 

INTEGER  MOOEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

32 

c 

VCNTRL 

33 

00027 

COMMON 

/ICNTRL / 

ICO 

VCNTRL 

34 

00028 

COMMON 

/ 1 CNTRL / 

IM 

VCNTRL 

35 

00029 

COMMON 

/ ICNTRL / 

IMD2 

VCNTRL 

36 

00030 

COMMON 

/ ICNTRL/ 

IMD2P1 

VCNTRL 

37 

0003  1 

COMMON 

/ICNTRL/ 

NDRSW 

VCNTRL 

38 

00032 

COMMON 

/ICNTRL/ 

JM 

VCNTRL 

39 

00033 

COMMON 

/ICNTRL/ 

JMD2 

VCNTRL 

40 

00034 

COMMON 

/ICNTRL/ 

JMT2 

VCNTRL 

41 

00035 

COMMON 

/ICNTRL/ 

JNP 

VCNTRL 

42 

00036 

COMMON 

/ICNTRL/ 

J04 

VCNTRL 

43 

00037 

COMMON 

/ICNTRL/ 

J08 

VCNTRL 

44 

00038 

COMMON 

/ICNTRL/ 

JSP 

VCNTRL 

45 

00039 

COMMON 

/ICNTRL/ 

KLIALB 

VCNTRL 

46 

00040 

COMMON 

/ICNTRL/ 

KLIGW 

VCNTRL 

47 

0004  1 

COMMON 

/ICNTRL/ 

KLISST 

VCNTRL 

48 

00042 

COMMON 

/ICNTRL/ 

KS 

VCNTRL 

49 

00043 

COMMON 

/ICNTRL/ 

KU 

VCNTRL 

50 

00044 

COMMON 

/ICNTRL/ 

LOG8R 

VCNTRL 

51 

00045 

COMMON 

/ICNTRL/ 

MATIN 

VCNTRL 

52 

00046 

COMMON 

/ICNTRL/ 

MATSNX 

VCNTRL 

53 

00047 

COMMON 

/ICNTRL/ 

MATSUN 

VCNTRL 

54 

00048 

COMMON 

/ICNTRL/ 

MLF  (12) 

VCNTRL 

55 

00049 

COMMON 

/ICNTRL/ 

MROD 

VCNTRL 

56 

00050 

COMMON 

/ICNTRL/ 

NKRSH 

VCNTRL 

57 

00051 

COMMON 

/ICNTRL/ 

MSM 

VCNTRL 

58 

00052 

COMMON 

/ICNTRL/ 

NB 

VCNTRL 

59 

00053 

COMMON 

/ICNTRL/ 

ND 

VCNTRL 

60 

00054 

COMMON 

/ICNTRL/ 

NDALT 

VCNTRL 

61 

00055 

COMMON 

/ICNTRL/ 

NDAV 

VCNTRL 

62 

00056 

COMMON 

/ICNTRL/ 

NDOUT 

VCNTRL 

63 

00037 

COMMON 

/ICNTRL/ 

NDPHY 

VCNTRL 

64 

00058 

COMMON 

/ICNTRL/ 

NDSHF 

VCNTRL 

65 

to 
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00060 

0*061 

££062 

00063 

00GG4 

00065 
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00  1 14 
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COMMON  /ICNTRL/  NO,' 
COMMON  /ICNTRL / NHMS 
COMMON  /ICNTRL/  NHMSE 
COMMON  / ICNTRL/  MHMSO 
COMMON  /ICNTRL/  NL A Y 
COMMON  /ICNTRL/  NLA  VM I 
COMMON  /ICNTRL/  NLAYP1 
COMMON  /ICNTRL/  NSDAV 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  IBLKS1Z 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINJT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDHOG 
COMMON  /ICNTRL/  IQS  <30. 
COMMON  /ICNTRL/  IQU  flO) 


EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUI VALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

INTEGER 


< itmin 

( ITMAX 

{ IPREACC 
( IPRECON 
( INFLUX 
(IEFLUX 

< I FUSION 
< IRAOSWG 
( IRADLWG 
( IICLOUD 
< I UFLUX 

f IVFLUX 

1 IOMEGA 
< 101 ABAT 
< IRADSW 

< iraolv; 


.IOS<  1 ) > 

,IOS(  2>> 

.;os<  3 > ) 

, X QS  ( 4 ) ) 
, I Q5 ( 5) ) 
.IQS<  6 ) ) 
.IQS1  7)> 

♦ I QS  < B)> 

♦ 1 QS ( 9)) 
. IQS< 10) I 

.losnt)) 

, IQS f 12) ) 

-iqui  in 

. I QU  < 2 I > 
. I QU  r 3)1 
. I QU  < 4 ) ) 


( ICO, IC( I ) > 
ICO,  IC<200) 


p ivIETERS  s/WEt5  on  history  record 


COMMON  /LCNTRL / LCO 
COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL/  QBEG 
COMMON  /LCNTRL/  QDAY 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMMON  /LCfc'TRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 
COMMON  /LCNTRL/  QRSW 
COMMON  /LCNTRv,  / ORSH 
COMMON  /LCNTRL/  LQS<30> 
COMMON  /LCNTRL/  LQUflO) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


< LTMIN 
(LTMAX 
(LPREACC 
t LP  RECON 
(LHFLUX 
i LEFLUX 
(LFUSION 
< LRADSWG 

< L RADLVVG 

< L I CLOUD 

< LLr LUX 
(LVFLUX 


.LQSC  in 
. LQS ( 2)) 
» LQS ( 3)) 
, LQS < 4 M 
. LQS  < 5 > ) 
,LQS<  6) ) 
» L QS ( 7)) 
. LQS<  8)) 
. LQS l 9)) 
. lqs  i ion 

, L QS  < ID) 
, LOS ( 12)  > 


% >.  ; v ■ 


VCNTRL  66 
VCNTRL  67 
VCNTRL  68 
VCNTRL  69 
VCNTRL  70 
VCNTRL  71 
VCNTRL  72 
VCNTRL  73 
VCNTRL  74 
VCNTRL  75 
VCNTRL  76 
VCNTRL  77 
VCNTRL  78 
VCNTRL  79 
VCNTRL  80 
VCNTRL  81 
VCNTRL  82 
VCNTRL  83 
VCNTRL  84 
VCNTRL  85 
VCNTRL  86 
VCNTRL  B7 
VCNTRL  88 
VCNTRL  89 
VCNTRL  90 
VCNTRL  91 
VCNTRL  92 
VCNTRL  93 
VCNTRL  94 
VCNTRL  95 
VCNTRL  96 
VCNTRL  97 
VCNTRL  98 
VCNTRL  99 
VCNTRL  100 
VCNTRL  101 
VCNTRL  102 
VCNTRL  103 
VCNTRL  104 
VCNTRL  105 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  110 
VCNTRL  1 1 1 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  1 15 
VCNTRL  116 
VCNTRL  117 
VCNTRL  110 
VCNTRL  119 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 
VCNTRL  128 
VCNTRL  129 
VCNTRL  130 
VCNTRL  131 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
VCNTRL  135 
VCNTRL  136 


m 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


00  1 22 

EQUIVALENCE 

{ LOMEGA 

,LQU< 

1 ) > 

00  1 23 

EQUIVALENCE 

{LDIABAT 

, LQU  1 

2)  ) 

00  1 24 

EQUIVALENCE 

(LRADSW 

, L QU  1 

3)  ) 

00125 

EQU1 VALENCE 

(LRADLW 

, LQU  ( 

4 ) ) 

00  1 26 

C 

LOGICAL 

QALT 

00  1 27 

LOGICAL 

QSEG 

00  128 

LOGICAL 

QDAY 

00  t 29 

LOGICAL 

QEND 

00  1 30 

LOGICAL 

QOUT 

00131 

LOGICAL 

QPHY 

00  1 32 

LOGICAL 

QSHF 

00133 

LOGICAL 

SN2FLG 

00134 

LOGICAL 

QRSW 

00  135 

LOGICAL 

QRSH 

00136 

c 

LOGICAL 

LOS 

00137 

LOGICAL 

LQU 

00  138 

LOGICAL 

LTM1N 

00  1 39 

LOGICAL 

LTMAX 

00  1 40 

LOGICAL 

LPREACC 

00  14  1 

LOGICAL 

LPRECON 

00142 

LOGICAL 

LHP  LUX 

00  143 

LOGICAL 

LEFLUX 

00144 

LOGICAL 

LFUSION 

00145 

i 

LOGICAL 

LRADSWG 

00  146 

logical 

LRADLWG 

00  147 

LOGICAL 

LICLOUD 

00 \48 

LOGICAL 

LUFLUX 

00  T49 

LOGICAL 

LVFLUX 

10  150 

c 

LOGICAL 

LOMEGA 

3015  1 

LOGICAL 

LDIABAT 

30  152 

LOGICAL 

LRADSW 

00153 

LOGICAL 

LRADLW 

00  154 

c 

EQUIVALENCE 

{ LCO , LC ( 1 > ) 

00155 

LOGICAL 

LCO  , LC  f 200 ) 

c REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

Q = = = = = = = = = = = = = = = " = - = = 


00  156 

COMMON 

/RCNTRL/ 

RCO 

00157 

COMMON 

/ RCNTRL / 

APHEL 

00  158 

COMMON 

/RCNTRL/ 

BETA 

00  159 

COMMON 

/RCNTRL/ 

COSD 

00160 

COMMON 

/RCNTRL/ 

CP 

0016  1 

COMMON 

/RCNTRL/ 

DAYSPY 

00162 

COMMON 

/RCNTRL/ 

DEC 

00163 

COMMON 

/RCNTRL/ 

decmax 

00  164 

COMMON 

/RCNTRL/ 

DIST 

00  165 

COMMON 

/RCNTRL/ 

DLAT 

00  166 

COMMON 

/RCNTRL/ 

DLON 

00  167 

COMMON 

/RCNTRL/ 

DT 

00168 

COMMON 

/RCNTRL/ 

ECCN 

00  169 

COMMON 

/RCNTRL/ 

GNUt 

00  1 70 

COMMON 

/RCNTRL/ 

GNU2 

00171 

COMMON 

/RCNTRL/ 

GRAV 

00172 

COMMON 

/RCNTRL/ 

OMEGA 2 

00173 

COMMON 

/RCNTRL/ 

PI 

00174 

COMMON 

/RCNTRL/ 

PI  180 

00175 

COMMON 

/RCNTRL/ 

P I 2 

00  176 

COMMON 

/RCNTRL/ 

PSTD 

00  177 

COMMON 

/RCNTRL/ 

PIMEAN 

00  t7B 

COMMON 

/RCNTRL/ 

PSMAX 

00179 

COMMON 

/RCNTRL/ 

PSMIN 

00180 

COMMON 

/RCNTRL/ 

PTOP 

00  181 

COMMON 

/RCNTRL/ 

RADE 

00  182 

COMMON 

/RCNTRL/ 

RGAS 

00  183 

COMMON 

/RCNTRL/ 

ROCP 

00  184 

COMMON 

/RCNTRL/ 

RSDIST 

00185 

COMMON 

/RCNTRL/ 

SDAY 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

vcpjtrl 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

'CNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 


137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 
143 

149 

150 

151 

152 

153 

154 
153 

156 

157 
150 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 
17  1 

172 

173 

174 

175 

176 

177 
17B 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 
193 

199 

200 
201 
202 

203 

204 

205 

206 
207 


00186 

COMMON 

/RCNTRL/ 

SEASON 

00  187 

COMMON 

/RCNTRL / 

SIGE 

(25  ) 

00183 

COMMON 

/RCNTRL/ 

SIND 

00189 

COMMON 

/RCNTRL/ 

SOLS 

00190 

COMMON 

/RCNTRL/ 

TSTD 

00  19  1 

COMMON 

/RCNTRL/ 

PLEVS 

t 25  ) 

00  192 

COMMON 

/RCNTRL/ 

HEATW 

00193 

COMMON 

/RCNTRL/ 

HEAT  I 

00194 

COMMON 

/RCNTRL/ 

EPS 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

00  196 

COMMON 

/RCNTRL/ 

CALTOJ 

00197 

Q 

COMMON 

/RCNTRL / 

PZERO 

00138 

EQUIVALENCE 

(RCO, RC( 1 ) ) 

00  199 

REAL 

RCO , RC  <200 

C INTEGER  MODEL  CONSTANTS 


00200 

COMMON 

/IDPARM/ 

I JUMP 

( 46  > 

0020  1 

COMMON 

/ 1 DP ARM/ 

ID5P02 

00202 

COMMON 

/IDPARM/ 

INDEX 

f 72  ) 

00203 

COMMON 

/IDPARM/ 

I ROD 

00204 

COMMON 

/IDPARM/ 

JC 

( 46) 

00205 

COMMON 

/IDPARM/ 

JE 

< 2 > 

00206 

COMMON 

/IDPARM/ 

JP 

12,2) 

00207 

COMMON 

/IDPARM/ 

KSTEP 

00208 

COMMON 

/IDPARM/ 

MJ 

146  ) 

00209 

COMMON 

/IDPARM/ 

NHMS  1 

002  1 0 

COMMON 

/IDPARM/ 

NYMD  1 

C 


C LOGICAL  MODEL  CONSTANTS 


0021  1 

COMMON  /LDPARM/ 

FILTER 

00212 

COMMON  /LDPARM/ 

ITAPE 

002  13 

0 

COMMON  /LDPARM/ 

START 

00214 

LOGICAL 

FILTER 

002  15 

LOGICAL 

I TAPE 

002  16 

C 

LOGICAL 

START 

C REAL  MODEL  CONSTANTS 


002  1 7 

COMMON 

/RDPARM/ 

ADLDP 

□ 02  18 

COMMON 

/RDPARM/ 

CONI 

00219 

COMMON 

/RDPARM/ 

CON  IDT 

00220 

COMMON 

/RDPARM/ 

COM2 

00221 

COMMON 

/RDPARM/ 

CON2DT 

00222 

COMMON 

/RDPARM/ 

C0N3 

00223 

COMMON 

/RDPARM/ 

C0N3DT 

00224 

COMMON 

/RDPARM/ 

C0N4 

00225 

COMMON 

/RDPARM/ 

C0N4DT 

00226 

COMMON 

/RDPARM/ 

C0N5 

00227 

COMMON 

/RDPARM/ 

COSL 

(46  > 

00228 

COMMON 

/RDPARM/ 

COSLON 

(72) 

00229 

COMMON 

/RDPARM/ 

CPD2 

00230 

COMMON 

/RDPARM/ 

D XP 

(46) 

00231 

COMMON 

/RDPARM/ 

DXYP 

1 46  > 

00232 

COMMON 

/RDPARM/ 

DYP 

( 46) 

00233 

COMMON 

/RDPARM/ 

FCORLS 

f 46  ) 

00234 

COMMON 

/RDPARM/ 

F1DT 

00235 

COMP/ION 

/RDPARM/ 

F2DT 

00236 

COMMON 

/RDPARM/ 

H1DT 

00237 

COMMON 

/RDPARM/ 

H2DT 

00238 

COMMON 

/RDPARM/ 

PKSTD 

00239 

COMMON 

/RDPARM/ 

PKTOP 

00240 

COMMON 

/RDPARM/ 

RLAT 

146) 

0024  1 

COMMON 

/RDPARM/ 

RLATD 

1 46  1 

00242 

COMMON 

/RDPARM/ 

ROCPDT 

00243 

COMMON 

/RDPARM/ 

ROCPP1 

00244 

COMMON 

/RDPARM/ 

SGNP 

( 2 ) 

00245 

COMMON 

/RDPARM/ 

SI  NL 

(46  ) 

VCNTRL  208 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  2^3 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 


O 

O 

S 

to 


4* 


ORIGINAL  PAGE  iSf 
OF  POOR  QUALITY 


00246 

00247 

00248 

00249 

00250 

00251 

00252 


00252 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
0026  ! 

00262 

00263 

00264 

00265 

00266 

00267 

0026B 

00269 

00270 
0027  1 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 


00280 

00281 

00282 

00283 


00284 

00285 

00286 

00287 

00288 
00289 


COMMON  /RDPARM/  SINLON 
COMMON  / RDPARM/  THSTD 
COMMON  / RDPARM/  THSTD2 
COMMON  /RDPARM/  W5AVE 
COMMON  /RDPARM/  DSIG 
COMMON  /RDPARM/  SIG 


17  2) 


1 159) 

< 9 ) 

t g j 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


COMMON  /RDPARM/  DSIGXNV  <9> 


COMDECK  VOANDQT  RESOLUTION  VALUES 


IM 

NLAY 
JM4-  1 
NLAY* 1 I 
FM*NLA V * 1 1 
JM/2* 1 


= 72 
= 9 
= 46 
= 99 
= 7 128 
= 23 


GLOBAL  MODEL  PROGNOSTIC  FIELDS  1 NEEDED  IN  COMPO) 


SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COMPO) 


COMMON 

DIMENSION 

EQUIVALENCE 

COMMON 


/QANDOT/  QSD 1 AG (72 
1 OSD I AG (72 


f QSD I AG, I OSD I AG) 

/ QANDQ  T / QUDI AG (72,9,  5.46) 


15.46) 

, 15.46) 


POLAR  MODEL  PROGNOSTIC  FIELDS 
COMMON  /OPOLES/  PP<2,2) 
COMMON  / QPOLES/  UP  < 9 , 2 . 2 ) 
COMMON  /QPOLES/  VP < 9 , 2 . 2 ) 
COMMON  /QPOLES/  TP (9. 2, 2) 
COMMON  /QPOLES/  SHP(9.2(2) 
COMMON  /QPOLES/  PHIPO,2.2> 


VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  203 
VCNTRL  284 
VCNTRL  295 
VCNTRL  286 
VOANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VOANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT  10 
VQANDQT  It 
VQANDQT  12 
VOANDQT  13 
VOANDQT  14 


COMMON 

/QANDOT/  QPROG (72.9,11 

46) 

VOANDQT 

15 

VOANDQT 

16 

DIMENSION 

PHIS 

(7  128. 

1 ) 

VQANDQT 

17 

DIMENSION 

SMTH 

(7128. 

23) 

VOANDQT 

18 

DIMENSION 

ALBEDO 

<7128. 

1 ) 

VQANDQT 

19 

DIMENSION 

GT 

(7128. 

1 ) 

VOANDQT 

20 

DIMENSION 

GW 

(7128. 

1 ) 

VQANDQT 

21 

DIMENSION 

TS 

( 7128. 

1 ) 

VOANDQT 

22 

DIMENSION 

SHS 

(7128. 

1 ) 

VQANDQT 

23 

DIMENSION 

P 

(72.99 

, 1 I 

VQANDQT 

24 

VQANDQT 

25 

DIMENSION 

U 

(72.9. 

1 1 . 

1 ) 

VQANDQT 

26 

DIMENSION 

V 

(72,9. 

1 1 . 

1 ) 

VQANDQT 

27 

DIMENSION 

T 

(72.9. 

1 1 < 

1 ) 

VOANDQT 

28 

DIMENSION 

SH 

<72.9. 

1 1 . 

1 > 

VOANDQT 

29 

DIMENSION 

PHI 

(72.9, 

1 1 . 

1 ) 

VQANDQT 

30 

VQANDQT 

31 

EQUIVALENCE 

< QPROG < 

1 . 1.1 

r 1 ) 

, PHIS 

< 

1 . 

1 ) 

) 

VOANDQT 

32 

EQUIVALENCE 

( QPROG  < 

1 , 2.1 

. 1 ) 

, SMTH 

( 

1 , 

1 ) 

) 

VOANDQT 

33 

EQUIVALENCE 

I QPROG { 

1 . 3.1 

. 1 ) 

.ALBEDO! 

1 , 

1 > 

) 

VQANDQT 

34 

EQUIVALENCE 

I QPROG ( 

1 . 4,1 

. 1 ) 

♦ GT 

( 

1 . 

1 ) 

) 

VOANDQT 

35 

EQUIVALENCE 

( QPROG! 

1 . 5,1 

. 1 ) 

♦ GW 

! 

1 , 

1 > 

) 

VQANDQT 

36 

EQUIVALENCE 

(QPROG! 

1 . 6,1,1) 

, TS 

( 

1 , 

1 ) 

) 

VQANDQT 

37 

EQUIVALENCE 

( QPROG < 

1 . 7.1 

, 1 ) 

.SHS 

( 

1 , 

1 > 

) 

VQANDQT 

38 

EQUIVALENCE 

< QPROG ( 

1 . 8,1 

, 1 ) 

.P 

< 

1 . 

1 , 

1 ) ) 

VOANDQT 

39 

VQANDQT 

40 

EQUIVALENCE 

! QPROG! 

1.1,  2 

, 1 ) 

,U  (1 

1 

, ) 

, 1 

) ) 

VOANDQT 

41 

EQUIVALENCE 

! QPROG< 

1,1,  4 

, 1 ) 

.V  ( 1 

1 

, 1 

. 1 

) ) 

VQANDQT 

42 

EQUIVALENCE 

! QPROG* 

1,1.  6 

, 1 ) 

, T (1 

1 

» * 

. 1 

) ) 

VQANDQT 

43 

EQUIVALENCE 

(QPROG! 

1,1,  8 

. 1 ) 

.SH  (1 

1 

, 1 

) ) 

VQANDQT 

44 

EQUIVALENCE 

(QPROG! 

1,1.10 

, 1 > 

.PHI  ( 1 

1 

. 1 

. 1 

) ) 

VQANDQT 

45 

VQANDQT  46 
VQANDQT  47 
VOANDQT  48 
VQANDQT  49 
VQANDQT  50 
VOANDQT  51 
VQANDQT  52 
VOANDQT  53 
VQANDQT  54 
VQANDQT  55 
VQPOLES 
VOFOLES 
VQPOLES 
VOPOLES 
VOPOLES 
VOPOLES 
VQPOLES 
VOPOLES 


VQPOLES  10 


ORIGINAL  PAGE  G3 
OF  POOR  QUALITY 


c 

c 


00290 

COMMON 

/ QM5AVE/ 

00291 

COMMON 

/OMSAVE/ 

00292 

COMMON 

/OMSAVE/ 

00293 

COMMON 

/QMSAVE / 

00294 

COMMON 

/OMSAVE/ 

00295 

COMMON 

/QMSAVE/ 

00296 

COMMON 

/QMSAVE/ 

00297 

COMMON 

/OMSAVE/ 

00298 

COMMON 

/OMSAVE/ 

00299 

Q 

COMMON 

/OMSAVE/ 

C 4 

» *■ 

00300 

COMMON 

0030  1 


00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 
C03  1 0 
0031  1 
00312 

003  13 


00314 

00315 


VM  <72,9.51 


SO <72, 9. 5) 

, TERMTf  72,9,5) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


s 

5 

s 

s 

s 

s 

s 

s 

$ 

s 

s 

s 

s 

s 

s 

s 

s 

s 


COMMON  / IMJM/ 


P Q { 7 2 , 9 ) , 
PDOT (72,9) » 
PX I (72.9) . 
PX2 ( 7 2 t 9 ) . 
P Y 1 (72.9) , 
PY2 (72.9) , 
PHI  XI (72,9)  , 
PHI X2 ( 72 , 9 ) , 
TEMP  1 (72,91  , 
TEMP2 (72.9) . 
PHI Y 1 (72,9) t 
PH I Y2 (72,9) , 
PVDS (72 ) , 
PHI  1(72), 
PHI  2(72)  . 
PHI  1 CS (72 > , 
PHI  1 SS  < 72 ) , 
PHI 2CS ( 72  ) , 
PHI 2SS  < 72 ) 

IMM1  , 

I NIT  2 . 
IMNLAY,  IMNLAY1. 
IMD2M1  , 

NLAYT2  . 


NLAYT3 
NLAYND  = NLAY-CND  - U 
NLAYNB  = NLAY* ( NB  - 1) 

2 


I MM2 , 1 MM3 , I MM 4 , I MM 5 , 

IMT4. 

IMNLAY2.  IMNLAY3.  IMNLAY4 , IMNLAY5. 
NLAYT4.  NLAYT5.  NLAYT6,  ML  A V T7 


JS2  = J 
IF  ( J . EO ► 2 ) 
JSI  = J - 1 

JP 1 = J 4 1 

JP2  = J 4 2 

IF  (J.EO.JM) 


JS2  = J 


JP  2 = J 


FO/YP  * FCORLS( J) 4OXYP r J J 
ADLDPS  = ADLDP  *SI NL ( J 1 
K - JC(J) 

JF  (d.EQ.1)  GO  TO  20 


THE  FOLLOWING  PO  ARRAY  IS  SET  UP  READY  IN  COMP t 
IT  IS  USEO  IN  C0MP1  WHERE  IT  IS  CALLED  PJ 
COMP  1 MUST  BE  CALLED  JUST  BEFORE  COMP 2 


PQ ( 1 ,1  ; IM  ) = PCI, ND  f J ; I M ) 

PQ'  1 . 2 : I M ) = PQM,  t ; IM) 
PQ(  t ,3-;IMT2)  = PQ  ( 1 ♦ 1 ;IMT2) 
P0M.5:IMT4>  s PQ  (1,1  ;IMT4> 
PO  M ,9 ; IM  > = PQf 1 , 1 ; IM) 


PX1C2, 1 ; I MM2  > = PQ  f 3 , I ; I MM2 ) 
PX1(1,t)  = PQ (2,1) 


pq  r i 
PQ  ( IM 


. 1 ; I MM2 ) 
, 1 ) 


VOMSAVE  2 
VQMSAVE  3 
VQMSAVE  4 
VOMSAVE  5 
VOMSAVE  6 
VOMSAVE  7 
VQMSAVE  8 
VQMSAVE  9 
VQMSAVE  10 
VOMSAVE  1 I 
VQMSAVE  12 
VOMSAVE  13 
VQMSAVE  14 
V COMP 2 13 

VC0M2WK  2 
VC0M2WK  3 
VC0M2WK  4 
VCOM2WK  5 
VC0M2Y>K  6 
VCOM2WK  7 
VC0M2WK  S 
VC0M2WK  9 


VC0M2WK 

10 

VC0M2WK 

1 1 

VC0M2WK 

12 

VC0M2WK 

13 

VCQM2WK 

14 

VC0M2WK 

15 

VC0M2WK 

16 

VCOM2WK 

17 

VC0M2WK 

18 

VC0M2WK 

19 

VC0M2WK 

20 

VIMJM 

2 

VIMJM 

3 

VIMJM 

4 

VIMJM 

5 

VIMJM 

6 

VCOMP2 

16 

VC0MP2 

17 

VCOMP 2 

18 

VC0MP2 

19 

VC0MP2 

20 

VC0MP2 

21 

VCOMP 2 

22 

VC0MP2 

23 

VCOMP 2 

24 

VCOMP2 

25 

V COMP 2 

26 

VC0MP2 

27 

VCOMP2 

28 

VCOMP2 

29 

♦VCOMP 2 

30 

♦VCOMP 2 

31 

* VC0MP2 

32 

• VC0MP2 

33 

"V COMP 2 

34 

* VCOMP  2 

35 

* VCOMP  2 

36 

•VCOMP 2 

37 

VCOMP 2 

38 

VCOMP 2 

39 

VCOMP 2 

40 

VCOMP 2 

4 1 

VCOMP 2 

42 

VCOMP 2 

43 

VCOMP 2 

44 

* VCOMP  2 

45 

VCOMP 2 

46 

VCOMP 2 

47 

VC0MP2 

48 

ro 

ON 
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00316 

PX1 < IM, 1 | 

= PQ( 1 , 1 ) - PQC IMM1 . 1 ) 

V COMP 2 

49 

C 

VCOMP2 

50 

C 

PX 1 < 1 , 2 ; IM  ) 

* PX1 < 1 , 1 ;IM) 

VC0MP2 

51 

C 

P X 1 < 1 ,3;IMT2> 

« P X 1 < 1 , 1 ; IMT2 ) 

VCOMP  2 

52 

c 

P X 1 ( 1 , 5 ; IMT4) 

- P X 1 < 1 , 1 i IMT4  ) 

VCOMP2 

53 

c 

PX  1 ( 1 , 9 ; IM  ) 

= P X 1 (1,1  ; IM) 

VCOMP 2 

54 

0 

VCOMP 2 

55 

c 

THE  ABOVE  SCHEME  IS  PASTER  FOR  9 LAVERS  THEN  THE  FOLLOWING 

VC0MP2 

56 

c 

DO  LOOP 

VC0MP2 

57 

c 

V COMP 2 

58 

00317 

DO  5 1 1 * L=2 , NLAV 

VC0MP2 

59 

00318 

P X 1 ( 1 , L ; I M > 

- P X 1 ( 1 t 1 ; IM) 

VC0MP2 

60 

00319 

5111 

CONTINUE 

VC0MP2 

61 

C 

VC0MP2 

62 

00320 

PHI  X 1 ( 2 , 1 ; IMNLAY2 ) = PHI ( 3 . NLAYND + 1 . 1 ,d; IMNLA Y2 ) 

VC0MP2 

63 

S 

-PHI  ( 1 , NLAYND4-  1 , 1 . d:  IMNLAY2) 

VC0MP2 

64 

00321 

DO  910  L=1 , NLA Y 

VC0MP2 

65 

00322 

LND  - NLAYND  * 

L 

VCOMP 2 

66 

00323 

PH 1X1 < 1 , L) 

- PHI  <2, LND. 1 ,d)  - PHItIM  . LND , 1 , d ) 

VC0MP2 

67 

00324 

PHI  XI ( IM. L ) 

= PHI  < 1 , LND ♦ 1 , d > - PHI  ( I MM 1 , LND , 1 , d ) 

VC0MP2 

68 

00325 

910 

CONTINUE 

VC0MP2 

69 

c 

VC0MP2 

70 

00326 

P X 2 ( 3 f 1 ; I MM4 ) 

= PQ<S,1;IMM4>  - PQ<1  , 1 ; IMM4 ) 

VC0MP2 

71 

00327 

P X 2 < 2 , 1 } 

* PQ<4 , 1 > - PQ( IM  , 1 ) 

VC0MP2 

72 

00328 

PX2( 1 , 1) 

* PQ  ( 3 , 1 ) - PQMMM1  . 1 ) 

VC0MP2 

73 

00329 

P X 2 f I M . 1 ) 

- PQ< 2, 1 ) - PQf I MM2 , 1 ) 

VC0MP2 

74 

00330 

P X 2 ( I MM  1 . 1 > 

a PQ< 1 , 1 ) - P0(IMM3, 1) 

VC0MP2 

75 

c 

VCOMP 2 

76 

c 

P X2  < 1 ,2; IM  ) 

= PX2 ( 1 , 1 ; IMI 

VC0MP2 

77 

c 

P X 2 ( 1 , 3 ; IMT2 ) 

= PX2 ( 1.1; I MT2 ) 

VCOMP 2 

78 

c 

P X2 { 1 , 5 ; IMT  4 > 

« PX2 ( 1 . 1 ; IMT4 ) 

VC0MP2 

79 

c 

P X 2 < 1 ,9; I M ) 

= PX2  < 1 , 1 ; IM) 

VCOMP 2 

BO 

c 

V COMP 2 

81 

c 

THE  ABOVE  SCHEME  IS  FASTER  FOR  9 LAYERS  THEN  THE  FOLLOWING 

VC0MP2 

82 

c 

DO  LOOP. 

V COMP 2 

83 

c 

V COMP 2 

84 

00331 

DO  5112  L=2 , NLAV 

V COMP 2 

85 

00332 

PX2 < 1 , L ; IM  > 

s PX2  < 1,1; IM) 

VC0MP2 

86 

00333 

5112 

: CONTINUE 

VC0MP2 

87 

C 

VC0MP2 

88 

00334 

PHI  X 2 ( 3 , 1 ; IMNLAY4)  s PHI < S t NLA YND+ 1 . 1 , J : IMNLAY4 ) 

VC0MP2 

89 

S 

- PH I I 1 , NLAYND* 1 , 1 ,d; ] MNLA Y4 ) 

V COMP 2 

90 

00335 

DO  920  L = 1 , NLA Y 

VC0MP2 

91 

00336 

LND  * NLAYND  + 

L 

V COMP 2 

92 

00337 

PH 1 X 2 t 2 , L ) 

= PHI ( 4 , LND ,1td)  - PHI ( IM  f LND  , 1 . d ) 

VCOMP2 

93 

00338 

PHI  X 2 < 1 ,L> 

= PHI { 3 , LND . 1 , d ) - PHI { IMM 1 , LND  « 1 , d ) 

VC0MP2 

94 

00339 

PHI X2< IM.L  ) 

= PHI <2, LND.  1 ♦ Jt  - PHI { I MM2, LND, 1 ,d) 

V COMP 2 

95 

00340 

PHI  X21IMM1  ,L) 

= PHI < 1 , LND , 1 t d ) - PHI M MM3, LND , 1 ,d) 

V COMP 2 

96 

00341 

920 

CONTINUE 

VC0MP2 

97 

C 

VC0MP2 

98 

00342 

PHIY1  M f 1 ;IMNLAY>  * PHI  (1  , NLA  YND+  1 . 1 . JP  1 : I MNLA  V J 

VC0MP2 

99 

S 

- PHI ( 1 .NLA YND +1 , 1 ,dS1 ; I MNLA Y ) 

VC0MP2 

too 

00343 

PY1 <1,1; IM) 

- P < 1 , ND . dP 1 J IM)  - P{ 1 ,ND , dSI : IM) 

VC0MP2 

101 

C 

VC0MP2 

102 

C 

PY1M.2;IM  ) 

= PYM  1 . 1 ; IM) 

VC0MP2 

103 

C 

PYK1  .3;  IMT2) 

= PV1 <1,1; I MT2 ) 

VCOMP2 

104 

C 

PY1 < 1 f 5 ; IMT 4 ) 

= PY 1 < 1 , 1 ; IMT4 ) 

VC0MP2 

105 

C 

PY1M.9;IM  ) 

- PY1 < 1 t 1 ; IMI 

VC0MP2 

106 

C 

VC0MP2 

107 

C 

THE  ABOVE  SCHEME  IS  FASTER  FOR  9 LAYERS  THEN  THE  FOLLOWING 

VC0MP2 

1 08 

C 

DO  LOOP 

VC0MP2 

109 

C 

VC0MP2 

1 10 

00344 

DO  5113  L=2 ,NLAY 

VC0MP2 

1 1 1 

00345 

PYin.LjIM  ) 

= PY 1 M , 1 ; IM) 

VC0MP2 

1 12 

00346 

5113 

CONTINUE 

VC0MP2 

1 13 

C 

VC0MP2 

1 14 

00347 

IF  < J . EO . dM , OR 

.J.EQ.2)  GOTO  1200 

VC0MP2 

1 15 

00348 

PHIY2C  1 , 1 ;IMNLAY)  = PHI  ( 1 , NLA YND * 1 , 1 , dP2 ; I MNLA Y ) 

VCOMP 2 

1 16 

S 

- PHI < 1 , NLAYND* 1,1, dS2 ; IMNLA Y ) 

VC0MP2 

1 17 

C 

VCOMP 2 

118 

00349 

PY2< 1 f 1 ; IM) 

= P< 1 .ND.JP2; IM)  - Pi  1 .ND, J52; IM) 

VC0MP2 

1 19 
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00350 

0035  I 

00352 

00353 

00354 

00355 

00356 

00357 

00358 

00359 

00360 

0036  t 

00362 

00363 

00364 

00365 

00366 

00367 

00368 

00369 

00370 

0037  1 


00372 

00373 

00374 


00375 

00376 


00377 

00378 

00379 

00380 


00381 


1200 


930 


1110 
1 220 
C 
C 
C 

c 

c 

c 

c 

c 

c 


GOTO  1220 
CONTINUE 
152  = IM  - 3 

151  = IM  - 2 

I ~ I M - 1 

IP  I = IM 

DO  1110  IP2  = 1 , IM 

IXP  = I 

IF  (d.EO.JM)  IXP  = INOEXCI) 

IXS  = I 

IF  (d.EQ.2>  IXS  * INDEX < I J 

PY2U.1)  = P ( 1 XP  , ND  , JP2)  - P(  IXS.ND.  JS2> 

DO  930  L- 1 , NLA Y 
LND  = NLAYND  * L 

PHI Y2  f I * L ) = PHI (IXP, LND , 1 ,JP2)  - PH I < I XS . LND , 1 t JS2 ) 
CONTINUE  ’ 

152  = IS1 
IS1  = I 

I = IP  1 
IP1  = IP2 
CONTINUE 
CONTINUE 


P Y2 ( 1 . 2 ; 1 M ) 
PY2< 1 , 3 ; IMT2 ) 
PY2C 1,5; IMT4) 
PY2 ( 1 , 9 ; IM  > 


P Y2  < 1.1;  IM) 
PY2( 1.1; IMT2> 
PY2< 1.1; IMT4 ) 
PV2C 1 , 1 ; IM) 


THE  ABOVE  SCHEME  IS  FASTER  FOR  9 LAYERS  THEN  THE  FOLLOWING 
DO  LOOP . 


DO  5114  L=2,NLAY 

PY2C 1 tL; IM  > = PY2 ( 1 , t ; IM* 

5114  CONTINUE 
C 
c 

c * • 

c ****  COMPUTE  CORIOLIS  FORCE 

C * * 

C ♦♦*.****M**t****1.********^*,^,*,* 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TEMP 2 ( 1 
TEMP 2 C 1 
S 


IjIMNLAY)  = ADLDPS'UM f NLAYND^I ,1, J;IMNLAV) 
1 ; IMNLA Y ) = PQ t 1 ♦ 1 ; I MNLA V ) 

•*  < FDXYP  * TEMP2C t , 1 ;IMNLAY> > 


TEMPI  I 1 , 1 ; IMNLA Y> 
TEMP 2 1 1,1; IMNLA Y) 


TEMP 2 <1,1; IMNLA Y ) ♦ V < 1 . NLAVNO* 1 , 1 , d ; IMNL AY ) 
TEMP 2 t 1,1; IMNLAV) *U< 1 , NLAYND* 1 , I («J:  IMNLA Y> 


UM  .NLA YNB+ 1,1,  J;  IMNLA Y)  = 
S 

VC  1 .NLAYNB-M  . 1 , d; IMNLA Y)  = 
S 


UC  1 .NLAYNB-M  . 1 , J; IMNLA Y) 
DT^TEMP 1 (1,1 ; I MNLA Y) 

VC  1 . NLAYNB+1 , 1 ,d; IMNL A V ) 
DT* TEMP2C 1,1; IMNLA V) 


COMPUTATION  OF  THE  ENERGY  TERM 
FOR  THE  THERMODYNAMIC  EQUATION 


PDOT ( 1 , 1 ; IM  ) * PI T < 1 , K; IM) 


PDOT (1,2; IM  > = 
PDOTC 1 , 3 ; IMT2)  = 
PDOT ( 1 .5; IMT4)  = 
PDOT I 1 , 9 ; IM  ) = 


PDOT ( 1,1: IM) 
PDOTC 1,1; IMT2) 
PDOTC 1,1; IMT4) 
PDOTC 1.1; IM) 


THE  ABOVE  SCHEME 
DO  LOOP. 


IS  FASTER  FOR  9 LAYERS  THEN  THE  FOLLOWING 


V COMP 2 120 
VC0MP2  121 
VC0MP2  122 
VC0MP2  123 
VCOMP2  124 
VC0MP2  125 
VC0MP2  126 
VC0MP2  127 
VC0MP2  128 
VC0MP2  129 
VCCMP2  130 
VC0MP2  131 
VC0MP2  132 
V COMP 2 133 
VC0MP2  134 
VC0MP2  135 
VC0MP2  136 
VC0MP2  137 
VCOMP2  138 
VC0MP2  139 
VC0MP2  140 
VC0MP2  141 
VC0MP2  142 
VC0MP2  143 
VCOMP2  144 
VC0MP2  145 
VCOMP2  146 
VC0MP2  147 
VC0MP2  148 
VC0MP2  149 
VC0MP2  150 
VC0MP2  151 
VC0MP2  152 
VC0MP2  153 
V COMP 2 154 
VC0MP2  155 
VC0MP2  156 
VC0MP2  157 
VC0MP2  158 
V COMP 2 159 
VC0MP2  160 
VC0MP2  161 
VC0MP2  162 
VC0MP2  163 
VC0MP2  164 
VC0MP2  165 
VC0MP2  166 
VC0MP2  167 
VC0MP2  168 
VC0MP2  169 
V COMP 2 170 
VC0MP2  171 
V COMP 2 172 
VC0MP2  173 
VC0MP2  174 
VC0MP2  175 
VC0MP2  176 
VC0MP2  177 
VC0MP2  178 
VC0MP2  179 
V COMP 2 180 
VC0MP2  181 
VCOMP2  182 
VC0MP2  183 
VC0MP2  184 
VC0MP2  185 
VC0MP2  186 
VC0MP2  187 
VC0MP2  188 
VC0MP2  189 
VC0MP2  ISO 


O 

O 

S 


ro 


oo 
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JLJLu&l-l 


00382 

00383 

00384 

00385 


00386 


00387 

00388 

00388 

00390 

0039  1 

00392 


00393 

00394 

00395 

00396 

00397 

00398 

00399 


00400 
0040  1 

00402 

00403 

00404 


00405 

00406 

00407 

00408 

00409 


DO  5120  L - 2 . NLA  V 

PDOT I 1 , L ; IM  ) = PDOTfl  f!M)  VC0MP2  191 

5120  CONTINUE  huut  i i . i . iwi)  VC CMP 2 192 

C VCOMP 2 193 

PDOTI 1.1; IMNLAY)  = PDOT <1 . I ; IMNLAY ) urnMP?  112 

| * DVP  C d > ' JUf  1 .NLAYND* 1 , 1 . d: IMNLAY) * VC0-  P2  ill 

| x n„n,  ,,  B;*P?MI,1:IMNUAV)  - PX2 < 1 . 1 : IMNLAY » M V COMP  2 137 

| * DXP1  J)  MVI  1 .NLAYND^  I . 1 . d;JMNLAYC  VC0MP219B 

C S <Q . »PV  I ( 1 , 1 • IMNLAY)  - PV2U,  CIMNLAVll  » VC0MP2  ill 

TII.NLAYNB‘1.1.d; IMNLAY)  = T ( I , NLAYNB • 1 , I . J : IMNLAY J VCOMP2  20? 

c * DT * < TERMT t 1 . 1 ,K; IMNLAY ) ♦PDOT f I . 1 ; IMNLAY ) > VC0MP2  202 

C +»»»*  + *»»«*  + + ** *♦***. *««,**♦♦♦♦**.**„*  * V COMP 2 203 

*•*****-..♦♦***  VCOMP2  204 

g ::::  pressure  gradient  u term  ::::  S£i  §°i 

g * llll  vcomp!  III 

JiKS ! ! 1 ' 1 : IMNLAV 1 = TERBIUM 1 . I ,K  ; IMNLAY) *PX 1(1.1; IMNLAY!  vcortpf  ??n 

c TEMP  HI  . 1 ; IMNLAY)  » F I DTM  PHI  X M 1 . 1 : IMNLAY  I * TEMP  1 1 1 . 1 ; IMNLAY  1 ) VC0MP2  21? 

TEMpIm  • 1 :}mm.L5v!  ° J|P“w;<-».KiIMNt-AV>-PX2{  1.1;  IMNLAY*  VCOMP  2 213 

c TEMP21 1 . 1 ; IMNLAY)  = F 2DT* 1 PHI X2 < 1 . 1 ; IMNLA V ) * TEMP2 < 1 . 1 ; l MNLA Y > ) VCOMP 2 214 

c temp  1 (1.1; IMNLAY) = DYP ( d 1 ♦ I TEMP  1 < 1 . 1 ; I MNL A Y ) - TEMP2 1 I . 1 : I MNLA V > 1 VCOMP 2 111 

U f 1 , NL AVNE* 1 , 1 , d ; IMNLAY ) = U < I , NLA  VNBM  . 1 , d ; IMNLA  Y > - VCOMP2  !!s 

c 5 P0M.1;  IMNLAY)  ‘TEMPI  (1.1;  IMNLAY)  VC0MP2  219 

c VCOMP 2 220 

C ***•  ♦ VCOMP 2 221 

g :::;  pressure  gradient  v term  ::::  vKl  ill 

C ♦♦**.*^*A*******^,*.*^****.,*t#w**,^  VC0MP2  224 

C VCOMP 2 225 

! S TERWWf  l.H  ; IMNLA  Y>*P  VIM,  IjIMNLAYJ  VCOMP  2 227 

Q TEMP  1 f 1 , 1 ; IMNLAY)  r F 1DT*(PHI  VH  1,1;  IMNLA  V ) + TEMP  1 f I . f : I UINL  A V M VCOMP  2 228 

TEMP 2 1 1,1; IMNLAY  J = TERMW ( I , 1 „ K ; IMNLA Y ) *P V2 i 1 1*IMNLAV> 
c TEMP 2 ( 1 t 1 ; IMNLAY 1 = F20T *( PHI Y2 < 1 , 1 ; IMNLAY ) - * TEMP2»V l f \ ; I MMLA V > > VC0MP2  231 

C TEMP t < 1.  1; IMNLAY) > DXP < d )♦< TEMP  1 ( 1 . 1 ; IMNLAY > - TEMP2I I . 1 ; IMNLA Y) > VCOMP 2 III 

V ( 1 . NLAYNB-*  1 , 1 , J ; IMNLAY  ) = V ( I . NLA  YNB  * I . 1 . J ; IMNLA  V ) - VCOMP  I 23S 

c IF  (d.LT.dM)  RETURN  ^ ^ * IMNLAY ) * TEMP  1(1.  I ; IMNLAY  > VCOMP 2 111 

c *■♦•*****•...♦♦♦*♦,**«,**„****,,..*, #*  . VCOMP 2 238 

C * - 4,  * * VCOMP  2 239 

C * **  * POLAR  POUAT  THMc:  * * V COMP 2 240 

C POLAR  EQUATIONS  VCOMP 2 241 

C • ♦**♦*♦******♦**„***„, n.***,,^  ****  VCOMP 2 242' 

C ♦***•#•*•***•.*♦*....*♦  VCOMP 2 243 

20  CONTINUE  VCOMP 2 244 

M = 1 VCOMP 2 24S 

IF  {J.EQ.JM)  M = 2 VCOMP 2 246 

dEND  e dE{M>  VCOMP 2 247 

KE  =■  JCfJENO)  VC0MP2  248 

C VCOMP 2 249 

C VCOMP2  250 

C VCOMP 2 251 

g cor  ions  term  at  tHE  poles  ::::  SSI  III 

c VCOMP2  254 

C VC0MP2  255 

FX  = DT»FCORLS<  dEND ) *PP ( ND . M)  S|? 

DO  50  L- 1 . NLAY  VCOMP2  257 

LN8  = NLAVNB  * L VCOMP 2 258 

LND  » NLAYND  * L VCOMP 2 259 

UP(LNB.I.M)  = UP1LNB, J.M)  - F X *VP < LND , T ,M>  VCOMpf  II? 


«8 

SB 

§0 

ci 


5 


M 


C0MP2  9 


004  10 


00411 


004  12 

004  13 

004  14 
004  15 
00416 
004  17 

004  18 

00419 

00420 
0042  1 

00422 

00423 

00424 

00425 

00426 

00427 

00428 

00429 


C 

C 

C 

C 

C 

C 

C 

C 


C 


C 


VP  < LNB , 1 ,M)  = VP ( LNB f I > - F X * UP ( LND , 1 , M > 


► I*  gradient  AND  EMERY  CONVERSION  TERMS  FOR 

* * MOMENTUM, TEMPERATURE  EQUATIONS 


P VDS < I ; I M 1 * ( SGNP  < M)  * 


5 

6 


PHIHIjIH)  = 
3 * 
PHI  2 ( 1 ; IM)  = 
5 + 
PHI 1CS< 1 ; IM) 
PH I 1 SS ( 1 ; I M 1 
PHI 2CS ( 1 ; IM) 
PHI2SS* 1 ; IM) 


UP { LND, 1 ,M) »COSLON ( 1 ; I M ) 

+ VP(LND,  t tM) * SI NLON ( 1 ; IM  > ) * 

( 8 . ♦ P < 1 , ND , J P ( 1 , M ) ; I M ) - P ( 1 t ND , dP * 2 , M) ; IM) ) 


PHI ( t , LND, 1 tdP( 1 ,M) ; IM) 

TERMW1 1 , L , HE ) + P < 1 , ND , JP ( 1 , M) ;IM) 
PHI  ( 1 , LND  , 1 , JP(2,M>  ;1TA) 

TERMW ( 1 , L ,KE) *PI1 , ND , JP ( 2.M) ; IM) 

- COSLQN ( 1 ; IM ) * PH 1 1 t f ; I M ) 

= SI  NLON  ( 1 ; IM)  *PH1  I ( 1 ; IJIff) 

- COSLON ( 1 ; IM) *PHI2( 1 : IM) 

= SI NLON 1 f : IM) * PHI  2 M ; IM ) 


P VDS  ( T ) 
PHI 1CS( 1 ) 
PHI 1SS< 1 ) 
PHI 2CS ( 1 ) 
PHI 2SS< 1 ) 


QSSSUM < PVDS  < 1 ; IM) ) 
QSSSUM < PHI 1CS( 1 ; IM) ) 
QSSSUM  (PHI  ISSMiIMM 
QSSSUM  < PH I 2CS ( 1 : IM) ) 
Q8SSUM( PHI2SSI 1 ; IM) ) 


PDOTP  s PI T < 1 , KE ) ± 

TP (LNB, 1 , M ) = TP (LNB 
UP ( LNB , 1 tM)  = UP ( LNB 
& + PP ( NO , M ) 

VP (LNB, 1 fM)  « VP (LNB 
& * SGNP ( M J » P P ( ND , M ) 

SO  CONTINUE 

RETURN 


C0N5-PVDS( t ) 

.!.M)  J D T # TERMT  ( 1 , L , HE  ) •■PDOTP 
, ! ,M) 

♦ f -C0N3DT+PHI !CS( 1 1 ♦ C0N4DT • PHI 2CS ( 1 > i 
, 1 * M ) 

# (-C0N3DT*PHI 1SS( 1)  * C0N4DT * PH I 2SS ( 1 ) ) 


END 


STATEMENT  LABEL  MAP 
“ “LABEL DEFINED REFERENCES 


VC0UP2  262 
VC0MP2  263 
VC0MP2  264 
VC0MP2  265 
VC0MP2  266 
V COMP 2 267 
VC0MP2  26B 
V COMP 2 269 
VC CMP 2 270 
VCCMP2  271 
VCOMP2  272 
VCOMP2  273 
VC0MP2  274 
VC0MP2  275 
VC0MO2  276 
VC0MP2  277 
VC0MP2  278 
VCOMP2  279 
VC0WIP2  2B0 
VCOMP2  281 
VC0MP2  282 
V COMP 2 283 
VC0MP2  284 
VCOMP2  285 
VC0MP2  286 
VCGMP2  287 
VC0MP2  288 
VC0MP2  289 
V COMP 2 290 
VC0MP2  291 
VC0MP2  292 
V COMP 2 293 
VC0MP2  294 
VCCMP2  295 
V COMP 2 296 
VC0MP2  297 


ft  10 

370 

356 

1200 

351 

347 

1220 

371 

350 

20 

400 

313 

50 

427 

406 

5111 

3 19 

317 

5112 

333 

331 

51  13 

346 

344 

51  14 

374 

372 

5120 

384 

382 

910 

325 

321 

920 

34  1 

335 

930 

365 

362 

VARIABLE  MAP 


■ NAME 

BLOCK 

TYPE 

--CLASS-- 

ADATE 

CCNTRL 

CHAR  «*S 

SIMPLE 

ADLDP 

RDPARM 

REAL 

SIMPLE 

ADLDPS 

REAL 

SIMPLE 

ALBEDO 

QANDOT 

REAL 

ARRAY 

APHEL 

RCNTRL 

REAL 

SIMPLE 

AT  I ME 

CCNTRL 

CHARTS 

SIMPLE 

BETA 

RCNTRL 

REAL 

SIMPLE 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

CC 

CCNTRL 

CHAR  **8 

ARRAY 

CCO 

CCNTRL 

CHAR ♦ 8 

SIMPLE 

CCNTRL 

REAL 

UNKNOWN 

CCSP06 

CCNTRL 

CHAR  *8 

SIMPLE 

CCSP07 

CCNTRL 

CHAR  *8 

SIMPLE 

REFERENCES  A^ARGLIST. 


3 

16 

2 17 

31  1 

3)1/5 

375 

256 

269 

157 

4 

17 

158 

196 

14 

15 

2 

14 

2 

3 

13 

7 

20 

8 

21 

C-CTPL  OP  DO,  I “DATA  INIT.  REREAD.  S^STORE . 


5 6 7 8 9 10 


W=WR1 TE 


1 1 


ORIGINAL  PAGE  W 
OF  POOR  QUALITY 


CCSPOS 

CCNTRL 

CHAR'S 

SIMPLE 

9 

22 

C0MP2 

SUBROUTINE 

1 

CONt 

R DP ARM 

REAL 

SIMPLE 

218 

CON 1 OT 

RDPARM 

REAL 

SIMPLE 

219 

COM2 

RDPARM 

REAL 

SIMPLE 

220 

CON2DT 

RDPARM 

real 

SIMPLE 

221 

CON  3 

RDPARM 

REAL 

SIMPLE 

222 

CCN3DT 

RDPARM 

REAL 

SIMPLE 

223 

4 25 

426 

COM4 

RDPARM 

REAL 

SIMPLE 

224 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

225 

425 

426 

CONS 

RDPARM 

REAL 

SIMPLE 

226 

423 

CONV 

QMSAVE 

REAL 

ARRAY 

298 

COSO 

RCNTRL 

REAL 

SIMPLE 

159 

cost 

RDPARM 

REAL 

ARRAY 

227 

COSLON 

RDPARM 

REAL 

ARRAY 

228 

4 1 1 

4 14 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

CQS 

CCNTRL 

CHAR'S 

ARRAY 

12 

25 

CQU 

CCNTRL 

CHAR'S 

ARRAY 

13 

26 

DAYSPV 

RCNTRL 

REAL 

SIMPLE 

161 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

163 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

OLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

DSIGINV 

RDPARM 

REAL 

ARRAY 

252 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

379 

380 

DXP 

RDPARM 

REAL 

ARRAY 

230 

385 

397 

DXYP 

RDPARM 

REAL 

ARRAY 

231 

3 10 

DYP 

RDPARM 

REAL 

ARRAY 

232 

385 

391 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

F IDT 

RDPARM 

REAL 

SIMPLE 

234 

388 

394 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

390 

396 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

310 

405 

FDXYP 

REAL 

SIMPLE 

3 10/  S 

376 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

2 1 1 

214 

FX 

REAL 

SIMPLE 

405  /S 

409 

410 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

159 

GNU2 

RCNTRL 

REAL 

SIMPLE 

170 

GRAV 

RCNTRL 

REAL 

SIMPLE 

17  1 

GT 

OANDOT 

REAL 

ARRAY 

257 

270 

gv; 

QANDOT 

REAL 

ARRAY 

258 

271 

H 1 DT 

RDPARM 

REAL 

SIMPLE 

236 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

HEATt 

RCNTRL 

REAL 

SIMPLE 

193 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

I 

INTEGER 

SIMPLE 

354/S 

357 

358 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

29 

38 

39 

40 

49 

50 

51 

60 

61 

62 

7 ! 

72 

73 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDI ABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

IDPARM 

INTEGER 

UNKNOWN 

200 

201 

202 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

201 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

83 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

88 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

200 

IM 

ICNTRL 

INTEGER 

SIMPLE 

2£ 

315 

3 16 

337 

339 

343 

353 

354 

355 

4 16 


336  405  424 


Oo 

•n  ® 

“O  Q 

o =S 

g!s 

*2  3? 

C 5Si 

£ © 
n K-fl 


! 


359 

360 

361 

364 

30 

31 

32 

33 

4 1 

42 

43 

44 

52 

53 

54 

55 

63 

64 

65 

65 

74 

75 

76 

77 

203 

204 

205 

206 

3 18 

3 18 

323 

324 

343 

343 

345 

345 

356 

373 

373 

381 

367 

368  S 

34 

35 

36 

37 

45 

46 

47 

48 

56 

c r? 

52 

59 

67 

62 

69 

70 

78 

207 

203 

209 

210 

327 

329 

332 

332 

349 

349 

349 

352 

381 

393 

383 

411 

o 

§ 

ro 


IMD2 

ICNTRL 

IMD2M1 

IMJM 

IMD2P1 

ICNTRL 

IMJM 

I MM  1 

IMJM 

I MM2 

IMJM 

I MM3 

IMJM 

IMM4 

IMJM 

IMM5 

IMJM 

IMNLAY 

IMJM 

INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  UNKNOWN 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 


IMNLAY 1 

IMJM 

IMNLAY? 

IMJM 

IMNLAY3 

I MJM 

IMNLAY4 

IMJM 

IMNLAY5 

IMJM 

IMT2 

IMJM 

I'MT4 

I MJM 

INDEX 

IDPARM 

IOMEGA 

ICNTRL 

I P 1 

IP2 

IPREACC 

ICNTRL 

IPRECON 

ICNTRL 

IQS 

ICNTRL 

IOSDIAG 

OANDQT 

IQU 

ICNTRL 

IRADLW 

ICNTRL 

IRADLWG 

ICNTRL 

IRADSW 

ICNTRL 

IRADSWG 

ICNTRL 

IROD 

IDPARM 

IS1 

IS2 

I TAP  E 

LDPARM 

ITMAX 

ICNTRL 

ITMIN 

ICNTRL 

IUFLUX 

ICNTRL 

IVFLUX 

ICNTRL 

IXP 

I/S 

J 

INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  ARRAY 
INTEGER  UNKNOWN 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  UNKNOWN 
INTEGER  UNKNOWN 
INTEGER  ARRAY 

INTEGER  ARRAY 
INTEGER  ARRAY 
INTEGER  UNKNOWN 
INTEGER  UNKNOWN 
INTEGER  UNKNOWN 
INTEGER  UNKNOWN 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
LOGICAL  SIMPLE 
INTEGER  UNKNOWN 
INTEGER  UNKNOWN 
INTEGER  UNKNOWN 
INTEGER  UNKNOWN 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 


JC 

IDPARM 

JE 

IDPARM 

JEND 

JIC 

CCNTRL 

JM 

ICNTRL 

JMD2 

ICNTRL 

JMT2 

ICNTRL 

JNP 

ICNTRL 

J04 

ICNTRi 

JOS 

ICNTRL 

JOB 

CCNTRL 

JP 

IDPARM 

JP  1 

JP2 

JS1 

INTEGER  ARRAY 
INTEGER  ARRAY 
INTEGER  SIMPLE 
CHAR'S  SIMPLE 

INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
CHAR '8  SIMPLE 

INTEGER  ARRAY 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 


41  1 
4 14 
418 

29 
30  1 

30 
301 
30  1 
301 
301 
301 
301 
30  1 

376 
380 
386 
389 
393 
396 
30  1 
30  1 
301 
301 
301 
301 
30  1 
202 
91 

355/S 

356/C 

81 

82 


94 
87 
93 
86 

203 
353/S 
352/S 
212 

80 

79 

89 

90 

357/S 
359/  S 
1 

311 

337 

360 

385 

204 

205 
403/S 

5 

32 

33 

34 

35 

36 

37 


41  1 
414 
4 19 


316 

314 

330 

326 

342 

377 

380 

386 

390 

393 

397 

320 

334 


358 

368 

369 


41  I 
415 
420 


324 

314 

340 

326 

34  2 

377 

385 

386 
390 
393 
397 

320 

334 


360 

369/S 


41  1 
4 15 
421 


328 

314 

326 

342 

377 

385 

387 

390 

394 

397 

320 

334 


412 

415 

422 


330 

329 


412 

416 


338 

339 


412 

416 


340 


413 

416 


4 i; 
4 1* 


413 

417 


ra 

o 

3: 

ro 

414  H 
417  t>0 


343 

348 

348 

375 

375 

37G 

376 

378 

378 

378 

379 

379 

379 

380 

385 

385 

385 

3B5 

385 

385 

386 

387 

387 

388 

386 

322 

389 

389 

391 

391 

391 

392 

392 

392 

392 

394 

394 

395 

395 

395 

396 

396 

398 

398 

398 

398 

77 

79 

80 

81 

82 

89 

90 

2B1 

282 

78 

91 

92 

93 

94 

83 


84 


85 


86 


87 


83 


366 

366/S 

215 


358  /S 

360/S 

304 

312 

337 

375 

386 

312 

403 

404 
18 

309 


367/S 


361 

361 

305 

313 

338 

377 

386 

404 

405 
347 


364 

364 

305 

306 

307 

308 

309 

309 

310 

310 

320 

320 

323 

323 

324 

324 

334 

334 

338 

339 

339 

340 

340 

347 

347 

358 

378 

379 

379 

380 

380 

385 

385 

385 

39  1 

392 

392 

397 

398 

398 

399 

402 

o o 

-rt  70 

S 2* 

70  r* 

lO  *9 

c > 

> CD 
— VA 


33 


358 


399 


402 


6 

19 

206 

4 1 1 

41  1 

412 

4 1 2 

413 

307/S 

342 

r>4  3 

308/S 

309/S 

348 

349 

361 

364 

306/S 

342 

343 

413 


JS2 

INTEGER 

SIMPLE 

JSP 

ICNTRt. 

INTEGER 

SIMPLE 

« 

INTEGER 

SIMPLE 

KE 

INTEGER 

SIMPLE 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

KLIGW 

ICNTRt 

INTEGER 

SIMPLE 

KLIS5T 

ICNTRL 

INTEGER 

SIMPLE 

KS 

ICNTRL 

INTEGER 

SIMPLE 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

KU 

ICNTRL 

INTEGER 

SIMPLE 

L 

INTEGER 

SIMPLE 

LC 

LCNTRL 

LOGICAL 

ARRAY 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

INTEGER 

UNKNOWN 

LOIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

LDPARM 

INTEGER 

UNKNOWN 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

L FUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

LNB 

INTEGER 

SIMPLE 

LND 

INTEGER 

SIMPLE 

LOG8R 

ICNTRL 

INTEGER 

SIMPLE 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

LPRE ACC 

LCNTRL 

LOGICAL 

UNKNOWN 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

LOS 

LCNTRL 

LOGICAL 

ARRAY 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

LRADLW 

LCNTRL 

LOGICAL 

UNKNOWN 

LRAOLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

LRAOSW 

LCNTRL 

LOGICAL 

UNKNOWN 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

LVFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

M 

INTEGER 

SIMPLE 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

MJ 

IDPARM 

INTEGER 

ARRAY 

MLF 

ICNTRL 

INTEGER 

ARRAY 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

NB 

ICNTRL 

INTEGER 

SIMPLE 

ND 

ICNTRL 

INTEGER 

SIMPLE 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

NOPHY 

ICNTRL 

INTEGER 

SIMPLE 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

NO  SHF 

ICNTRL 

INTEGER 

SIMPLE 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

NMNJS 

ICNTRL 

INTEGER 

SIMPLE 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

NHM51 

IDPARM 

INTEGER 

SIMPLE 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

304/S 

33 

305  'S 

340 

349 

36  1 

364 

3 1 2 / S 

38  1 

386 

337 

389 

393 

404/5 

39 

40 

41 

42 
207 

43 

4 12 

413 

423 

424 

317/C 

318 

321  /C 

322 

323 

324 

33B 

339 

340 

34  4.  C 

345 

362/C 

3B3 

154 

97 

406/C 

155 

154 

407 

155 

408 

4 1 2 

4 13 

97 

1 OB 
123 

2 1 1 
1 15 
1 16 
1 14 
1 19 

98 

109 

151 

212 

143 

144 
142 
147 

99 

213 

1 00 

101 

102 

407/S 

409 

409 

4 10 

4 10 

424 

322/ S 

323 

323 

324 

324 

336/S 

339 
412 
44 
122 
1 12 
1 13 

340 

413 

150 

140 

141 

340 

363  /S 

264 

364 

108 

120 

110 
12  1 

1 1 1 
136 

1 1 2 

1 13 

1 14 

109 
125 
1 18 
124 
1 17 
! 1 1 
1 10 
120 
121 

122 

153 

146 

152 

145 

139 

138 

148 

149 

123 

124 

125 

137 

401  /S 

402/S 

403 

405 

409 

409 

41  1 

4 1 1 

4 1 1 

4 1 1 

4 12 

4 12 

4 25 

45 

46 

47 
208 

48 

49 

51 

52 

4 25 
303 

426 

426 

426 

426 

53 
4 12 

54 

55 
76 

56 

57 
31 

58 

59 

60 
62 

209 

61 

50 

302 

413 

343 

425 

343 

426 

349 

349 

63 

302 

303 

317 

32  T 

331 

395 


331  / C 

332 

335  *C 

336 

337 

363 

424 

364 

372  ■ C 

373 

382 

103 

104 

1 n5 

106 

107 

424 

425 

425 

4 26 

426 

337 

337 

225 

338 

339 

408/S 

409 

4 10 

4 1 1 

411 

1 15 

1 16 

1 1 7 

1 IS 

1 19 

409 

413 

410 
4 13 

410 

424 

410 

424 

411 

425 

361 

361 

405 

411 

411 

335  344  352  372  382  Q 

O 

3 

N5 

H* 

LO 
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NLA  YM 1 
NLAYNB 

NLAYND 

NLA  YP 1 

NLAYT2 

NLAYT3 

NLAYT4 

NLAYT5 

NLAYT6 

NLAYT7 

NMLEV 

NSDAY 

NSEQ 

NSTEP 

NYMD 

NYMDO 

NYMD  t 

NYMDE 

NZINIT 

OMEGA 2 

P 

PDOT 

PDOTP 

PHI 


PH1 1 

PHI  ICS 

PH1 1 SS 

PHI  2 

PHI2CS 

PHI2SS 

PHIM 

PHIP 

PHIS 

PHIX1 

PHI  X 2 

PHI  Y t 

PHIY2 

PI 

PI  180 
P 1 2 

PIMEAN 

PIT 

PKSTD 

PKTOP 

PLEV5 

PM 

PP 

PO 

PSMAX 
PSMIN 
PSTD 
P TOP 
PV 

PVDS 

PXt 

PX2 

PY1 

PY2 

PZERO 

QALT 

QANDQT 

QBEG 

QDAY 


ICNTRL 


ICNTRL 

IMJM 

IMJM 

IMJM 

IMJM 

IMJM 

IMJM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IOPARM 

ICNTRL 

ICNTRL 

RCNTRL 

OANDQT 

// 

OANDQT 


// 

// 

// 

// 

// 

// 

QMSAVE 

OPOLES 

QANDOT 

// 

// 

// 

// 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

QMSAVE 

RDPARM 

rdparm 

RCNTRL 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

REAL 

REAL 

REAL 

REAL 

REAL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 


ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIT.1PLE 

ARRAY 


406 

64 


303/S 

379 

379 

407 

302/S 

320 

320 

363 

375 

377 

66 
30  1 
301 
30  1 
30  ! 


380 

380 

386 

322 

334 

334 

378 

385 

385 

386 

392 

392 

336 

342 

342 

40B 

H3 

ro 

H* 

398  398  ^ 

348  348 


301 

301 

75 

66 

67 

69 

71 

73 
210 

72 

74 
172 
261 
4 13 
300 
423/S 
266 
337 
364 
300 
300 
300 
300 
300 
300 
295 
269 
254 
300 
300 
300 
300 

173 

174 

175 
177 
297 

238 

239 
191 


274 

3S1/S 

424 

279 

338 

364 

412/S 

414/S 

415/S 

413/S 

416/S 

4 17/S 


267 

320/S 

334/S 

342/S 

348/S 


3B  1 


343 

343 

349 

383/S 

383 

385 /S 

320 

320 

323 

338 

339 

339 

412 

413 

414 

4 15 

419/S 

419 

425 

420/S 

420 

426 

4 16 

4 17 

421  /S 

421 

425 

422/S 

422 

426 

349  361  361 

385  386 

323  324  324 

340  340  342 


411  411  412 

334  334  337 

342  348  348 


o o 


323/S  324/S  388 

337/S  338/S  339/S  340/S  390 

lit, S 396 


423 


SS 
o § 

o s 

tO 

C > 

> n 

r-  pi 


«5 


QMSAVE 

QPOLES 

// 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

QMSAVE 

// 

// 

// 

// 

// 

RCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

LOGICAL 

LOGICAL 


ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 


290 

284 

300 

328 

178 

179 
176 
ISO 
296 
300 
300 
300 
300 
300 
197 

98 
253 

99 
100 


405 

314 

328 

425 

314 

329 

426 

315 

329 

315 

330 

316 

330 

316 

376 

326 

392 

326 

39S 

327 

327 

411/S 

314/S 

326/S 

343/5 

349/S 

418/S 
3 15/S 
327/S 
345 /S 
361/5 

4 18 
316/S 
328/S 
345 
373  /S 

423 
318/S 
329  'S 
335 
373 

318 

330/S 

393 

385 

385 

332/S 

395 

387 

332 

385 

389 

1 26 

280  283 

127 

128 


QEfJD 

QMSAVE 

POUT 

QPHV 

QPOLES 

QPROG* 

QRSH 

QRSW 

OSD  I AG 

QSHF 

QUDIAG 

RADE 

RC 

RCO 

RCNTRL 


RDPARM 


RGAS 

RLAT 

RLATD 

ROCP 

ROCPDT 

ROCPP1 

RSD  2 ST 

SD 

SDAV 

SEASON 

SGNP 

SH 

SHM 

SHP 

SHS 

SIG 

sigh 

SIND 

SINL 

SINLON 

SMTH 

SN2FLG 

SOLS 

START 

T 

TEMPI 

TEMP  2 

TERMT 

TERMW 

THSTD 

THSTD2 

TM 

TP 

TS 

TSTO 

U 

UM 

UP 

V 

VER 

VM 

VP 

WSAVE 

XLABEL 


LCNTRL 

LCNTRL 

LCNTRL 

QANDQT 

LCNTRL 

LCNTRL 

QANDQT 

LCNTRL 

OANDOT 

RCNTRL 

RCNTRL 

RCNTRL 


RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

QMSAVE 

RCNTRL 

RCNTRL 

RDPARM 

QANDQT 

QMSAVE 

OPOLES 

QANDQT 

RDPARM 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

QANDQT 

LCNTRL 

RCNTRL 

LDPARM 

QANDQT 

// 

/' 

QMSAVE 

QMSAVE 

RDPARM 

RDPARM 

QMSAVE 

QPOLES 

QANDQT 

RCNTRL 

QANDQT 

QMSAVE 

QPOLES 

QANDQT 

CCNTRL 

QMSAVE 

QPOLES 

RDPARM 

CCNTRL 


LOGICAL 

REAL 

LOGICAL 

LOGICAL 

REAL 

REAL 

logical 

LOGICAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 


REAL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

real 

REAL 

REAL 

REAL 

CHAR*  8 

REAL 

REAL 

REAL 

CHARTS 


SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

UNKNOWN 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 


UNKNOWN 


SIMPLE 

a r<  $ay 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 


101 

290 

102 

103 
284 
253 
277 
107 
106 
280 

104 
283 
18! 
198 
156 
156 
167 
178 
189 
217 
228 


182 

240 

24  1 

183 

242 

243 

184 

298 

185 

186 

244 
265 
294 
288 
260 

25  1 

187 

188 

245 

246 
255 
105 

189 
2 13 
264 
300 
394 
200 
291 
2S9 

299 

247 

248 
293 
287 
259 

190 
262 

291 
2S5 
263 

10 

292 
286 

249 
1 1 


129 
291 

130 

131 
285 
267 
278 
135 
134 
282 

132 


292 

293 

294 

286 

287 

288 

268 

269 

270 

279 

295  296  297 

27?  272  273 


293  299 

274  27*  276 


199 

198 

157 

168 

179 

190 

218 

229 

240 

251 


199 

158 

169 

180 

191 

219 

230 

24  1 

25  2 


159 

170 

181 

192 

220 

231 

242 


160 

171 

182 

193 

221 

232 

243 


161 

172 

183 

194 

222 

233 

244 


162 

173 

184 

195 

223 

234 

245 


163 

174 

185 

196 

224 

235 

246 


164 

175 

186 

197 

225 

236 

2*7 


165 

176 

187 

226 

237 

248 


166 

177 

188 

227 

238 

249 


411  426 

278 


273 


31  1 
41  1 
268 
133 

415 

4 17 

216 

277 

377/S 

397/S 

375/S 

395/S 

3B6 

387 

386/  S 

379 

397 

376/S 

396/S 

424 

389 

386 
387/  S 

395 
376 

396 

38B/S 

377 

397 

388 

378/5 

391/S 

378 

391 

3QO 

392  393/S 

389  'S  390/S 

393 

395 

4 12 

413 

424/S 

272 

424 

275 

375 

378 

379  /S 

379 

385 

392/S 

392 

409/S 

276 

23 

409 

377 

4 10 
380  /S 

4 1 1 
380 

425/S 

385 

425 
398  /S 

398 

409 

410/S 

4 1 0 

4 1 1 

426 /S 

426 

o o 

**j  aj 

ge 

o § 

ZG  fS 

f 3 

C Pol 


3 


can 


394 

390 


24 


O 

O 


no 

N3 


'JJ 


C0MP2  16 


A.  -V: ' M' 


00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 
00011 
00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 


CDECK  VCOMP3 


SUBROUTINE  COMP 3 


******»******•»<*»»**«-  + +*»+**+**4 


PURPOSE 

MAflN  DRIVER  FOR  THE  MODEL  PHYSICS 

usage 

CALLED  FROM  GWSGCM 

INPUT/OUTPUT  FILES  USED 
NONE 

DESCRIPTION  OF  PARAMETERS 

J - INDEX  FOR  LATITUDE  BAND 

SUBPROGRAMS  NEEDED 
BTOLOG  - 
ZEIT 

CUMULO  - 
RADIOO  - 
C0MP35  - 


RECORD  OF  MODIFICATIONS 

7DATE7  7 PROGRAMMER 7 7DESCRI PTION  OF  MODIFICATIONS? 
22JUL83  JIM.PF  ADDED  DOCUMENTATION  + CHOICE  FOR  01/ 

26JUL83  LARRY. T ADDED  FACL  + FACLM1  INSIDE  180  LOOP 


U**?*lL!LZ*****!?*  **I  5MA  DATA  IW  C N A S*A  *-**G*S*F*C* 


SUBROUTINE  C0MP3  (J) 


CCOMDECK  VCNTRL 
C 

C CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /CCNTRL/  CCO 
COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  JIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  (10) 

COMMON  /CCNTRL/  COS  (30) 

COMMON  /CCNTRL/  CQU  (10) 


EQUIVALENCE 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTER*!* 

CHARACTERS 

CHARACTERS 

CHARACTER*8 

CHARACTERS 

CHARACTERS 

CHARACTERS 


( CCO  tCC< 1 ) ) 

CCO,  CC ( 200 ) 

ADATE 

ATIME 

JIC 

JOB 

CCSP06 
CCSP07 
. CCSP08 
VER 

XLABEL 

COS 

CQU 


INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 
COMMON" /ICNTRL/**ICo"C  


$VC00010 
■••SVC00020 
SVC00030 
SVC00040 
SVC00050 
SVCOOOGO 
SVC00070 
$VCOOOBO 
SVC00090 
SVCOO 100 
$VCO01 10 
SVC00120 
$VCOO 1 30 
SVCOO 140 
SVCOO 1 50 
SVCOO 1 60 
SVCOO I 70 
SVCOO 180 
SVCOO 1 90 
SVC00200 
svcooz to 
SVC0022>> 
SVC00230 
SVC00240 
SVC00250 
SVC002G0 
CSSVC00270 
SVC00280 
SVC00290 
* *$VC00300 
♦SVC00310 
**$VC00320 
SVC00330 
SVC00340 
SVC00350 
**SVC00360 
SVC00370 
SVC00380 
SVC00390 
SVC00400 
SVC00410 
SVC00420 
SVC00430 
SVC00440 
SVC00450 
SVC00460 
SVC00470 
SVC004Q0 
SVC00490 
SVC00500 
SVC00510 
SVC00520 
SVC00530 
SVC00540 
SVC00550 
SVC00S60 
SVC00570 
SVC00580 
SVC00590 
SVCOOSOO 
SVC00610 
SVC00620 
SVC00630 
SVC00640 
SVC00650 
SVC00660 
SVC00670 
SVC00680 
SVC00690 
SVC 00 7 00 
SVC00710 


c ^ 

S £ 

gm 

,3?  & 

e© 


i - , 


C0MP3  1 


v y I ^ ' 


n 

o 


00028 

COMMON 

/ICNTRL/ 

IM 

00029 

COMMON 

/ ICNTRL/ 

IMD2 

00030 

COMMON 

/ ICNTRL/ 

IMD2P1 

00031 

COMMON 

/ICNTRL/ 

NDRSW 

00032 

COMMON 

/ICNTRL/ 

JM 

00033 

COMMON 

/ICNTRL/ 

JMD2 

00034 

COMMON 

/ICNTRL/ 

JMT2 

00035 

COMMON 

/ICNTRL/ 

JNP 

00036 

COMMON 

/ICNTRL/ 

J04 

00037 

COMMON 

/ICNTRL/ 

J08 

00038 

COMMON 

/ICNTRL/ 

JSP 

00039 

COMMON 

/ICNTRL/ 

KLIALB 

00040 

COMMON 

/ICNTRL/ 

KLIGW 

00041 

COMMON 

/ICNTRL/ 

HLISST 

00042 

COMMON 

/ICNTRL/ 

KS 

00043 

COMMON 

/ICNTRL/ 

KU 

00044 

COMMON 

/ICNTRL/ 

L0G8R 

00045 

COMMON 

/ICNTRL/ 

MATIN 

00046 

COMMON 

/ICNTRL/ 

MATSNX 

00047 

COMMON 

/ICNTRL/ 

MATSUN 

00048 

COMMON 

/ICNTRL/ 

MLF  (12) 

00049 

COMMON 

/ICNTRL/ 

MROD 

00050 

COMMON 

/ICNTRL/ 

NKRSH 

00051 

COMMON 

/ICNTRL/ 

MSM 

00052 

COMMON 

/ICNTRL/ 

NB 

00053 

COMMON 

/ICNTRL/ 

ND 

00054 

COMMON 

/ICNTRL/ 

NDALT 

00055 

COMMON 

/ICNTRL/ 

NDAV 

00056 

COMMON 

/ICNTRL/ 

NDOUT 

00057 

COMMON 

/ICNTRL/ 

NDPHY 

00058 

COMMON 

/ICNTRL/ 

NDSHF 

00059 

COMMON 

/ICNTRL/ 

NDT 

00060 

COMMON 

/ICNTRL/ 

NHM5 

00061 

COMMON 

/ICNTRL/ 

NHMSE 

00062 

COMMON 

/ICNTRL/ 

NHMSO 

00063 

COMMON 

/ICNTRL/ 

NLA  Y 

00064 

COMMON 

/ICNTRL/ 

NLAYM1 

00065 

COMMON 

/ICNTRL/ 

NLA YP 1 

00066 

COMMON 

/ICNTRL/ 

NSDAY 

00067 

COMMON 

/ICNTRL/ 

NSEQ 

0006B 

COMMON 

/ICNTRL/ 

ICSP53 

00069 

COMMON 

/ICNTRL/ 

NSTEP 

00070 

COMMON 

/ICNTRL/ 

IBLKSIZ 

0007  1 

COMMON 

/ICNTRL/ 

NYMD 

00072 

COMMON 

/ICNTRL/ 

NYMDE 

00073 

COMMON 

/ICNTRL/ 

NYMDO 

00074 

COMMON 

/ICNTRL/ 

NZINIT 

00075 

COMPTON 

/ICNTRL/ 

NMLEV 

00076 

COMMON 

/ICNTRL/ 

NDHOG 

00077 

COMMON 

/ICNTRL/ 

IQS  (30) 

00078 

r* 

COMMON 

/ICNTRL/ 

IOU  (10) 

00079 

EQUIVALENCE 

( ITMIN 

, I QS  ( 

1 ) ) 

00080 

EQUIVALENCE 

( UMAX 

. I QS  ( 

2)  ) 

00081 

EQUIVALENCE 

(IPREACC 

• I QS  { 

3)  ) 

00082 

EQUIVALENCE 

(IPRECON 

. I QS  ( 

4)  ) 

00083 

EQUIVALENCE 

(INFLUX 

. IQS( 

5)  ) 

00084 

EQUIVALENCE 

(IEFLUX 

, I QS  ( 

6)  ) 

00085 

EQUIVALENCE 

(IFUSION 

, I QS  ( 

7)  ) 

00086 

EQUIVALENCE 

( IRADSWG 

. IQS( 

8 ) ) 

00087 

EQUIVALENCE 

( 1 RADLWG 

. IQS( 

9)  ) 

00088 

Q 

EQUIVALENCE 

( I I CLOUD 

, IQS< 10) ) 

00089 

EQUIVALENCE 

(IOMEGA 

, IQU( 

1 > ) 

00090 

EQUIVALENCE 

( ID1ABAT 

, I QU  < 

2)  ) 

00091 

EQUIVALENCE 

( IRADSW 

, I QU  ( 

3)  ) 

00092 

Q 

EQUIVALENCE 

( IRADLW 

* I QU  { 

4)  ) 

00093 

EQUIVALENCE 

<ICO,IC( 1 ) ) 

00094 

INTEGER 

ICO,  I C ( 200 ) 

SVC00720 
SVC00730 
SVC0074Q 
SVC00750 
SVC007BO 
SVC00770 
SVCOO70O 
SVC00790 
SVC00800 
SVC00810 
SVC00820 
SVC00830 
SVC00840 
SVC00850 
SVC00860 
SVC00870 
SVC00880 
SVC00890 
SVC00900 
SVC009 1 0 
SVC0092Q 
SVC00930 
SVC00940 
SVC00950 
SVC00960 
SVC0Q970 
$VC  009B0 
SVC00990 
SVCO 1000 
SVCO 10 10 
SVCO 1020 
SVC01030 
SVC01040 
SVCO 1 050 
SVCO 1 060 
SVCO  1 070 
SVCO 1080 
SVCO 1090 
SVCO 1100 
SVCO 1110 
SVCO 1 1 20 
$VC01 130 
SVCO 1 140 
$VC01 150 
$VCO 1 160 
SVC01 170 
SVCO 1 1 BO 
SVCO 1 190 
SVCO 1200 
SVCO 1210 
SVCO 1220 
SVCO 1230 
SVCO 1240 
SVCO 1250 
SVCO 1 260 
SVCO 1270 
SVCO 1280 
SVCO 1290 
SVCO 1300 
SVCO 1310 
SVCO 1320 
SVC01330 
SVCO 1340 
SVCO 1 350 
SVCO 1360 
SVCO 1370 
SVCO 1380 
SVCO 1 390 
SVCO 1400 
SVCO 1410 
SVCO 1 420 


►a 

u> 

K> 
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OF  POOR  QUALITY 


C 

LOGICAL  MODEL  PARAMETERS  SAVED  ON 

HISTORY  RECORD 

SVC01430 

C 

s - — a a 2 : 

SVCO 1440 

00095 

COMMON  /LCNTRL/ 

LCO 

$VCO 1 450 

00096 

COMMON  /LCNTRL/ 

QALT 

SVCO 1460 

00097 

COMMON  /LCNTRL/ 

QBEG 

SVCO 1470 

00098 

COMMON  /LCNTRL/ 

QOAY 

SVC01480 

00099 

COMMON  /LCNTRL/ 

QEND 

SVC01490 

ootoo 

COMMON  /LCNTRL/ 

QOUT 

SVC01500 

ooto  1 

COMMON  /LCNTRL/ 

QPHY 

SVC01510 

00  1 02 

COMMON  /LCNTRL/ 

QSHF 

$VCO 1520 

00103 

COMMON  /LCNTRL/ 

SN2FLG 

SVCO 1530 

00104 

COMMON  /LCNTRL/ 

QRSW 

SVCO 1540 

00105 

COMMON  /LCNTRL/ 

QRSH 

SVC 01550 

00106 

COMMON  /LCNTRL/ 

LQS { 30 ) 

SVC01560 

00107 

COMMON  /LCNTRL/ 

LQU( 10) 

SVCO 1570 

c 

SVC01580 

00108 

EQUIVALENCE 

(LTMIN 

t LQS  ( 

1 ) ) 

SVC01590 

00109 

EQUIVALENCE 

{ LTMA  X 

, LQS{ 

2)  ) 

SVC01600 

00110 

EQUIVALENCE 

{ LPREACC 

♦ LQS  ( 

3)  ) 

SVC01610 

00111 

EQUIVALENCE 

{ LPRECON 

,LQS< 

4)  ) 

SVC01620 

00  112 

EQUIVALENCE 

( LHFLUK 

« LQS  { 

5)  ) 

SVC 01630 

001  13 

EQUIVALENCE 

(LEFLUX 

, LQS  { 

6)  ) 

SVC01640 

001  14 

EQUIVALENCE 

(LFUSION 

( LQS  < 

7)  > 

SVCO 1650 

001  15 

EQUIVALENCE 

{ lradswg 

, LQ5  { 

8)  > 

SVC01660 

001  16 

EQUIVALENCE 

(LRADLWG 

, LQS ( 

9)  > 

SVCO 1670 

00117 

EQUIVALENCE 

(LICLOUD 

, LQS ( lO)  > 

SVC01680 

c 

SVCO 1690 

001  18 

EQUIVALENCE 

(LOMEGA 

, LQU  < 

1 > ) 

SVCO 1700 

00119 

EQUIVALENCE 

(LDIABAT 

i LQU  ( 

2)  ) 

SVCO 1710 

00120 

EQUIVALENCE 

(LRADSW 

, LQU  { 

3)  ) 

SVCO 1720 

00121 

EQUIVALENCE 

( LRADLW 

, LQU ( 

4)  ) 

SVCO 1730 

c 

SVCO 1740 

00122 

LOGICAL 

QALT 

SVCO 1750 

00123 

LOGICAL 

QBEG 

SVCO 1760 

00124 

LOGICAL 

QDAY 

SVCO 1770 

00125 

LOGICAL 

QEND 

SVC017BO 

00126 

LOGICAL 

QOUT 

SVCO 1790 

00127 

LOGICAL 

QPHY 

SVCO 1800 

00128 

LOGICAL 

QSHF 

SVCO 18  <0 

00129 

LOGICAL 

SN2FLG 

SVCO 1820 

00  130 

LOGICAL 

QRSW 

SVCO 1 830 

00  131 

LOGICAL 

QRSH 

SVCO 1 840 

c 

SVCO 1850 

00132 

LOGICAL 

LQS 

SVCO 1860 

00  133 

LOGICAL 

LQU 

SVCO 1870 

00134 

LOGICAL 

LTMIN 

SVC01880 

00135 

LOGICAL 

LTMAX 

SVCO 1890 

00136 

LOGICAL 

LPREACC 

SVCO 1900 

00137 

LOGICAL 

LPRECON 

SVCO 1910 

00138 

LOGICAL 

LHFLUX 

SVCO 1920 

00139 

LOGICAL 

LEFLUX 

SVCO 1930 

00140 

LOGICAL 

LFUSION 

SVCO 1940 

0014  1 

LOGICAL 

LRADSWG 

SVCO 1950 

00142 

LOGICAL 

LRADLWG 

SVCO 1960 

00143 

LOGICAL 

LICLOUD 

SVCO 1970 

c 

SVCO 1980 

00144 

LOGICAL 

LOMEGA 

SVCO 1 990 

00145 

LOGICAL 

LDIABAT 

SVC02000 

00146 

LOGICAL 

LRADSW 

SVC02010 

00147 

LOGICAL 

LRAOLW 

SVC02020 

c 

SVC02030 

00148 

EQUIVALENCE 

( LCO . LC ( 

1 ) ) 

SVC02040 

00149 

LOGICAL 

LCO,  LC ( 200 ) 

SVC02050 

c 

SVC02060 

c 

0 

REAL  MODEL  PARAMETERS  SAVED 

ON  HISTORY  RECORD 

SVCO 2070 

SVC  02080 

00  150 

COMMON  /RCNTRL/ 

RCO 

SVC02090 

00151 

COMMON  /RCNTRL/ 

APHEL 

SVC02100 

00152 

COMMON  /RCNTRL/ 

BETA 

SVC021 10 

00153 

COMMON  /RCNTRL/ 

COSD 

SVC02120 

00154 

COMMON  /RCNTRL/ 

CP 

SVC02130 

00  155 
001B6 

00  157 

00158 

00159 

001  GO 
00161 
00  162 

00163 

00164 

00165 
00  166 

00167 

00168 

00169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 
00  177 
00  178 

00179 

00180 
00181 
00182 

00183 

00184 

00185 
00  186 

00187 

00188 

00189 

00190 

00191 

00192 

00193 


00194 

00195 

00196 

00197 

00198 

00199 
0C200 
00201 
00202 

00203 

00204 


00205 

00206 
00207 

00206 

00209 

00210 


00211 

00212 

00213 

00214 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 


DAYSPV 

DEC 

DECMAX 

01  ST 

DLAT 

DLON 

OT 

ECCN 

GNU  1 

GNU2 

GRAV 

0MEGA2 

PI 

PI  180 

P 1 2 

PSTD 

PIMEAN 

PSMAX 

PSMIN 

PTOP 

RADE 

RGAS 

ROCP 

RSDIST 

SOAY 

SEASON 

SIGE 

SIND 

SOLS 

TSTD 

PLEVS 

HEATW 

HEATI 

EPS 

EPSPAC 

CALTOd 

PZERO 


(26) 


(25) 


C 

C 

C 


EQUIVALENCE 

REAL 


( RCO ♦ RC { 1 ) ) 
RCO  > RC ( 200 ) 


integer  MODEL  CONSTANTS 


C 

C 

C 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/IDPARM/ 

/IOPARM/ 

/IDPARM/ 

/IDPARM/ 

/IDPARM/ 

/IDPARM/ 

/IDPARM/ 

/IDPARM/ 

/IDPARM/ 

/IDPARM/ 

/IDPARM/ 


I JUMP 

I DSP 02 

INDEX 

I ROD 

dC 

dE 

JP 

KSTEP 

Md 

NHM51 

WYMD1 


LOGICAL  MODEL  CONSTANTS 

COMMON  /LDPARM/ ~F I LTER 
COMMON  /LDPARM/  I TAPE 
COMMON  /LDPARM/  START 


(46) 

(72) 

(46) 

(2) 

(2,2) 

<4G) 


(46) 


C 

C 

C 


LOGICAL 

LOGICAL 

LOGICAL 


FILTER 
I TAPE 
START 


REAL  MODEL  CONSTANTS 

COMMON  /RDPARM/  ADLDP 
COMMON  /RDPARM/  CONI 
COMMON  /RDPARM/  CON IDT 
COMMON  /RDPARM/  C0N2 


SVC02140 

SVC02150 

$VC02  1 60 

SVC02170 

SVC021B0 

SVC02190 

SVC02200 

SVC02210 

SVC02220 

SVC 02 230 

SVC02240 

SVC02250 

SVC02260 

SVC02270 

SVC02280 

SVCO2290 

SVCO2300 

SVC02310 

SVC02320 

SVC02330 

SVC02340 

SVC02350 

SVC02360 

SVC02370 

SVC0238O 

SVC02390 

SVC02400 

SVC02410 

SVC02420 

SVC02430 

SVC02440 

SVC02450 

SVC02460 

SVC02470 

SVC02480 

SVC02490 

SVC02S00 

SVC02510 

SVC02520 

SVC02530 

SVC02540 

SVC02550 

SVC02560 

SVQ02570 

SVC02580 

SVC02590 

SVC02600 

SVC02610 

SVC02620 

SVC02G30 

SVC02640 

SVC02650 

SVC02660 

SVC02670 

SVC02680 

SVC02690 

SVC02700 

SVC02710 

SVC02720 

SVC02730 

SVC02740 

SVC02750 

SVC02760 

SVC02770 

SVC02780 

SVC02790 

SVC02800 

SVC02810 

SVC02820 

SVC02B30 

SVC02840 


O 

o 

S 


*X} 


4S 


ORIGINAL  PAQE  W 
OF  POOR  QUALITY 


00215  COMMON  /RDPARM/  C0N2DT 

00216  COMMON  /RDPARM/  C0N3 

00217  COMMON  /RDPARM/  C0N3DT 

00218  COMMON  /RDPARM/  C0N4 

00219  COMMON  /RDPARM/  C0N4DT 

00220  COMMON  /RDPARM/  C0N5 

00221  COMMON  /RDPARM/  COSL  (46) 

00222  COMMON  /RDPARM/  C05L0N  (72) 

00223  COMMON  /RDPARM/  CPD2 

00224  COMMON  /RDPARM/  DXP  (46) 

00225  COMMON  /RDPARM/  DXYP  (46) 

00226  COMMON  /RDPARM/  DYP  (46) 

00227  COMMON  /RDPARM/  FCORLS  (46) 

00228  COMMON  /RDPARM/  F1DT 

00229  COMMON  /RDPARM/  F2DT 

00230  COMMON  /RDPARM/  H IDT 

00231  COMMON  /RDPARM/  H2DT 

00232  COMMON  /RDPARM/  PKSTD 

00233  COMMON  /RDPARM/  PKTOP 

00234  COMMON  /RDPARM/  RLAT  (46) 

00235  COMMON  /RDPARM/  RLATD  (46) 

00236  COMMON  /RDPARM/  ROCPDT 

00237  COMMON  /RDPARM/  R0CPP1 

00238  COMMON  /RDPARM/  5GNP  (2) 

00239  COMMON  /RDPARM/  SINL  (46) 

00240  COMMON  /RDPARM/  SINLON  (72) 

00241  COMMON  /RDPARM/  THSTD 

00242  COMMON  /RDPARM/  THSTD2 

00243  COMMON  /RDPARM/  WSAVE  (159) 

00244  COMMON  /RDPARM/  DSXG  (9) 

00245  COMMON  /RDPARM/  SIG  (9) 

00246  COMMON  /RDPARM/  DSIGINV  (9) 

C 

CCOMDECK  VQANDQT 
C 

C COMOECK  VQANDQT  RESOLUTION  VALUES 


IM 

NLA  Y 
JM+1 
NLAY* 1 1 
IM*NLAY*1  1 
UM/2+1 


-72 
= 9 
= 46 
= 99 
-71  28 
= 23 


GLOBAL  MODEL  PROGNOSTIC  FIELDS  (NEEDED  IN  COMPO) 


00248 

00249 

00250 

00251 

00252 

00253 

00254 

00255 

00256 
0Q257 

00258 

00259 

00260 

00261 

00262 

00263 

00264 

00265 

00266 
00267 


COMMON 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


/QANDQT/  QPROG (72,9, 11,46) 

PHIS  (7128,1) 

SMTH  (7128,23) 

ALBEDO  (7128,1) 

GT  (7128,1) 

GW  (7128,1) 

TS  (7128,1) 

SHS  (7128,1) 

P (72,99,1) 

U (72,9,11,1) 

V (72,9,11,1) 

T (72,9,11,1) 

SH  (72,9,11,1) 

PHI  (72,9,11,1) 

(QPROGd,  1,1,1), PHIS  (1,1)) 
(QPROGd.  2, 1,1),  SMTH  (1,1)) 
{ QPROG ( 1 , 3,1,1) , ALBEDO ( 1,1)) 
(QPROGd  , 4,  1 , 1 > ,GT  (1  , 1 ) ) 


(QPROGd  , 4,  | , 1 ) ,GT  (1  , 1 ) ) 
( QPROG ( 1 , 5,1,1), GW  ( 1 , 1 ) > 
( QPROG ( 1 , 6,1,1), TS  (1,1)) 

(QPROGd,  7, 1,1),  SHS  (1,1)) 


SVC02860 

SVC02860 

SVC02870 

SVC02880 

SVC02890 

SVC02900 

$VC029 1 0 

9VC02920 

SVC02930 

SVC02940 

SVC02950 

SVC02960 

SVC02970 

SVC02980 

SVC02990 

SVC03000 

SVC03010 

SVCO3O20 

$VC03030 

SVC03040 

SVC03050 

SVC03060 

SVC03070 

$VC03080 

SVC03090 

SVC03100 

SVC031 10 

SVC03120 

SVC03130 

SVC03140 

SVC03150 

$VC03 1 60 

SVC03170 

SVC03180 

SVC03190 

SVC03200 

SVC03210 

$VC03220 

SVC03230 

SVC03240 

SVC03250 

SVC03260 

SVC03270 

SVC03280 

3VC03290 

SVC03300 

SVC033 1 0 

$VC03320 

SVC03330 

SVC03340 

SVC03350 

SVC03360 

SVC03370 

SVC03380 

SVC03390 

SVC03400 

$VC034 1 0 

SVC03420 

SVC03430 

$VC03440 

$VC03450 

SVC03460 

SVC03470 

SVC03480 

SVC03490 

SVC03500 

SVC03510 

SVC03520 

SVC03530 

$VC03540 

SVC03550 


§§ 


C0MP3  5 


00269 

00270 

00271 

00272 

00273 


00274 

00275 

00276 


00278 

00279 

00280 
00281 
00202 

00283 

00284 

00285 

00286 

00287 

00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 

00310 
0031  1 

00312 

00313 
003  1 4 

00315 

00316 

00317 

00318 
0C319 


00320 

00321 

00322 

00323 

00324 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


{ QPROG ( 1 , 

(QPROG! 1 , 1 
1 QPROG ( 1 , 1 
(QPROG! 1 , 1 
( QPROG ( 1 1 1 
( QPROG ( t , 1 


8,  1 . 1 ) , P 

. 2,  1 ) ,U 

( t 

. 4,  1 ) .V 

< 1 

. 6.  1)  ,T 

( 1 

. 8,1), SH 

(1 

i 1 , 1 f t > > 


tO,  t > ,PHI ( 1 , 


C = = = = = = = = ^ = = = = IN  COMPO) 


COMMON 

DIMENSION 

EQUIVALENCE 

COMMON 


/QANDQT / QSDIAG1 72 
I QSDX AG (72 


(QSDIAG, IQ5DIAG)  ’ 
/QANDQT/  QUO I AG (72,9,  5,46) 


, 15,46) 
i 15,46) 


CCOMDECK  VCNTRLP 

q PHYSICS  PARAMETERS  AND  CONSTANTS 

COMMON  /CNTRLP/  CDFR  =="“=~ 

COMMON  /CNTRLP/  CDXL 
COMMON  /CNTRLP/  CDXO 
COMMON  /CNTRLP/  CLH 
COMMON  /CNTRLP/  COE  f9) 

COMMON  /CNTRLP/  COEF 
COMMON  /CNTRLP/  COEFS 

22KM2E  ^CN^R*-P/  COSROT 
COMMON  /CNTRLP/  CPP 
COMMON  /CNTRLP/  CTXD 
22MK2K  /CNTRLP/  CUMDAY 
COMMON  /CNTRLP/  CUMRAT 
COMMON  /CNTRLP/  CIO 
COMMON  /CNTRLP/  Cl  00 
COMMON  /CNTRLP/  C40 
COMMON  /CNTRLP/  DELTA 
COMMON  /CNTRLP/  DTC3 
COMMON  /CNTRLP/  DTOUT 
COMMON  /CNTRLP/  ED 
C2MM°N  /CNTRLP/  EDNM 
COMMON  /CNTRLP/  FCOEF 
COMMON  /CNTRLP/  FMU 
COMMON  /CNTRLP/  FWET 

22HK2U*  'CNTRLP/  GAMFAC 
COMMON  /CNTRLP/  GTOpO 
COMMON  /CNTRLP/  HICE 
COMPTON  /CNTRLP/  NDTC3 
COMMON  /CNTRLP/  NFLW 
COMMON  /CNTRLP/  PJM 
COMMON  /CNTRLP/  QHOG 
gOMWON  /CNTRLP/  SHLTOP 
COMMON  /CNTRLP/  SINRDT 
ggJJMON  /CNTRLP/  SNOWN 
COMMON  /CNTRLP/  SNOWS 
COMMON  /CNTRLP/  STBO 
COMMON  /CNTRLP/  STERPt 
COMMON  /CNTRLP/  STERP2 
COMMON  /CNTRLP/  TICE 
COMMON  /CNTRLP/  TLTOP 
COMMON  /CNTRLP/  XDAY 
COMMON  /CNTRLP/  ZLNCO 

c logical  qhog 

CCOMDECK  VRADCOM 

c * * * 

C RADIATION  AND  SOURCE  TERM  FIELDS 

COMMON  /RADCOM/  AS  72  9)  rf/75  in* 

COMMON  /RADCOM/  PL  72  9)  PlI  7?‘  S 
COMMON  /RADCOM/  PLK (729)  PLKP??n  * 
COMMON  /RADCOM/  TL(72  S?  1 Lt 

COMMON  /RADCOM/  TG  ?!)  TH(72  9)  * ^ 


SVC03560 

SVC03570 

SVC03580 

$VC03590 

SVC03600 

SVC036  I 0 

SVC03620 

SVC03620 

SVC03640 

SVC03650 

SVC03660 

SVC03670 

SVC03680 

SVC03690 

SVC03700 

SVC03710 

$VC03720 

SVC03730 

SVC03740 

SVC03750 

SVC03760 

SVC03770 

SVC03780 

SVC03790 

SVC03800 

SVC03810 

SVC03B20 

SVCD3830 

$VC03B40 

SVC03850 

SVC03860 

SVC03870 

$VC03BS0 

SVC03890 

SVC03900 

SVC03910 

$VC03920 

SVC03930 

SVC03940 

SVC03950 

SVC03960 

SVC03970 

SVC03980 

SVC03990 

SVC04000 

SVC04010 

SVC04020 

$VC04030 

SVC04040 

SVC04050 

SVC04060 

SVC04070 

SVC04080 

SVC04090 

5VC04 100 

SVC041 10 

$VC04 1 20 

SVC04130 

SVC04140 

$VC04 1 50 

SVC04 1 60 

SVC04170 

$VC04180 

SVC04190 

SVC04200 

SVC042 1 0 

SVC04220 

$VC04230 

SVC04240 

$VC04250 

SVC04260 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


"MOL 


h 

% 


00325 

COMMON 

/RADCOM/ 

00326 

COMMON 

/RADCOM/ 

00327 

COMMON 

/RADCQM/ 

00328 

common 

/RADCOM/ 

00329 

COMMON 

/RADCOM/ 

00330 

COMMON 

/RADCOM/ 

00331 

COMMON 

/RADCOM/ 

00332 

COMMON 

/RADCOM/ 

00333 

COMMON 

/RADCOM/ 

00334 

COMMON 

/RADCOM/ 

00335 

COMMON 

/RADCOM/ 

00336 

COMMON 

/RADCOM/ 

00337 

COMMON 

/RADCOM/ 

00338 

COMMON 

/RADCOM/ 

00339 

COMMON 

/RADCOM/ 

00340 

COMMON 

/RADCOM/ 

00341 

COMMON 

/RADCOM/ 

00342 

COMMON 

/RADCOM/ 

00343 

COMMON 

/RADCOM/ 

00344 

COMMON 

/RADCOM/ 

00345 

COMMON 

/RADCOM/ 

00346 

COMMON 

/RADCOM/ 

00347 

COMMON 

/RADCOM/ 

00348 

COMMON 

/RADCOM/ 

00349 

COMMON 

/RADCOM/ 

00350 

COMMON 

/RADCOM/ 

0035  1 

LOGICAL 

SHLE ( 72 , 10) 
CLOUD (72 , 


SSSE (72, 10) 
HHE ( 72 , 10) 

CVQ (72,9) 


12) 


SWI L ( 72 , 9 ) 
■TALE < 72  4 10) 


STN<9> 


OL JUL (19),  OLOCT119) 


ICE ( 72 ) 


00352 

00353 

00354 

00355 


LAND,  OCEAN,  ICE,  SNOW,  MIXWI,  FROST 

CCOMDECK  VPCON 
C * * * 

C PRECIPITATION  FIELDS  FROM  CUMULUS  CONVECTION 


COMMON 

COMMON 

COMMON 

COMMON 


PCON 

PCON 

PCON 

PCON 


PCMI D ( 72 ) 
PCPEN ( 72 ) 
PCLOW ( 72 ) 
PM0IST172) 


CCOMDECK  VDC0MP3 
C * * * 

C DYNAMIC  SPACE 


► 

00356 

COMMON 

/DCOMP3/ 

COLMR (72) 

00357 

COMMON 

/DC0MP3/ 

Z ( 7 2 ) 

j 

00358 

COMMON 

/DC0MP3/ 

US ( 72  > 

Q0359 

COMMON 

/DC0MP3/ 

VS { 72 ) 

00360 

COMMON 

/DCOMP3/ 

WMAGS ( 72 ) 

00361 

COMMON 

/DC0MP3/ 

WMAG ( 72 ) 

l 

00362 

COMMON 

/DC0MP3/ 

CD (72) 

00363 

COMMON 

/DC0MP3/ 

DTS172) 

i 

00364 

COMMON 

/DC0MP3/ 

DRAW (72) 

i 

00365 

COMMON 

/DC0MP3/ 

WMAGC ( 72 ) 

!■*»! 

00366 

COMMON 

/DC0MP3/ 

EDV (72) 

00367 

COMMON 

/DC0MP3/ 

EVE( 72) 

j.  • 

j 00368 

COMMON 

/DC0MP3/ 

EVACO( 72) 

00369 

COMMON 

/DC0MP3/ 

RHOS( 72) 

00370 

COMMON 

/DC0MP3/ 

DSHS < 72 ) 

.y  : 

00371 

COMMON 

/DCOMP3/FCOEFI (72) 

00372 

COMMON 

/DCOMP3/ 

UUP ( 72 ) 

* . 

00373 

COMMON 

/DC0MP3/ 

UDN( 72) 

; 

00374 

COMMON 

/DC0MP3/ 

VUP<72> 

i*l 

00375 

COMMON 

/DC0MP3/ 

VDN ( 72 ) 

00376 

COMMON 

/DC0MP3/ 

TUP (72) 

. | 

00377 

COMMON 

/DC0MP3/ 

TDN ( 72 ) 

00378 

COMMON 

/DC0MP3/PREC I P ( 72 ) 

i 

00379 

COMMON 

/DC0MP3/ 

PS ( 72 ) 

■■  i 

00380 

COMMON 

/DC0MP3/ 

PSK ( 72 ) 

00381 

COMMON 

/DC0MP3/SHSATS ( 72 ) 

1:  .'j 

00382 

COMMON 

/DC0MP3/ 

RHS ( 72 ) 

!■  ■ | 

00383 

COMMON 

/DC0MP3/ 

THG ( 72) 

00384 

COMMON 

/DC0MP3/ 

GAMC ( 72 ) 

* 

00385 

COMMON 

/DC0MP3/ 

TUTS ( 72 ) 

: 1 

00386 

COMMON 

/DC0MP3/ 

DU{ 72) 

i 1 

00387 

COMMON 

/D COMP 3/ 

DV ( 72 ) 

SVC04270 

SVC04280 

SVC04290 

SVC04300 

5VC04310 

SVC04320 

SVC04330 

SVC04340 

SVC04350 

SVC04360 

SVC04370 

SVC043B0 

$VC04390 

$VC04400 

SVC044 1 0 

$VC04420 

SVC04430 

$VC04440 

$VC04450 

SVC04460 

SVC04470 

SVC04480 

SVC04490 

SVC04500 

SVC045I0 

SVC04620 

SVC04530 

SVC04540 

$VC04S50 

SVC04S60 

SVC04570 

$VC04580 

$VC04590 

SVC04600 

SVC04610 

$VC04620 

SVC04630 

$VC04S40 

SVC04650 

SVC04660 

SVC04670 

SVC046S0 

SVCOAEBO 

SVC04700 

SVC04710 

SVCG4720 

$VC04730 

SVC04740 

SVC0475O 

$VC04760 

$VC04770 

$VC04780 

$VC04790 

SVC04800 

$VC04B10 

SVC04820 

SVC04830 

$VC0484O 

SVC04SBO 

SVC048S0 

SVC04870 

SVC04880 

SVC04890 

$VC04900 

SVC04910 

SVC04920 

9VC04930 

$VC04940 

SVC04950 

SVC04960 

SVC04970 


C0MP3  7 


00388 

00389 

00390 
0033 1 
00392 


00393 

00394 


00395 

00396 


00397 


0039Q 

00399 

00400 
0040  1 


00402 

00403 

00404 

00405 

00406 

00407 

00408 

00409 

00410 
0041  1 

00412 

00413 

00414 
004  1 S 


00416 

00417 

00418 

00419 


COMMON  /DC0MP3/  DUDV(72> 

COMMON  /DC0MP3/  AAA (72) 

COMMON  /DC0MP3/  BBB(72> 

COMMON  /DC0MP3/  CCC(72) 

COMMON  /DCOMP3/  EVAL<72> 

CCOMDECK  VBCOMP3 
C * * * 

C BIT„ VARIABLES  FOR  C0MP3  SUBROUTINE 

BIT  WDIRTf72i ' SN0WV(72,<  *0V(72),  FROSTY ( 72 ) 

c 

CCOMDECK  VBITS 

„ VihwnuH  f iSWl'li  BI™AX,72) 

c 

c™— ******* .....  ** 

CCOMDECK  VBEGDEB 
C DEBUG 
10000  CONTINUE 


IMT2  = IM*  2 
IMNLAY  s:  IM*NLAY 
IMNP3  = IM* ( NLAY+3 ) 
c AGRAV  = 1 . /GRAV 

C ^^r*^***,*,,*,ak3*,S*e,*l*^rl,t**t*,**1,C’*e^t*5*r,*,*r*#:***,>l,^:*,^*^’**1*,: 

c tilt  SURFACE  SPECIFICATION  tilt 

C ************** **************** ******t ** 
c 

c IF<  RLAT(J).GE. SHOWN  .OR.  RL AT < J >. LE . SNOWS  ) §ST7§  » BM' 

I CY ( 1 ; IM ) = GW(1  il-IM)  nc  * re 

WM 1 **«■  D*hmw- 

FROSTv! i • tm|  " DIRTJIjIM)  .AND 

- FROSTY(I.IM)  = OIRT ( 1 ; IM)  .AND 


gA|-{-  giOJ-Sg  < water  .OCEAN,  IM.t) 
CALL  BfOLOG  (SNOWY  .SNOW  IM  | 
CALL  BTOLOG  (ICY  » ICE  IM  11 

CALL  BTOLOG  (FROSTY  , FROST  IM  j 1 ) 


BIT72 { 1 ; IM) 

■NOT. SNOWY { 1 ; IM) 

(GT< 1 .LE.TICE) 


WHERE ( .NOT. WATER (1 ;IM)  ) Z(1;IM)  = PHI S( 1 , i) ; IM>  *AGRAV 


c tilt *******  ******  ************ *********** 
c tilt  VARIABLE  INITIALIZATION  lilt 

C ***************  *************** 

V 

T,  n s P(  1 .NB,U;  IM) 

swhf  1 ’ 1 i “ _t<  1 * t .NB,  J;  IMNLAY) 

„ cloud! ! SH(1,1.NB.J;IMNLAV) 
c 

c *****  ********  .****...**»*.*** . ********** 

3 ....  COMPUTE  PRESSURES  AT  MID-  ZZZZ 
: lilt  Am  EDGE*  levels  *.** 

••**»******»*»*****»»t****t,»»*»»t,lt^ttl'l* 


5VC04980 
SVC04990 
SVC05000 
SVC050  \0 
SVC05020 
SVC05030 
SVC05040 
SVC05050 
SVC05060 
SVC05070 
SVC05080 
SVC05090 
SVC05 I 00 
SVC021 10 
SVC05120 
$VC05 1 30 
$VC05140 
****$VC05150 
SVC05160 
SVC05170 
SVC05180 
SVC05190 
SVC05200 
10 

SVC05220 
SVC 05 230 
SVC05240 
SVCO5250 
SVC05260 
SVC05270 
SVC05280 
SVC05290 
SVC05300 
SVC05310 
SVC05320 
SVC05330 
SVC05340 
SVC05350 
SVC05360 
SVC05370 
SVC05380 
SVC05390 
SVC05400 
$VC054 10 
SVC05420 
SVC05430 
SVC05440 
SVC05450 
SVC05460 
SVC05470 
SVC054S0 
SVC05490 
SVC05500 
SVC05510 
SVC05520 
SVC05530 
SVC05540 
SVC05550 
SVC05560 
SVC05570 
SVC05580 
SVC05590 
SVC05600 
SVC05610 
SVC05620 
SVC05S30 
SVC05640 
SVC05650 
SVC05660 
SVC05670 
SVC05680 


C5 

O 

s 

U> 

Oo 


o o 
■«  2 

O 2 
O % 

vo  r“ 

O •v 
c g 
7s 

r*  pa 

3 reft 

4«a 


00420 
0042  1 

00422 

00423 

00424 


00426 


00426 

00427 

00428 


00429 

00430 

00431 

00432 

00433 

00434 

00435 


00436 

00437 

00438 

00439 

00440 

00441 

00442 

00443 

00444 

00445 

00446 

00447 

00448 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


00  30  L = 1 , NLA Y 

pfH  !\Li?2!l  = StG<L ) +SP  ( 1 ; IM)  ♦ PTOP 
30  CONTINUE  = SIGE<L>*SP(1 ; IM)  + PTOP 
PLE  < t , NLA VP  1 ; IM)  = SPftjIM)  + PTOP 

I!!!********************’******'********** 


♦ * * * 

till  compute  p»*k  at  mid  levels 


PLK ( 1 , t j IMNLA Y ) = VEXPBVKC  PL ( 1 , t : IMNLAV ) . IMNLAV ; PLK (I , 


*** **************************** »»**** 
till  compute  surface  winds  tilt 


i ; IMNLAV > 


USHjIM) 


j |T|RP1*U(1,NLAV  .NB.drIM) 
I?I5£?*U<1 -NLAVM1 .NB.jjlM) 
s - 7 |TERP1»V< 1 ,MLAV  .NB.djIM) 

WMAGS(I-IM)  - u?f?  ?.*,Y{,anlavm,’nb<  j:im> 
HMftbSU.IH)  - US(  1 ; IM)  **2  + VS(1;1M)»*2 


VSf ) j IM) 




****  ground  temperature  and  wetness  **** 

**.*.*,*.****,  *»*****♦». **...*»,******nn 


B I T72 ( 1 : IM> 
WHERE ( BZT72Cl|xS)  ) 


WETMjXM)  = |,o 

= GWU.JsZM)  . LT  . 1 , E-40 

GW{ 1 , J ; I M } a 0 . 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


«SM  •IB  r5-TKHIi!»!:r:i!J:i!!Si  ■ ™ 

TG( 1 ; IM)  C GT( 1 t J; IM) 

tin********************************************** 

....  ---;ES;-;™»|;r.«o;oJUS,„eN,  :::: 


**** 

♦ iff  ** 

* * ** 
* + * * 
**** 
♦ **  * 


TEMPERATURE 
POTENTIAL  TEMPERATURE 
MOISTURE 

momentum 


**  ★* 
**  * * 
* + * * 
* * * * 
* **  * 


DO  40  N=1 ,3 

TH{ 1,1; IM)  = TL(t.1;IM)/PLK(1,1{IM) 

PH.42  L = 2 , NLA V 

LMt  = L-1 

IF<  I8IT  . EQ.  O ) GOTO  42 
DSIGBR  = 1 , / (DSIG(L)  + DSIG(LMI)  ) 

WHERE!  BIT72 ( 1 ; IM)  ) 

^thi t .LMt : ill  MaliS^Jijsisaaffl!  = -ai.’iHfflaaiti : 

TH ( t , L JIM)  = TEMP(1,1;IM) 


SVC05690 
SVC05700 
SVC0S7 10 
$VC0S720 
SVC05730 
SVC0574O 
SVC05750 
SVC05760 
SVC05770 
SVC05780 
SVCOS7SO 
SVC05800 
) SVC058 1 0 
SVC05820 
SVC05830 
$VC05840 
SVC05850 
SVC0S860 
SVC05870 
$VC05880 
SVC05890 
SVC05900 
SVG0591 0 
SVC05920 
SVC05930 
SVC05940 
$VC05950 
$VC05960 
SVC05970 
$VC05980 
SVC05990 
5VC06000 
SVC0G010 
SVC06020 
SVC06030 
SVC06040 
SVC06050 
SVC06060 
SVG06070 
SVCO6080 
SVC06090 
SVCOGtOO 
SVC061 10 
SVC06120 
$VC06 1 30 
$VC06140 
SVG06150 
SVC0G160 
SVC0G170 
$VC06 1 80 
SVC 06 190 
SVCOG200 
SVC06210 
SVC0G220 
SVC0G230 
SVC0G240 
SVC0S250 
SVC0G2G0 
SVC06270 
SVC06280 
SVC06290 
SVC06300 
SVC06310 
SVC06320 
SVC0G330 
SVC0G340 
SVC06350 
$VC06360 
SVC06370 
SVC06380 
SVC06390 


ORIGINAL 

OF  POOR  QUALITY 


00449 

00450 

00451 

00452 

00453 

00454 

00465 

00456 

00457 

00458 

00459 

00460 

00461 

00462 

00463 

00464 

00465 


00466 

00467 

00468 

00469 

00470 

00471 

00472 

0047* 

00474 

00475 

00476 

00477 

00478 

00479 

00480 


00481 

00482 

00483 
004S4 

00485 

00486 


: J8Si!:)!Si:ftiil!:fc‘l"!iS! 

■ t1Sp< ’ : i ■ 

SHL( 1 |lM1 • IM)  = TEMPI  1 j 1 | IM) 

TEMPI  1 , I ; IM)  = U(1t  L *NB  * J ; IM) *DSIG<  L > 

TEMPI  1 i.fMl  + ,NB* J; IM>*DSIG(LM1 ) 

Jfui  = J^MP  { 1 , 1 ; IM  > *DSI GBR 

H;!4  ♦ RIB , J 5 lf| ) = TEMP  (1.1:1m) 

U{ 1 , LM1 t NB , J ; IM)  s TEMP ( 1 , 1 j IM ) 


$ 


C 

C 


TEMP (1,1; IM)  - y < 1 , L f NB  , d ; XM ) *DSIG(  L ) 

wv,h\,  „i  = sBiW;Bf&?»58,0,L"n 

42  CONTINUE 
40  CONTINUE 

111**********"****+*********  + **  ********* 
llll  drag  COEFICIEWT  llll 

*********  -fr**************.^*^^^^^**** 

TS!W{iiiiSi : 

WHERE ( BIT72(1;IM1  > 

WMAG ( 1 ; I M ) = TEMP ( 1 . 1 ; IM) 

OTHERWISE 
WMAG{f;|M)  = 0.001 
ENDWHERE 

TBIT72M  ?-°7*V,MAGft;IM>)  * 0.001 

BIT72(1;IM)  “ TEMP ( 1 . 1 j IM)  . LT . 0.0025 

WHE R E { 8IT72  ( 1 ; IM)  ) 

S T&hmU' 

ENDWHERE  = CDKO*0 . 0025 


WHERET 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


. NOT .WATER ( 1 ; IM)  ) 

CD ( 1 ; IM)  = CDXL 


* 1.002 


. 006* .0002*21 1 ; IM) ) 



VERTICAL  DIFFUSION  OF  HEAT  AND  MOISTURE  »*»* 

::::  si;  ?^frR,*%VL^ru,?  cqmstant  :::: 

****  TEMP3:  P**KAPPA  AT  LEVEL  L-1/2  1*** 

::::  ^ 4:  oc  the™ >/dsxg5a  l 1/2  :::: 

ntt  tempsj  Shl  )/dSigma  :::: 

***************+**+*************+*„ll„l+.»„.**tlrik+*lt'*niii 

EDLE  = . 2* ED 
DO  80  L = 2 , NLA Y 
LMI  - L - 1 

ASGL  = 1 . / DSIGCL) 

^SGLMI  = 1./  DSIG(LMI) 

ASGPLS  = 1 . / 1 DSIG1 LMI ) + DSIG1L)) 


SVC06400 

SVC06410 

$VC06420 

SVC06430 

$VC0S440 

SVC06450 

$VC0646C 

SVC06470 

SVC06480 

$VC06490 

SVC06500 

SVC06510 

SVC06520 

SVC06530 

SVC06540 

SVC06550 

SVC06560 

SVC06570 

$VC06580 

SVC06590 

$VC06G00 

SVC06610 

SVC06620 

$VC06630 

SVC06640 

SVC06650 

SVC06G60 

$VC06670 

$VC06680 

SVC0G690 

SVC06700 

SVC06710 

SVC06720 

$VC06730 

SVC06740 

SVC06750 

SVC06760 

SVC06770 

SVC06780 

SVC0G790 

SVC06800 

SVC068 1 0 

SVC06820 

SVC06830 

SVC06840 

SVC068S0 

SVC06860 

SVC06870 

SVC06880 

SVC06890 

SVC06900 

$VC069 1 0 

SVC06920 

SVC0G930 

SVC06940 

SVC06950 

SVC06960 

SVC06970 

SVC0G980 

SVC06990 

SVC07000 

SVC07010 

SVC07020 

$VC07030 

SVC07040 

SVC07050 

SVC07060 

SVC07070 

SVC07080 

SVC07090 

SVC07100 


n 

o 


no 

OJ 


H* 

o 


ORIGINAL  PASS  IS 
OF  POOR  QUALITY 


00487 

00488 


00489 


00490 

00491 

00492 

00493 


00494 

00495 

00496 

00497 

00498 

00499 

00500 


TEMP ( 1 t 1 ; IM) 
TEMPI  1 


C 

C 


{ GRAV/ < SP ( ? : IM> +RGAS > >**2  * DTC3+EDLE 

. ( DS I G < L ) *T'L(  1 . LM1  ; IM)  / TL  ( 1 *LM1  ; IM) 

S . + DSIG(LM1  >*PL<  1 tL  ; IM) /TL  < 1 , L ;IM>  > +ASGPLS 

TEWIP(  1 ,3;  IM)  = { DSIG(L)  *PLK  ( 1 , LM1  ; IM) 

$ * DSIG1LM1 )*PLK< 1tL  ;IM)  >*ASGPLS 

TEMP ( 1 « 4 ; IM)  = { TH{1,L;IM)-  TH(1,LM1;IM)  >/(  SIG< L ) -SIG( LM 1 ) ) 

TEMP  < 1 , 5 ; IM ) = ( SHL ( 1 . L ; IM) -SHL ( 1 , LM1 ; IM)  )/{  SIG( L ) -SIG( LM1 ) ) 

TEMP (1,2; IM)  = TEMP ( 1 ( 2 : IM)  + *2 

TEMP { 1 , 6 ; IM  > = TEMP < 1 , 1 ; IM ) * TEMP < 1 . 2 ; IM) 

$ * TEMP (1,3; IM ) *TEMP  t 1 , 4 ; IM) 

TLJ1,LM1;IM>  = TL < 1 . LM1 ; IM)  + TEMP (1,6; IM) ♦ASGLMt 
TL<1,L  : IM)  - TL  < 1 * L ; IM)  - TEMP (1,6; IM) ♦ASGL 
TH < 1 , LM1 ; 1MT2)  = TL ( 1 * LM1 ; IMT2 ) / PLK < 1 , LM1 ; IMT2 ) 

TEMP (1 ,G; IM)  = TEMP ( 1 . 1 ; IM) * TEMP { 1 , 2 : IM) 

S * TEMP ( 1 , 5 ; IM) 

SHL  < 1 , LM1 ? IM)  = SHL { 1 ( LM1 ; IM)  + TEMP ( 1 , 6 ; IM ) *ASGLM t 
SHLU.L  ; IM)  = SHL  ( 1 , L ; IM)  - TEMP  ( 1 , 6 : IM  > *ASGL 


C 

C 

G 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


BO  CONTINUE 


***  * 
* *** 
* * * * 
* * * * 
* * + * 
* * * * 
* * * * 
**  * * 
**  * * 


CALCULATE: 

SATURATION  SPECIFIC  HUMIDITY 
LATENT  HEATING  COEFFICIENT 
RELATIVE  HUMIDITY 

NOTE: 

GAMFAC  = L/CP  * <E*L/R) 


* * * * * 
* * * * 
* * * * 
***  * 
+ *-*<* 
* * * * 

* * ** 
+ * + ■+ 
* + + + 
* * • ** 


00501 

SHSAT (1,1; IMNLAV ( = 

00502 

00503 

C 

$ 

GAM( 1,1; IMNLAY)  = 
RH<  1,1;  IMNLAY ) =: 

PL ( 1 , 1 ; IMNLAY) . IMNLAY ; 
SHSAT { 1 , 1 ; IMNLA Y ) ) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


**  * * 
* *** 
* *■** 
* **  * 
* * * * 

* * ** 
* * * * 
**** 
* * * * 
* * 

***  + 
* * * * 
**** 
* * * * 

**** 

* * 4?  * 
**** 
«*** 
**  * * 
**** 
+ * * * 

* * * * 
* * * * 
* * * * 
* * * * 
***  * 


DETERMINATION  OF  SURFACE  LAYER  TEMPERATURE  TS ( I . d > 
SURFACE  LAYER  SPECIFIC  HUMIDITY  SHS < I 1 d ) 
AND  SURFACE  DENSITY  RHOSfl) 


NOTE: 


PS 

PSK 

RHS 

ZLN 

GAMC 


THT9  = 


DTS  = 


DRAW 

RICH 

EDNS 

TDML 


SURFACE  PRESSURE 

SURFACE  PRESSURE* ♦KAPA 

HARMONIC  MEAN  OF  RELATIVE  HUMIDITY 

THICKNESS  OF  PLANETARY  BOUNDARY  LAVER 

TEMPERATURE  DIFFERENCE  RELATED 

TO  DIFFERENCES  BETWEEN  MOIST- 

AND  DRY-ADIABATIC  LAPSE  RATES 

POTENTIAL  TEMPERATURE  AT 

LEVEL  9 V/ITH  SURFACE  PRESSURE 

AS  REFERENCE 

TEMPERATURE  CHANGE  BETWEEN 
GROUND  AND  TOP  OF  P.B.L  WITH 
MOISTURE  CORRECTION 
< DTS<0  : STABLE  P.B.L 

( DTS>0  : UNSTABLE  P.B.L  > 

AIR/SURFACE  INTERACTION  COEFFICIENT 
BULK  RICHARDSON  NUMBER 
EDDY  DI FFUSIVI TV  COEFFICIENT 
TEMPERATURE  DIFFERENCE  OF  THE 
MIXED  LAYER 


EVE  = SOIL  EVAPOTRANSPI RAT  ION  COEFFICIENT 


***  * 
**** 
**** 
**  ** 
**** 
* * * * 
**  ** 
%*♦* 
***  * 
* * * * 
* * * * 
**  * * 
+ *** 

**  ** 
* * * * 
**** 
* * * * 
* * * * 
* * * * 
* * * * 
* * * * 
***  * 
* * * * 


SVC071 lO 

$VC07 120 

SVC07130 

$VC07 140 

SVC07150 

SVC07160 

$VC07 170 

$VC07 1 80 

SVC07 190 

SVC07200 

SVC0721 0 

SVC07220 

SVC07230 

SVC07240 

SVC07250 

SVC07260 

SVC07270 

$VC07280 

SVC07290 

SVC07300 

SVC07310 

SVC07320 

SVC07330 

SVC07340 

SVC07350 

SVC07360 

SVC07370 

SVC07380 

SVC07390 

SVC07400 

SVC07410 

SVC07420 

SVC07430 

$VC07440 

SVC07450 

SVC07460 

SVC07470 

SVC07480 

$VC07  490 

SVC07500 

$VC075 1 0 

SVC07520 

SVC07530 

SVC07540 

SVC07550 

SVC07560 

SVC07S70 

$VC07580 

$VC07590 

SVC07600 

SVC07610 

SVC07620 

$VC07630 

SVC07640 

SVC07650 

SVC07660 

SVC07G70 

SVC07G80 

SVC07690 

SVC07700 

SVCO77I0 

SVC07720 

SVC07730 

SVC07740 

SVC07750 

SVC07760 

SVC07770 

SVC07780 

SVC07790 

SVC07800 

SVC07810 


O o 

^ a 

35 

S| 

•O 

£ s» 

a 2 


C0MP3  11 


•r  • 

i 


Jt ; 


i 

i ! 

h 

t • « 

i- 1" 

r . . 


i' 

a 


00504 

00505 

00506 

00507 

0O50B 

00509 

00510 

00511 

00512 

00513 


00514 

00515 

00516 

00517 

00518 

00519 

00520 


0062! 

00522 

00523 

00524 

00525 

00526 
00327 

00528 

00529 

00530 

00531 

00532 

00533 

00534 

00535 
0053G 
00537 


00538 

00539 

00540 

00541 

00542 

00543 

00544 


C 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 


**** 


GRAVY  = GRAV/RGAS*H0CP 
AROCP  = t./ROCP 


PSdjIM)  = PLE  < 1 , NLAYP  1 ; IM) 

°SK<1;IM)  = VEXPBVK ( PS ( 1;XM),IM; PSK ( 1 j IM)  ) 

SHSATSd;IM>  * VQSAT < TS < 1 , d ; XV\  > , PS ( 1 * IM) t IM; SHSATS < 1 ; IM)  ) 
TEMP d , 1 ; IM)  = SHSATS ( 1 ;IM)/TS( 1 , d; IM) 


RHS< 1 ; IM)  = 0 , 

" WET ( 1 j IM)  + RH( I.NLAYjIM) 

BI T72  d ; IM)  = TEMPd,9;IM>  .ME.  0.0 
WHERE  < BI T72 { 1 ; IM)  ) 

3 RHS(t:IM1  * 2.  *WET<  1 1 ,NLAY;  IM)/TEMP(  1 ,9;  IM) 

= 2LNCO*TSM,tJ;IM)*SPd;IM)/PS(1;IM> 

THGdjIM)  = GAMFAC*  TEMP  < 1 , 1 * IM ) /TS ( 1 , d : IM ) 

^ GAMCC 1 ; IM)  = TEMP ( 1 , 6; IM)  ^ RHS (1 ; IM ) * GRAVY  * 

$-rui^?(JiJM)"£^,4>TEMPM’t;rM,1*,AR0CP)  / 1 1 « +THG  ( 1 ; IM)  > 
™J9<1;XM)  = TH< 1 ,NLAY; IM)  * PSKd;XM) 

DTS  d ; IM ) = TG  d ; IM ) - THT9(1;IM)  + GAMCd;IM) 


TEMP  (1,3;  IM)  = DTSM  • IM) 

BIT72{ 1 ; IM)  ” TEMP (1*3; IM)  . GE . 0.0 


t**********************,,' 
**  ** 
**  UNSTABLE  P.B.L  * + 
**  ** 


C 

C 

c 

c 

c 

c 

c 

c 

c 


c 

c 


where!  B?T72<i!l^liLT-25-0  * tISpIi.'iSiSI  = WMAGOjIM) 
?I!3E{],?!J!3?  ='«S?SIJI  CD(t}IM)  ;TEMP(1,2;IH)  > 

TEMP(  1,1;  JM)  = 0.1382  * TEMPO, 2:IM)  * TEMPO  1-IM) 

TEMP  (1,1;  Ml)  = TEMPO,  1;IM)  + * COOOM  * 

= OTSOilM)  » TEMP 0,1  JIM) 

EMDWHERE;IM>  “ 1200. /TEMPI  I ,6; IM) > *TEMP( 1 , 1 ; IM) 

SIM!^<o^)P!  TEMP<1.5jIM)STEMPO.SiIM)  ) 

IF57S  'iniSIHl  + 0100  * H .0-TE«JP(f  ,5;IM)> 

nkVt  1 !ttnYP1i«¥!  t«THT9<  1 :IM)  + TEMPO, t:IM>  - GAMC(1;IM> 

£JS Hi1!}}*  TGMsIWI  - TLE  ( 1 f NLAYP  1 ; IM) 

~ VS?RT<  0TSd;IM);ORAWd;IM)  ) 

ENDWHE^EM  = CD(1sIflS>  * iWMAG(1;IM)  + DRAWd;IM>) 


**  + * 

**  STABLE  P.B.L  ** 
**  ** 


DU< 1 ; IM)  = 
DVd;IM)  = 
DUOV ( 1 ; 1 M)  = 
WHERE ( DUDVd: 
OUDV ( 1 ; IM)  = 


U1,NLAY,NB,d;IM)  - USd;IM> 

Vd  g ML  AY  , NB, d ; IM)  - VSd;lM) 

DU(1  ; IM>*0U{  1 ; JM>  *■  OV  (1  ; IM)  *DV (1  ? IM) 
IM)  LT.  0.1  ) DUDVd  ;IM)  = 0.1 
1 ./<DUDV(1  ; IM)  * TGd;IM)> 


C4G  » -C40*GRAV 


BI T72( 1 ; IM)  = TEMPd,3;IM>  , LT  ♦ 0.0 


SVC07820 

SVC07830 

$VC07840 

SVC07850 

SVC07860 

SVC07870 

SVC07QB0 

SVC07890 

SVC07900 

SVC07910 

SVC07920 

SVC07930 

SVC07940 

SVC07930 

SVC07960 

SVC07970 

SVC07980 

9VC07990 

SVC08000 

SVC08010 

SVC08020 

SVC08030 

$VC03040 

SVC08050 

SVC08060 

$VC08070 

$VC08080 

SVC0B090 

SVC0B100 

SVC081 10 

$VC08 1 20 

SVC08 1 30 

SVC08140 

SVC08150 

SVC08160 

SVC081 70 

SVC08180 

SVC08190 

9VC08200 

SVC08210 

SVC0B220 

SVC08230 

$VC08240 

SVC0S25O 

SVC08260 

SVC08270 

SVC08280 

SVC08290 

SVC08300 

SVC08310 

SVC08320 

SVC08330 

SVC08340 

SVC08350 

SVC08360 

SVC08370 

SVC08380 

SVC0B390 

SVC08400 

$VC084 1 0 

SVC08420 

SVC0S430 

SVC08440 

3VC08450 

$VC08460 

SVC08470 

SVC08480 

SVC08490 

SVC08500 

SVC08510 

SVC08520 
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Dg 
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,0  3 
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V 
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C0MP3  12 


it 

!«  ■ 

[*■ 

1,1  : 


00545 

00546 

00547 

00548 

00549 

00550 

00551 


00552 

00553 

00554 

005B5 

00556 

00557 

00558 
00569 


00560 

00561 

00562 

00563 

00564 


00565 

00566 

00567 

00568 


00569 

00570 

00571 

00572 

00573 

00574 

00575 

00576 


00577 

00578 

00579 

00580 

00581 

00582 

00583 

00584 

00585 

00586 

00587 


C 

c 


c 

c 


c 

c 


c 

c 


WHE  R E ( Bt  T72 ( 1 ; XM ) ) 

WMAGC  { 1 ;IM)  = WIWAGS { 1 ; IM)  *WMAG ( t;IM> 

TEMP ( 1 t 7 ; 1M ) = 1./  ( TEMP d , 6 ; IM) *CD (1 ; IM > *WMAG (1 ; IM ) > 

TEMP  ( 1 , B ; IM ) = C 1 0*7  . ♦TEMP  ( 1 , 7 ; IM ) /WMAGS  ( 1 ; IM) 

AAA ( 1 ; IM}  = TEMP d » 6 ; IM ) *DUDV d * IM) 

AAA ( 1 ; IM)  a C4G*AAA< 1 ;IM>  + TEMPd,8;IM> 

BBB d ; IM)  = 1.  * C 10»TEMP ( 1 ♦ 7 ; IM) 

$ - C4G*TEMP< 1 , 6; IM) *DTS( 1 ;IM> *DUDVf 1 I IM) 

S - TEMPI  1 ,8; IM) *DTS( 1 ; IM) 

CCC(1:IM>  = -DTS ( 1 ; IM ) 

ENDWHERE 

TEMP ( 1 , 8 ; IM)  = VAB5(  AAA ( t ; I M ) j TEMP ( 1 , 8 : I M ) ) 

WHERE ( BI T72< 1 ; IM)  .AND.  ( TEMP ( 1 , 8 ; IM) . GT . 0 . 0 1 ) ) 

TEMP < 1 » 1 ; IM)  - BBB ( 1 ; IM) *BBB ( 1 ; IM)  - 4 . +AAA ( 1 ; IM) *CCC C 1 ; IM> 

TEMP ( 1 p 1 5 IM)  = VSQRTC  TEMP (1 , 1 ; IM) ; TEMP (1,1; IM)  ) 

TEMP  <1,1;  IM)  = ( -BBBdjIM)  + TEMP  ( 1 , 1 ; IM)  ) / { 2 . *AAA  ( 1 ; IM ) ) 
ENOWHERE 

WHERE { 8 1 T72 1 1 ; IM)  .AND.  ( TEMP (1*8; IM) . L£ .0.01)  ) 

TEMPI  1 . 1 ; IM)  = BBB ( 1 ; IM)*BBB( 1 ; IM) 

TEMP ( 1 p 1 ; IM)  = 1.0  + AAA ( 1 ; IM ) *CCC ( 1 ; IM) / TEMP ( 1 , 1 ; IM) 

TEMP (1 , 1 ; IM)  = - CCC ( 1 ; IM) /BBB ( 1 ; IM) *TEMP ( 1 . 1 ; IM) 

ENDWHERE 

TEMP  < 1 , 2 ; IM)  = 1.0  - 7 . *OTS(  1 : IM) /WMAGSM  ; IM) 

TEMP  (1.2;  IM)  =*  1.0  + EDNM  * TEMP  ( 1 ,7 ; IM)  * TEMP(1,2;IM) 

TEMP  ( 1 , 2;  IM)  = DTSdjIM)  / TEMPd,2;IM) 

WHERE ( BTT72 ( 1 ; IM)  .AND.  ( TEMP (1*2; IM) . GT . TEMP  <1,1; IM) > ) 

$ TEMPM'UIM)  = TEMP  <1,2;  IM) 

WHERE { 8 1 T 7 2 ( 1 ; IM)  ) 

TLE ( 1 .NLAYP 1 ; IM)  = THT9(1?IM)  + TEMP1 1 a 1 ; XM)  - GAM0(1;tM) 

DTSC 1 ; IM)  = TGd;IM)  - TLE d , NLAYP 1 ; IM) 

DRAW  ( 1 ; IM)  “ VJMAGS { 1 ; IM)  - 7.*DTSd;IM) 

DRAW<  1 ; IM>  = CD  < 1 ; IM)  *VJMAGC<  1 : IM)  /DRAVH  1 ; IM) 

TEMP ( 1 , 5 ; IM)  = -GRAV*TEMP ( 1 , 6 ; IM > *TEMP ( 1 . 1 ; IM)*DUDV( 1 MM) 

TEMP  ( 1 , 5 ; IM)  = CIO/M.  + C40*TEMP d f 5 ; IM) > 

ENDWHERE 

***  **  * **  * * *******  **  * *****  **  ***  * * ****  * * 

* * **  * * * * 

****  CALCULATION  OF  ***+ 

****  SURFACE  SPECIFIC  HUMIDITY  **+* 

* **  * **  * * 

************ *****************4******** 

EDV< 1 j IM)  = TEMP ( 1 ,5 ; IM) /TEMP ( 1 , 6; IM) 

TEMP ( 1 , 7 ; IM)  = WET ( 1 ; IM) /FWET 
BI T72< 1 ; IM)  = TEMP (1 , 7 ; IM)  .LT.  1.0 

EVE { 1 ; IM ) “ 1.0 

WHERE(  BIT72 < 1 : IM)  ) EVEdjlM)  * TEMP<1f7;IM) 

EVACO ( 1 ; IM)  - EVE  d ; I M>  *DRAWd  ; IM) 

BIT72 1 1 ; IM)  * 1.E-40  . GT , EVAC0(1;IM) 

V/HERE  < BIT72(1;IM)  ) EVAC0<1;IM)  - 1.E-40 

SHG(1;IM)  = VOSAT ( TG1 1 ; IM) , PS  ( 1 ; IM) . IM;SHG( 1 ; IM)  ) 

SHLE  < 1 , NLAYP 1 ; IM)  * { EVACO <1 ; IM ) *SHG< !; IM ) 

$ + EDVd; IM)+SHL< 1 , NLA Y ; IM ) >/ (EVACO ( 1 ; IM) +EDV <1 : IM) ) 

SHSATSdjIM)  = VQSAT<  TLE  (1  , NLA  YP  1 ? IM)  , PS  (1  ; IM)  . IM;  SHSATS  d ; IM)  ) 

***************************************** 

***+  **** 

****  CHECK  FOR  SUPER-SATURATION  ***+ 

***♦  OF  SURFACE  SPECIFIC  HUMIDITY  ***♦ 


SVC0B530 

SVC08540 

SVC08550 

SVC08560 

SVC08570 

SVC08580 

SVC085B0 

SVC0B600 

5VC08610 

SVC08620 

$VC0B630 

SVC08640 

SVC08650 

$VC086G0 

SVC08670 

SVC08680 

SVC08690 

SVC08700 

SVC08710 

$VC08720 

SVC08730 

SVC08740 

SVC08750 

SVC08760 

SVC08770 

SVC08780 

SVC08790 

SVC08800 

SVC08810 

SVC08820 

SVC08B30 

SVC08840 

SVC08850 

SVC08860 

SVC08870 

svcoasao 
SVC08890 
SVCOSSOO 
SVC08910 
SVC0S920 
SVC08930 
SVC08940 
SVC08950 
$VC089G0 
SVC0S970 
SVC08980 
SVC08990 
SVC09000 
SVC09010 
SVC09020 
SVC09030 
SVC09040 
SVC0S05O 
SVC09060 
SVC09070 
SVC09080 
SVC09090 
SVC09100 
SVC091 10 
SVC09120 
SVC09130 
SVC09140 
SVC09150 
SVC09160 
SVC09170 
SVC05180 
SVC09190 
SVC09200 
SVC09210 
SVC09220 
SVC09230 


O 

O 

s 

no 

LO 


LO 


OF  POOR  OUAUW 


00588 

00589 

00590 

00591 

00592 

00593 

00594 


00595 


00596 

00597 

00598 

00599 

00600 


00601 

00602 


00603 

00604 

00605 

00606 


****  **** 

***********************  *<*  **************** 

DO  120  1=1, IM 

IF  (SHLE  ( I , NLAYP  1 ) . tLE  . SHSATS  ( I ) ) GO  TO  120 

TEMP  (1,2)  = GAMF AC*SHSATS(I ) / < TLE ( I , NLAVP 1 ) -TLE ( I . NLA VP  H ) ) 
TEMPI  1,1)  = ( SHLE U .NLAYP 1 ) - SHSATSf I ) ) / ( 1 . + TEMP (1,2?) 

TLE ( I , NLAVP 1 ) = TLE ( I , NLAVP 1 ) + TEMP ( I , t ) ♦CLH 
SHLE (I , NLAVP 1 ) = SHLE ( I . NLAYP 1 ) - TEMP  <1,11 
120  CONTINUE 

*************************************** 

****  **** 

****  CALCULATE  SURFACE  DENSITY 
* * * * **** 

****  NOTE:  RHOS  HAS  UNITS  OF  ♦ *** 

****  O.t  G/CM**3  OR  **** 

****  100.0  KG/M**3 

****  * * * * 

*****************  **  ******************** 

RHOS(1:IM>  = PS< 1 ; IM)/ (RGAS*TLE< 1 . NLAVP 1 ; IM) ) 

***************************************** 

****  * * * * 

****  SURFACE  FLUX  OF  SENSIBLE  HEAT  **++ 

****  SURFACE  FLUX  OF  MOISTURE  **** 

****  **** 

****  NOTE:  COEFS  = G+DELT/DSIG 

'****■  * * ** 

***************************************** 

DSHS( 1 ; IM)  = SHG{ 1 ; IM>  - SHLE ( 1 t NLA VP  1 ; IM) 

TEMPI  1,1 ;IM)  = COE FS+ RHOS ( 1 ; IM) +DRAW ( 1 ; IM) /SP ( 1 ; IM) 

TL( 1 ,NLAY; IM)  = TL < 1 , NLAY ; IM)  + TEMP ( 1 , 1 ; IM) *DTS( 1 ; IM) 

TH ( 1 , NLAY ; IM)  = TL < 1 , NLAV ; IM>  / PLK < 1 , NLA Y ; IM > 

SHL ( 1 , NLAY i IM)  = SHL < 1 . NLAV ; IM ) 

$ + TEMP{ 1 , 1 ; 1M)*EVE<1 ; IM) *DSHS( 1 ; IM) 

************************************** 

****  *» t** 

****  SURFACE  SKIN  FRICTION 
* * * * **-»  * 

************************************** 

U<1 .MUAV.NB, J;IM)  = U( t , NLA V , NB .J ; IM)  - CDFR»TEMP < 1 , 1 ; IM > *US( 1 
V(! .NLAV.NB, J;IM)  = V< 1 .NLAV.NB, d; IM)  - CDFR*TEMP < 1 , 1 : IM) *VS( 1 

************************************************** 

***  * 

« * ** 

**** 

♦ ♦ * * 

**** 

**•* 

•+  + + * 

* * * * 

* * * * 

***  * 

* * * * 

**  ♦* 

************************************************** 

ACLH  = 1./CLH 


c 

* * * * 

c 

* * * * 

PR! 

c 

* * * * 

c 

* * * * 

SSS 

c 

**«* 

SSSE 

c 

***  * 

HH 

c 

* * * * 

HHE 

c 

* *t  * * 

HHS 

c 

**  * * 

c 

**  * * 

CVT 

c 

***  * 

c 

**** 

CVQ 

c 

* * * * 

c 

**  * * 

PREPARATION  FOR  MOIST  CONVECTION 

= DRY  STATIC  ENERGY  AT  LEVEL  L 

= DRY  STATIC  ENERGY  AT  EDGE 

= MOIST  STATIC  ENERGY  AT  LEVEL  L 


AT  LEVEL  L 

TOTAL  TEMPERATURE  CHANGE  DUE 
TO  CUMULUS  CONVECTION 
TOTAL  MOISTURE  CHANGE  DUE 
TO  CUMULUS  CONVECTION 


SSS( 1 ,NLAY? IM)  = O. 
CVT  <1,1; IMNLAY  > = 0. 
CVQ< 1 , 1 ; IMNLAY)  =*  0. 


SVC09240 
SVC09250 
SVC09260 
SVC09270 
SVC092B0 
SVC09290 
SVC09300 
SVC093 1 0 
SVC09320 
SVC09330 
SVC09340 
SVC09350 
SVC09360 
SVC09370 
SVC09380 
SVC09390 
SVC09400 
SVC094 10 
SVC09420 
SVC09430 
SVC09440 
SVC09450 
SVC09460 
SVC09470 
SVC094B0 
SVC09490 
SVC09500 
SVC09510 
$VC09520 
$VC09530 
SVC09540 
SVC09550 
SVC09560 
SVC09570 
SVC095B0 
SVC09590 
SVC09600 
SVC09610 
SVC09620 
SVC09630 
SVC09640 
SVC09G50 
SVC09660 
SVC09G70 
SVC09680 
; IM ) SVC09690 
; IM) SVC09700 
SVC09710 
SVC09720 
SVC09730 
SVC09740 
SVC09750 
SVC09760 
SVC0977O 
SVC09780 
SVC09790 
SVC09800 
SVC09810 
SVC09820 
SVC09830 
SVC09B40 
SVC09B50 
SVC09860 
SVC09870 
SVC09880 
SVC09890 
SVC09900 
SVC09910 
SVC09920 
SVC09930 
SVC09940 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


00607 

00608 

00609 

00610 
0061  1 

00612 

00613 

00614 
00616 
00616 
00517 
00618 

00619 

00620 

00621 

00622 

00623 

00624 
00626 
00626 

00627 

00628 

00629 

00630 

00631 


00632 

00533 

00634 

00635 

00636 

00637 

00638 

00639 

00640 
0064  1 

00642 

00643 

00644 


00645 

00646 

00647 


. AS°  1S0  ^X=2,NLAY 

L = NLA Y + 2 - LK 
LM1  = L - 1 

FACLM1  = oilG{ LM1 ) / ( dIig { L j + §S I G (LM1 ) I 
WHERE{  ilmnliiS)  > .me.  0.0 

Indwhere:IM)  = SHL<1-lm«SIIK)*SHL(1,L:IM)/SHLEM.L;IM) 

iSliinsi : •Sli'-Siipij 

WHERE  ( BIT7aCtix«}  ) SHLE(  1 * L • IM)  ^TEMPM?!  |ikj 


HH{1(L;2M)  « sssri  l * IM ) 

HMSMff|L»fSai  = SSSEC1  .tSllS} 
HHS<  1 , L ; IM)  a SSSM,L;IM) 


1 SHL ( 1 , L ; IM) 
+ CLH*  SHLE { t t L ; IM) 
+ CLH*SHSAT (3,L;1M) 


C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

D 

D 

3 


180  CONTINUE 

MHS ( t , 1 ; IM)  = SSS( 1 , t ; IM)  + CLH»SHSAT < 1 , t ; IM) 

****  CONSTRAIN  SPECIFIC  HUMIDITY  BY  ELIMINATING  NEGATIVE  VALUES 

* 

DO  202  L = 2 , NLA Y 
LM1  = L - 1 

DOSIG  “ DSIG ( LM1)/DSIG(L) 

«jt -J LT-  0 0 
guvLrnuWr0  202 

SHL  ( T I LM1  ; IM)  = + SHL  ( I . LM1 , IM)  -DDSIG 

ENDWHERE 

202  CONTINUE 

where ( Iirrit t ) = 1hl{ i!nlay;im)=6^T'  °*° 

1 ***1******* ******** **«**********♦*. 

*****  CUMULUS  PARAMETERIZATION 


******* 
***  *** 

*****  — w«  Hnniiic  i CfUifl  ) ] U[\J  ****** 

Ht****************.^^^^^  ****** 


% 

j 

* 

•* 


CALL  ZE I TBEGC8HCUMUL0 
CALL  CUMULO  <d) 

CALL  ZEI TEND 


*****  **  ******************** ^ * 
:::::  moist  convective  adjustment  n::;: 


SVC09950 
$VC09960 
SVC09970 
$VC09980 
$VC09990 
$VC 10000 
SVC10010 
SVC  1 0020 
SVC  10030 
SVC  10040 
SVC10050 
SVC10060 
SVC  10070 
SVC  10080 
SVC10090 
SVC10100 

$vc 10110 

SVC  10 120 
SVC10130 
SVC  10 140 
SVC  10150 
SVC  10 160 
SVC 10170 
SVC 1 O 1 80 
SVC  10 190 
SVC  10200 
SVC  10210 
SVC 10220 
SVC  10230 
SVC  10240 
SVC 10250 
SVC  1 0260 
k * * * * *$vC 10270 
****$VC10280 
* * * *$VC  1 0290 
****$VC 10300 
r*****$VCI03 10 
SVC  10320 
SVC  10330 
SVC  10340 
SVC  10350 
$VC 10360 
SVC  10370 
SVC  10380 
SVC  10390 
SVC  10400 
SVC  104  10 
SVC  10420 
SVC10430 
$VC 10440 
SVC  1 0450 
SVC  1 0460 
SVC10470 
SVC  10480 
SVC  10490 
SVC10500 
SVC 1 05  10 
SVC10520 
$VC 10530 
SVC  10540 
SVC  1 0550 
SVC 10560 
SVC 1 0570 
SVC  10580 
SVC  1 0590 
SVC  1 0600 
SVC10610 
SVC  10620 
SVC  10630 
SVC  10640 
SVC  1 0650 


O 

o 


S 


ns 

u> 


Ln 


ORIGINAL  PAGE  ?S‘ 
OF  POOR  QUALITY 


00648 

00649 

00650 


00651 

00652 

00653 

00654 

00655 

00656 

00657 

00658 

00659 

00660 
00661 
00662 

00663 

00664 

00665 

00666 

00667 

00668 

00669 

00670 

00671 

00672 

00673 

00674 

00675 

00676 

00677 

00678 
0067  £ 
00680 
00681 
00682 

00683 

00684 

00685 

00686 


00687 


GALL  ZEITBEGfSHMOIST 
CALL  MOIST 
CALL  ZE I TEND 


c 

4 4 4 4 4 

**T*********M******t**»M******#MM*  + + U******* 

c 

* 4 44 

4 4 4 4 

c 

4 44  4 

LARGE  SCALE  PRECIPITATION 

* ♦ * * 

C 

* 4 4 4 

* * * * 

C 

* * * ilr 

PRECIP  = PRECIPITATION  DUE  TO 

4 4 44 

c 

4 * * 4 

LARGE-SCALE  SUPERSATURATION 

4 4 4 4 

c 

4 + * Ik 

EXL  = TOTAL  SPECIFIC  HUMIDITY  CHANGE 

444  * 

c 

4 4 * >* 

FROM  LEVEL  L-1 

*444 

C 

* 4 4 4 

EX  a TOTAL  SPECIFIC  HUMIDITY  CHANGE 

♦ * 4 * 

c 

4 * 4 ft 

TO  LEVEL  L 

♦ 44  * 

c 

**** 

4 4*4 

c 

4 4*4 

DIAGNOSTICS; 

♦ 4 4 4 

c 

4 4 44 

I CLOUD ( I (d) 

4 4 4 4 

c 

4*4* 

PREACC t I, d)  a TOTAL  ACCUMULATED  PRECIP 

4 4 4 4 

c 

* * *4 

FROM  LARGE  AND  SMALL  SCALE 

4 4 4 4 

c 

4 4 4 4 

( . 1 MM/DAY) 

4 4*4 

c 

4*4  4 

PRECON  C I , J ) = TOTAL  ACCUMULATED  PRECIP 

4 4 4 4 

c 

4 4 * 4 

FROM  CUMULUS  CONVECTION 

4 4 4 4 

c 

4*44 

( . 1MM/DAY) 

4 4 4 4 

C 

4 44  4 

* 4 4 4 

C 

C 


£ 4 44i»t444*4444444**44444444444444444444444*444444444444 

c 

OO  300  L=2,NLAY 
LM1  = L - 1 

DD5IG  = DSIGUM1  >/DSIG(L) 

DO  1120 

IF  (SHL ( I , LM1 ) . LE . SHSAT 1 1 . LM1 ) ) GO  TO  1120 
EXL  = t SHL  { I . LM1  ) - SHSAT  ( I , LM 1 > ) / (1  . +GAIBC I . LM1  > > 

EX  = EXL*DDSIG 

CLOUD ( I ? LM1 ) = 1. 

IF  (QOUT. AND. LICLOUD)  I QSD I AG ( I , 1 1 CLOUD , J ) = 

$ ,,  ...  I OSD  I AG  ( I . 1 1 CLOUD  , J ) + 2*MLM1+5> 

TL ( I , LM1 ) u TL(I.LMI)  * EXL+CLH 
SHLCI.LM1)  = SHL(I.LMI)  - EXL 

TL  < I , L > = TL  < I , L ) - EX*CLH 

SHL(I.L)  = SHL(I,L)  + EX 
SHSAT ( I , L ) a QSAT  ( TL ( I , L ) , PL ( I t L ) ) 

1120  CONTINUE^  ® GAMFAC*SHSATtI^>^TLn,L)*TL(IfL>) 

300  CONTINUE 

PRECI P ( 1 ; IM)  « O. 

DO  1 130  1=1 . IM 
EXL  " 0. 

IF  < SHL ( I , NLAY ) , LE  . SHSAT ( I t NLA Y > ) GO  TO  320 
CLOUD { I , NLAY)  = 1. 

IF  ( QOUT . AND . LICLOUD ) I QSD I AG ( I , I I CLOUD f J ) = 

* _ . I QSD  I AG  ( I * I I CLOUD  « d ) + 2*+(NLAY*5> 

DO  310  N~ 1 f 3 

EX  = ( SHL < I, NLAY) -SHSAT < I .NLAY) ) / ( 1 . +GAM f I , NLA V ) ) 

EXL  = EXL  + EX 

TL { I f NLAY)  a TL(I.NLAY)  + CLH*EX 
SHL ( I . NLAY)  = SHL { I , NLAY)  - EX 
SHSAT ( I , NLAY ) a QSAT { TL ( I t NL A Y > , PL fl , NLA Y > ) 

*NLAV>  = GAMFAC*SHSATC  I , NLAY)/(TL(I  ,NLAY)*TL<  I tNLAY)  > 
310  CONTINUE 

320  CONTINUE  ^ = PRECIP(I>  + EXL*DSI G ( NLA Y ) * # f *SP ( I ) -AGRAV 

1130  CONTINUE 

CUM1E4  = 1.E4*CUMDAY 

PREP(  1 ; I M ) a PRECIP  ( 1 ; IWJ)  + PCMID(ljIM) 

S + PCLOWC  1 ; IM) 

$ + PCPEN  ( 1 : INI ) 

I F ( LPREACC ) QSD I AG  C t , IP RE ACC ♦ d ; IM)  a QSD I AG ( 1 , I PREACC ,d;IM) 


C 

C 


SVC  10660 
$VC 10670 
SVC  10680 
SVC  10690 
SVC10700 
SVC  1 07  to 
SVC 1 0720 
SVC 1 0730 
$vc 10740 
SVC  10750 
SVC  10760 
SVC  10770 
SVC  10780 
SVC  10790 
SVC  10800 
SVC  108 10 
SVC10820 
SVC 10830 
SVC  10840 
SVC  10850 
SVC  10860 
SVC  10870 
SVC  10880 
$VC 10890 
SVC  10900 
SVC10910 
$VC 10920 
SVC  10930 
SVC10940 
SVC  10950 
SVC  10960 
SVC  10970 
SVC  10980 
SVC  10990 
SVC  1 1000 
SVC  1 10  10 
$VC1 1020 
SVC  1 1030 
$VC1 1040 
$VC1 1050 
$VC1 1060 
SVC  1 1070 
SVC  11 080 
$VC1 1090 
SVC  11 100 
SVC  11110 
SVC  1 1 120 
$VC1 1 130 
SVC  1 1 140 
$VC1 1 150 
SVC1 1 160 
SVC1 1 170 
SVC1 1 180 
SVC1 1190 
SVC  1 1200 
SVC  11210 
SVC 1 1220 
SVCt 1230 
SVC 11240 
SVC 1 1250 
SVC 1 1260 
SVC  1 1270 
SVC  1 1280 
SVC  1 1290 
$VC 1 1300 
SVCt 1310 
SVC1 1320 
SVC1 1330 
SVC  1 1340 
SVC  1 1350 
SVCt 1360 


O 

9 

LO 

H* 

O' 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


00688 


00689 

00690 

00691 

00692 

00693 

00694 

00695 

00696 

00697 

00698 

00699 

00700 

00701 

00702 

00703 


00704 

00705 

00706 


C 

C 

C 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

c 

c 

c 

c 

c 


VfLPRECON)  OSD  I AG  < I , I PRECON  . 0 ; IM)  t $&*$<  «?IP^ffi;  IM) 

+ CUM1 E4*<PREP( 1 t IM) -PRECIP ( 1 ; 

ZlH*******************  + *******************  + *w 
****  ELIMINATE  negative  specific  humidity  till 

***************+*+* *****++*+++++**++++++**+*'^1121 

DO  410  L“2 , NLA Y 

LM1  = L - 1 

DDSIG  = DSIG1LM1  )/DSIG(L) 

IF(TIBlP*Sl^  !B?T72<  1?IM)  ’ >Mf  JlM>  -LT*  0 0 
WHERE!  Blf72(1?IM>G?T°  4’° 

SHMI.'LMlilM)  : SHL  ( 1 t L ; tM>  + SHL  ( t . LM1 ; IM)  .DDSIG 
ENDWHERE 

410  CONTINUE 

01 T72 ( I ; IM> 

WHERE  < BIT72(1  IM)  ) 

BI T72 ( 1 ; IM ) 

WHE  R E ( BI T72 ( 1 ; IM)  ) 

*t  + ****’|,>K*********’,,***!*f*,,f******  + *’*,*,,,,*‘,*,  + ** 

llll  RADIATION  SUBROUTINES  till 

***+***+*************+** 

CALL  ZEI TBEG (8HRADIO  ) 

CALL  RADIO  <d> 

CALL  ZEITEND 


= SHL ( 1 , NLA Y ; IM)  .L 
SHL ( 1 , NLA Y : I M > = O . 
- SHLE( 1 .NLAYP1 ;IM)  .L 
SHLE( 1 , NLA YP 1 ;IM)=0. 


♦ *■  * ■*  * 
* * * * 

+ * * * 

* * ♦ * 

* * + * 

* **  * 

+ * * * 
**  * * 

* * * * 

* *** 

* * * ★ 

* * * tfr 
***% 
**** 

* * * * 

* * * ♦ 
**  ** 
**  * * 
**** 

♦ *** 
**** 
**** 

* + * * 
**** 

* * ** 

**  * * 

**  + * 

* **  * 

* * * * 

* ■*  ★ * 

**  * * 

* *** 


HEATW 

HEATI 

EPSFAC 

EPS 


>****************+**  + * + + + * + * + ,„, 

DETERMINATION  OF  GROUND  TEMPERATURE 

Cr,«S?°yND  temperature  gtci  d) 

SURFACE  SPECIFIC  HUMIDITY  SHSald) 

heat  coef  over  land,  water 
HEAT  COEF  OVER  ICE, SNOW?  FROST 
Ia5tKEATW/RGAS  * CALTOd 

nrTw?T?o  w?«E£ULAR  WEIGHTS 
OF  WATER  VAPOR  AND  DRY  AIR 

F5t?5£EuZ?  J0ULE  CONVERSION 
^EAT  OF  EVAPORATION 
TOTAL  HEAT  CAPACITY 

l?c£?M~nZF25ESTRIAL  RADIATION 
STS2fil^’:BOLT2MAM  CONSTANT 
DlRI/Dr^O 

L^D{E)/D( Tni 
SENSIBLE  HEAT  FLUX 
LATENT  HEAT  FLUX 
HEATING  DUE  TO  CONDUCTION 

DIAGNOSTICS: 

tiSKBS  SEWSIBLE  HEAT  FLUX 
HOWARD  LATENT  HEAT  FLUX 
HEATING  DUE  TO  CONDUCTION 

NOTE:  SINCE  RHOS  HAS  UNITS  OF  0.1  G/CM**3 

HEAT  Ff  cX?Mr.°rc?EN?ISLE  AND  LATENT 
HEAT,  (F  AND  LE ) , ARE  IN 

DECA-LANGLEY/UNIT  TIME. 


CALTOd 

EVAL 

CZH 

RADTRM 

STBO 

DRAD 

DSQG 

TERM2 

TERM3 

TERM4 


HFLUX ( I ,J> 
EFLUX { I , d) 
FUSION* I ,d) 


$VC1 1370 
SVCI 1380 
IM) )$VC1 1390 
$VC 1 1 400 
SVC  11410 
SVC1 1420 
$VC1 1430 
$VC1 1440 
$VC1 1450 
SVC1 1460 
SVC 1 1470 
$VC1 1480 
SVC! 1490 
SVC1 1500 
SVC1 1510 
SVC1 1520 
SVC  1 1530 
SVCI 1540 
SVC  1 1550 
SVC  t 1560 
SVC1 1570 
SVC  1 1580 


SVC1 1590 
SVC  11600 

r . o.o 

SVC  1 1610 
SVC  1 1620 

r . o.o 

SVC1 1630 
SVC  1 1640 
SVC  1 1650 
SVC  1 1660 
SVC  1 1670 
$VC1 1680 
SVCI 1690 

* %*  * * 

SVC 1 1700 
SVC  11710 
SVC1 1720 
SVC1 1730 
SVC1 1740 
SVC  1 1750 

SVC 1 1760 

♦ *■  * * 

SVC 1 1770 

♦ * ♦ * 

SVC  11780 

+**  * 

SVC  1 1790 

+ * «c 

SVC1 1800 

* * * * 

SVC1 1810 

* ★ 4 * 

SVC  1 1820 

* * * * 

SVC1 1830 

* * * * 

$VC1 1840 

* *** 

SVC1 1 880 

**  + * 

SVC  1 I860 

***** 

SVC1 1870 

* * * * 

SVC  1 1880 

* ♦ * * 

SVC 11890 

’*■**■* 

SVC1 1900 

* * * * 

SVC1 1910 

* **  * 

SVC1 1920 

* * * * 

SVC1 1930 

* * * * 

SVC1 1940 

**  + * 

Svci 1950 

**** 

SVC  1 I960 

**♦* 

SVCI 1970 

* * * * 

SVCI 1980 

* * + * 

SVCI 1990 

***  * 

SVC  12000 

**** 

SVC 120 10 

*■  * + * 

SVC  12020 

★ * * * 

SVCI 2030 

**  * * 

SVC  12040 

* **  * 

SVCI 2050 

**  4c  * 

SVC  12060 

•*=*** 

SVC 1 2070 

Qo 

ss 

o? 

zo  g 


•O 

Pag 

lZ  J-a 


C0MP3  17 


C * I*  * * 

c **** 
c **** 
c **  ** 

o **** 


THEREFORE,  THESE  FLUXES  MUST  BE 
SCALED  BY: 

F = p ♦ 10  LANGLEY/DECA-LANGLEY 

LE  - LE  * 10  LANGLEY/DECA-LANGLEY 


00707 

00708 

00709 

00710 

00711 

00712 

00713 

00714 

00715 

00716 

00717 

00718 

00719 

00720 

00721 

00722 

00723 

00724 

00725 

00726 

00727 

00728 

00729 

00730 


00733 

00734 

00735 

00736 

00737 
0073S 

00739 

00740 

00741 


00743 

00744 


00745 

00746 

00747 

00748 

00749 

00750 


EVAL  < 1 : IM)  = HEATW 
CZH ( 1 ; IM ) = 
czm  1 ; XM>  = CZH { 1 ; IM 
CZH ( 1 ; IM)  = CZHMjIM 
CZH ( 1 ; IM ) = VSORT { C 

WHERE < SNOWY ( 1 ; IM)  ) 
EVAL ( 1 1 IM)  = HEATI 
CZHMsXM)  = 2.3 
endwhere 

WHERE ( ICY  < 1 ; IM)  ) 
EVAL ( 1 ; IM)  = HEATI 
CZH ( 1 I IM)  =5.1 
ENDWHERE 

WHERE  { FROSTY (1 ; IM)  ) 
EVAL ( 1 ; IM)  - HEATI 


^f***►**  + ****'l'*****',•'**♦*^,*’*,'* 


n%”  0.386  + 0.15  * WET(1;IM) 

CZH { 1 ; IM)  * (1.000  ♦ WETdilM)) 

CZHdjIM)  * 2 . E-3*SDAY /PI 2 
VSORT ( CZH ( 1 i IM ) ; CZH ( 1 ; IM)  ) 


= 0.33t  + °-075  * WET  1:™ 

ciu( ! ' IM)  = CZH( 1 ; IM)  * (2.000  + 2. BOO  * WETdilM)) 
CZH  :IM)  = CZH(lltM)  * 1 .E-3*SDAY/PI2 
CZH(tjlM)  = VSQRT ( CZH( 1 i IM) ;CZH( 1 ; IM)  > 

ENDWHERE 


TEMP (1.1: IM)  = 10.*DRAW(1;IM)*RHOS(1;IM)*SDAV 

TEMP  (1*3-  IM)  l -EVAL(  l”lM)*E^E?UlM)  UlMP  ( 1 . 1 i IM)  *DSHS(  1 ; IM) 
IF(LHFLUX)  OSDIAGd.JHFLUX.JilM)  = ggDI  AG(  d IHFLUX . d^IM) 

*IF(LEFLUX>  OSDIAGtl.IEFLUX.JilM)  = ggDI AGd . I EFLUX . J dM 1 

SHS  { 1 , <J  ; 2M ) = SHLE  ( 1 , NLAYP  1 • IM ) 


DO  1160  1 = 1, IM 
IF  (OCEANU)) 


GO  TO  1160 


IF  { ICE { I ) .AND.  Z< I ) ♦ LT . . 1 > TEM  = CTID/Hict 

TGSQ  = TG ( I ) **2 

DRAD  = 4 . *STBO*TGSQ+ TG { I ) 

TEMP  ( X . 4^=ATEM*  dICET-STG(  I ) ) _ ^ 

TEMPtI  B)  = SDAV*CZH(I)  DTC3  ^DRAD  - TEMwm  + , 

1 + EVAL(I)1  *ivE(I)  * DSQG  / (EVACO(I)  + EDV ( I > ) ) 

I ISO  CONTINUE 

; ;n„ 

| t TEMP  M ! 4 1 IM)  ) / TEMP (1 , 5 ; IM> 

!MI?ELFUSION>  GO  TO  1161 

^QSDIAGI  1?IFU5I0N?J;  IM)  * OSDIAOI  1 . IFUSION,  J ; IM^  ( % , 4 ; 

ENDWHERE 
1161  CONTINUE 

++•+*+++**•++*+********•*************•**+***•*******1111 

****  HEATING  DUE  TO  ABSORBED  .RADIATION  **** 

****  AND  TOTAL  MOISTURE  ADJUSTMENT 


TEM  = 0. 

TEM  = CTID/HICE 


(EVACO( I ) 


EDV(I > ) 
EDV ( I ) ) 


SVC120B0 
$VC 12090 
SVC12100 
SVC  12110 
SVC 12120 
$VC 12 130 
SVC  12  140 
SVC  12 150 
SVC  12160 
SVC  12170 
SVC  121  BO 
SVC  121 90 
SVC  12200 
SVC  122 10 
SVC  12220 
SVC 1 2230 
$VC 12240 
SVC  12250 
SVC 12260 
SVC  12270 
SVC  12280 
SVC122S0 
SVC  1 2300 
SVC  123 10 
SVC  12320 
SVC  1 2330 
$VC 12340 
SVC 12350 
$VC 12360 
SVC  12370 
SVC  12380 
SVC 12390 
SVC t 2400 
SVC  124 10 
SVC  12420 
SVC  12430 
SVC  12440 
SVC  12450 
SVC  12460 
SVC12470 
SVC  12480 
$VC 12490 
$VC 12500 
SVC  125 10 
SVC 1 2520 
$VC 12530 
SVC  12540 
SVC 12650 
SVC 12560 
SVC12570 
SVC  12580 
SVC  12690 
SVC  12600 
$VC 1 26 1 0 
SVC 1 2620 
SVC 12630 
SVC 12640 
$VC 12650 
SVC 1 2660 
SVC 12670 
SVC 12680 
SVC 12690 
SVC  12700 
SVC  12710 
SVC  12720 
SVC 1 2730 
SVC12740 
SVC12750 
SVC127G0 
SVC 12770 
SVC  1 2780 


O Q 
-n  g| 

0 2 
S3  p 
& 

pa 


CQMP3  X8 


0075 1 

00752 

00753 


00754 

00755 

00756 

00757 


00758 

00759 

00760 


00761 

00762 

00763 

00764 

00765 


00766 

00767 

00768 


00769 


00770 

00771 

00772 

00773 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* * * * 

* * * * 
♦ * * * 

+ **  * 

* % -*  * 
**** 

• * * * 
**** 

* * ** 

* * * * 
**** 

* * * * 

* * * * 

* * * * 

* * * * * 


NOTE: 

WhIr!:C°LSP  = GRAV*DELT/no.SP*CP*DSTG(L)> 

DELT  * C0MP3  TIME  INCREMENT 
CP  = SPECIFIC  HEAT 

DIAGNOSTICS: 

OIABAT  = TOTAL  DIABATIC  HEATING.  INCLUDING 
RADIATION,  IN  DECI - KELVI N/OAY 
= AIR-SURFACE  TEMPERATURE 

* MINIMUM  AIR-SURFACE  TEMPERATURE 
» MAXIMUM  AIR-SURFACE  TEMPERATURE 


TS 

TWIN 

TMAX 


* * * * 
**** 
**  ** 
* * * * 
***  * 
**** 
***  * 
**  * * 
* + * * 
**** 
* * ** 
★ *** 
**** 
**** 
>* **** 


*************** 

CUMD10  = 1 , E 1 *CUMDAY 
COLMR I 1 ; IM ) r PIM/SP(1;IM> 

TEMP1 1 , 1 ; IMNLAY)  = AS ( 1 , 1 ; IMNLAV ) 

| ♦ RE< 1 * 2 ; I MNLA V ) 

S - RE { 1 . 1 jIMNLAY) 

DO  S20  L= 1 , NLA Y 

520  CONTINUE  5 1M>  = TEMP(1‘L:IM)  * COE < L ) <■  COLMR (1 ; IM) 


TEMPI  1,1; IMNLAY) 


- TLI 1 . 1 ; IMNLAV) 
+ TEMPI  1,1; IMNLAY) 


T I 1 , 1 ,NB,d; IMNLAY) 


C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


|OUDIAG( I, (.IDlABAT.ds IMNLAY^ =_QUDIAG<1,1^iDIABAr.J: IMNLAV) 

TS{ 1 , J ; IM)  = TLEI 1 ,NLAYP1 ; IM) 

^ j ^ IN)  BIT72I1;IM)  — TSIt.UsIM)  LT  OSDTAfsfl  ttmtw  i • t*h  t 

IF(UTMAX)  WHERE  ( BtT72(1,IM)  > QSDIAGI  T?iTMAX?“lM>  ' 

****BI  ******«**«*****»******, 

CALL  ZEITBEG{SHC0MP35  >*** 

CALL  COMP35  (J) 

CALL  ZEITEND 

’“***  **** 

******************************* 

IF  (FMU.LE.O.)  GO  TO  900 

***************  *********************** 

!***  ***♦ 

!!!!  internal  friction  **** 

****  DUE  TO  VERTICAL  SHEAR  OF  **** 

****  HORIZONTAL  WIND  **** 

*+**  **** 

****  NOTE : **** 

****  FC0EF1  « MU/RGAS  * (G/SP)**2  **** 

****  Wy  = 0.00067  * TREF/PREF  **** 

TREF  ~ 268  KELVIN  **  + * 

****  PREF  - 500  MILLIBAR  **** 

****  **** 

*********  ^t***********,^*^.^^^^^^^^* 

FCOEF 1(1; IM)  = FCOEF/SP M ; IM) **2 
UDNIIjtM)  = UIM  MB  d IM 
VDN < 1 ? IM)  = VII  1 NB  J IM 
TON ( f ; JM)  = T(1  1 NB  J IM 


SVC12790 
SVC 1 2800 
SVC  1 28 1 0 
SVC  12820 
SVC  12830 
SVC  12840 
SVC 1 2850 
SVC12860 
SVC12B70 
SVC  12880 
SVC12890 
SVC 12900 
SVC  129 10 
SVC  12920 
SVC  12930 
SVC 12940 
SVC  12950 
SVC 1 2960 
SVC 12970 
SVC  12980 
SVC  12990 
SVC13000 
SVC  130 10 
SVC 13020 
SVC  13030 
SVC  13040 
SVC  13050 
SVC  13060 
SVC  13070 
SVC  13080 
$VC 13090 
SVC13100 
SVC131 10 
SVC  13 120 
SVC  13130 
SVC 13140 
SVC13150 
SVC  131 60 
SVC  13  170 
SVC  1 3 1 80 
SVC  131 90 
SVC 13200 
SVC  1 32 1 0 
SVC13220 
SVC  13230 
SVC  13240 
SVC  1 3250 
SVC  13260 
SVC 13270 
SVC  13280 
SVC 13290 
SVC  13300 
SVC  133  10 
SVC  13320 
SVC13330 
SVC  13340 
$VC 13350 
SVC  13360 
SVC t 3370 
SVC  13380 
SVC13390 
SVC 1 3400 
SVC  134 10 
SVC 1 3420 
SVC  13430 
SVC  1 3440 
SVC 13450 
SVC  1 3460 
SVC 1 3470 
SVC  13480 
SVC  1 3490 
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c 


00774 

00775 

00776 

00777 

00778 
00775 

00780 

00781 
007B2 

00783 

00784 
0078B 

00786 

00787 

00788 

00785 
00790 
0079  1 

00792 

00793 

00794 

00795 

0079S 

00797 

00798 

00799 


C 


c 


c 


c 


c 

c 


DO  860  L-2 , NLA V 
LM1  = L-  1 

DSIGBR  = 1 . / < DSIG<  L ) + DSIG(LMI) 
DELSIG  = 1./(  SIG { L ) - SIG(LMI) 
ASGU  = 1 « /DSIG ( L ) 

ASGLM1  = 1 , /DSIG ( LM1 ) 


) 

) 


UUP<1 ; IM) 
VUP(1 ; IM) 
TUP(1 ;IM> 
UDN { 1 ; IM) 
VDN  ( 1 ; IM) 
TDM ( 1 ; IM ) 


UDN( 1 ;IM> 

VDN ( 1 ;IM) 

TON ( 1 ; IM) 

U( t , L , N8 ♦ J ; IM) 
V< 1 , L , MB , J ; I M ) 
T< 1 ,L,NB9d;IM> 


TEMP(1 * 1 ;IM)  * 

TEMP ( 1 , 2 ; IM)  = 
TEMP  <1,3; IM)  = 


< DSIG ( L >*PL< 1 ,LM1;IM)/TUP<1 ;IM) 
DSieaMU*PLM,  L ; IM)  /TDN(  1 ; IM) 
(UDN ( 1 ; IM) -UUP ( 1 ; IM) ) ♦DELSIG 
( VDN ( 1 ; IM) - VUP ( 1 ; IM)  ) *DELSIG 


>*DSIGBR 


TEMPI  1 , 1 ; IM) 
TEMPI  1 * 2 ; IM) 
TEMP ( 1 ,3; IM) 


FCOEF1 < t ;IM) 
TEMP ( 1 . 1 ;IM> 
TEMP { 1 t 1 ;IM> 


TEMP  (1,1:  IM)  **2. 
TEMP ( 1 ,2; IM) 
TEMP ( 1 , 3 ; IM ) 


U ( 1 ( LM1 , NB , J ; IM) 
U ( 1 , L , NB , J ; IM) 
V ( 1 t LM 1 , NB , d ; I M ) 
V ( 1 , L ,NB,U;IM> 

860  CONTINUE 


= U( 1 * LM 1 ,NB, J; IM)  + 
» U(1,L  , NB , d ; IM)  - 
* V( 1 , LM1 , NB , J ; IM)  + 
= V ( 1 , L , NB , J ; IM)  - 


TEMP ( 1 # 2 ; IM > *ASGLM1 
TEMPI  1 . 2; IM)*ASGL 
TEMP ( 1 ,3; IM)*ASGLMt 
TEMP{ 1 , 3 ; IM) *A5GL 


900  CONTINUE 
RETURN 
END 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


SVC  1 3500 
SVC  135 10 
SVC  13520 
SVC  13530 
SVC 13540 
SVC  13550 
SVC  13560 
SVC  13570 
SVC 13580 
SVC  13590 
SVC  13600 
SVC 1 36 1 0 
SVC13620 
SVC 13 630 
SVC  13640 
SVC 13650 
SVC13660 
SVC 1 3670 
SVC  1 3680 
SVC  13690 
SVC13700 
SVC 137 10 
SVC 1 3720 
SVC 1 3730 
SVC 13740 
SVC 13750 
SVC  1 3760 
SVC13770 
SVC 13780 
SVC  13790 
SVC13B00 
SVC 138 10 
SVC  13820 
SVC  13830 


O 

p 


LO 


N> 

O 


10000 

397 

1120 

666 

654 

655 

1130 

684 

669 

1160 

742 

733 

734 

1 161 

750 

746 

120 

594 

588 

589 

180 

630 

607 

202 

642 

632 

637 

30 

423 

420 

300 

667 

651 

310 

681 

674 

320 

683 

671 

40 

465 

436 

410 

699 

689 

694 

42 

464 

438 

443 

520 

756 

754 

80 

500 

482 

860 

796 

774 

900 

797 

769 

VARIABLE  MAP 


•NAME 

SLOCK 

--TYPE-- 

AAA 

DCOMP3 

REAL 

ACLH 

REAL 

ADATE 

CCNTRL 

CHAR*8 

AOLDP 

RDPARM 

REAL 

AGRAV 

REAL 

AL 

RADCOM 

REAL 

ALBEDO 

QANDQT 

REAL 

APHEL 

RCNTRL 

REAL 

AROCP 

REAL 

AS 

RADCOM 

REAL 

-CLASS 

REPERENCES 

A=ARGLIST 

ARRAY 

389 

549/S  550/S 

SIMPLE 

603/5 

624 

SIMPLE 

3 

16 

SIMPLE 

21  1 

SIMPLE 

401/S 

415  682 

ARRAY 

335 

ARRAY 

250 

263 

SIMPLE 

151 

SIMPLE 

505/S 

516 

ARRAY 

320 

753 

C=CTRL  OF  DO, 
550  554 


I=DATA  INIT,  REREAD,  S=ST0REt  W=WRITE 
556  658  562 
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ASGL 

ASGLM1 

ASGPLS 

ATIME  CCNTRL 

BBB  DC0MP3 

BETA  RCNTRL 

BIT72 


REAL 

REAL 

REAL 

CHAR  *8 

REAL 

REAL 

BIT 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 


BITMAX 

CIO  CNTPLP 
CIOO  CNTRLP 
C40  CNTRLP 
C4G 

CALTOd  RCNTRL 
CC  CCNTRL 
CCO  CCNTRL 
CCC  DCOMP3 
CCNTRL 


BIT 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

PEAL 

SIMPLE 

REAL 

SIMPLE 

CHAR*8 

ARRAY 

CHAR*8 

SIMPLE 

REAL 

ARRAY 

REAL 

UNKNOWN 

484/S 

495 

499 

778/S 

793 

795 

485  /S 

494 

498 

779/S 

792 

794 

4B6/S 

488 

489 

4 

17 

390 

152 

551/S 

556 

556 

558 

561 

561 

563 

395 

467/S 

565 

626 

702/S 

3S5 

402/S 

468 

560 

635/S 

703 

403/S 

474/S 

568 

636 

762/S 

407 

475 

569 

638 

763 

430/S 

512/S 

579/S 

643/S 

764/S 

431 

513 

581 

644 

765 

432/S 

520/S 

5B3/S 

692/S 

433 

523 

584 

693 

441/S 

531 

619/S 

695 

442 

544/S 

620 

700/S 

445 

545 

625 

701 

290 

532 

548 

551 

575 

291 

532 

292 

543 

575 

543/S 

190 

550 

551 

14 

15 

2 

14 

15 

391 

552/S 

556 

562 

563 

2 

13 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

CCSP06 

CCNTRL 

CCSP07 

CCNTRL 

CCSP08 

CCNTRL 

CD 

DCOMP3 

CDATE 

RADC0M 

CDFR 

CNTRLP 

CDXL 

CNTRLP 

CDXO 

CNTRLP 

CLH 

CNTRLP 

CLOUD 

RADCOM 

CNTRLP 

COE 

CNTRLP 

COEF 

CNTRLP 

COEFS 

CNTRLP 

COLMR 

DC0MP3 

COMP  3 
CONI 

RDPARM 

CON IDT 

RDPARM 

CON2 

RDPARM 

C0N2DT 

RDPARM 

COM3 

RDPARM 

CON3DT 

RDPARM 

C0N4 

RDPARM 

C0N4DT 

RDPARM 

C0N5 

RDPARM 

COSD 

RCNTRL 

COSL 

RDPARM 

COSLON 

RDPARM 

COSROT 

CNTRLP 

COSZ 

RADCOM 

CP 

RCNTRL 

CPD2 

RDPARM 

CP  P 

CNTRLP 

CQS 

CCNTRL 

CQU 

CCNTRL 

CTID 

CNTRLP 

GUM1E4 

CUMD10 

CUMDAV 

CNTRLP 

CUMRAT 

CNTRLP 

CVQ 

RADCOM 

CVT 

RADCOM 

CXDE 

RADCOM 

CXL 

RADCOM 

CZH 

RADCOM 

CHAR*8 

SIMPLE 

CHAR*8 

SIMPLE 

CHARTS 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

UNKNOWN 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

SUBROUTINE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SEMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

char*b 

ARRAY 

CHARTS 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 
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784 

785 

792 
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NDAY 

ICNTRL 

INTEGER 

SIMPLE 

MDMOG 

ICNTRL 

INTEGER 

SIMPLE 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

NDTC3 

CNTRLP 

INTEGER 

SIMPLE 

NFK 

RADCOM 

INTEGER 

SIMPLE 

NFLW 

CNTRLP 

integer 

SIMPLE 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

NHMS1 

IDPARM 

INTEGER 

SIMPLE 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

NLAY 

ICNTRL 

INTEGER 

SIMPLE 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

NLAYOZ 

RADCOM 

INTEGER 

SIMPLE 

NLAYP 1 

ICNTRL 

INTEGER 

SIMPLE 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

NOZ 

RADCOM 

INTEGER 

SIMPLE 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

NYMD1 

IDPARM 

INTEGER 

SIMPLE 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

OCEAN 

RADCOM 

LOGICAL 

ARRAY 

OCM22 

RADCOM 

REAL 

ARRAY 

0CM30 

RADCOM 

REAL 

ARRAY 

OCM38 

RADCOM 

REAL 

ARRAY 

OCM46 

RADCOM 

REAL 

ARRAY 

OCMXX 

RADCOM 

REAL 

ARRAY 

OLAPR 

RADCOM 

REAL 

ARRAY 

OLdAN 

RADCOM 

REAL 

ARRAY 

OLJUL 

RADCOM 

REAL 

ARRAY 

OLOCT 

RADCOM 

REAL 

ARRAY 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

OZALE 

RADCOM 

REAL 

ARRAY 

P 

QANDQT 

REAL 

ARRAY 

PCLOW 

PCON 

REAL 

ARRAY 

PCMIO 

PCON 

REAL 

ARRAY 

PCON 

PCPEN 

PCON 

REAL 

REAL 

UNKNOWN 

ARRAY 

PHI 

QANDQT 

REAL 

ARRAY 

PHIS 

QANDQT 

REAL 

ARRAY 

PI 

RCNTRL 

REAL 

SIMPLE 

P1 180 

RCNTRL 

REAL 

SIMPLE 

P 1 2 

RCNTRL 

REAL 

SIMPLE 

PIM 

CNTRLP 

REAL 

SIMPLE 

PI MEAN 

RCNTRL 

REAL 

SIMPLE 

PKSTD 

RDPARM 

REAL 

SIMPLE 

PKTOP 

RDPARM 

REAL 

SIMPLE 

PL 

RADCOM 

REAL 

ARRAY 

PLE 

RADCOM 

REAL 

ARRAY 

PLEVS 

RCNTRL 

REAL 

ARRAY 

PLK 

RADCOM 

REAL 

ARRAY 

PLKE 

RADCOM 

REAL 

ARRAY 

P MO I ST 

PCON 

REAL 

ARRAY 

PRECIP 

DC0MP3 

REAL 

ARRAY 

55 
76 

56 

57 
31 


304 
341 

305 
60 
62 

203 
6 T 
50 


63 

399 

400 

420 

426 

538 

539 

586 

598 

598 

601 

602 

602 

604 

607 

671 

672 

673 

675 

675 

679 

679 

680 

680 

680 

774 

64 

426 

427 

340 

65 

424 

506 

533 

534 

590 

591 

592 

592 

593 

761 

75 


344 

66 

67 

69 

71 

73 
204 

72 

74 

349  351  410  734 

343 

343 

343 

343 

344 
342 
342 
342 
342 
166 
336 


255 

354 

352 

268 

686 

686 

416 

352 

353 
260 

353 

686 

273 

354 

355 

248 

167 

168 

261 

405 

415 

169 

306 

710 

752 

724 

171 

232 

233 


321 

321 

185 

421/S 

422/S 

425 

424/S 

488 

506 

488 

501 

322 

496 

322 

355 

425/S 

599 

425 

612 

437 

612 

440 

446 

37  B 

668/S 

682/S 

682 

686 

G88 

to 

CT» 


427 

438 

482 

511 

513 

517 

599 

899 

599 

600 

GOO 

601 

608 

632 

643 

644 

651 

671 

675 

677 

677 

678 

678 

679 

680 

682 

689 

700 

701 

754 

570 

571 

586 

587 

589 

590 

593 

595 

596 

702 

703 

732 

664 

679 

7B6 

786 

446 

449 

450 

489 
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PREP 

PROCM 

PS 

PSK 

PSMAX 

PSMIN 

PSTD 

PTOP 

P2ERO 

QALT 

QANDQT 

QBEG 

QDAV 

QEND 

QHOG 

QOUT 

QPHV 

QPROG 

QRSH 

QRSW 

QSDIAG 

Q5HF 
QUO I AG 
RADCOM 


RADE 

RADTRM 

RC 

RCO 

RCLOUD 

RCNTRL 


RDPARM 


RE 

RGAS 

RH 

RHOS 

RHS 

RLAT 

RLATD 

RN 

ROCP 

ROCPDT 

ROCPP1 

RSDIST 

RSURF 

SO 

SDAY 

SEASON 

SG 

SGNP 

5H 

SHG 

SHL 


SHLE 

SHLTOP 

SHS 


RADCOM 

RADCOM 

DC0MP3 

DC0MP3 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

CNTRLP 

LCNTRL 

LCNTRL 

QANDQT 

LCNTRL 

LCNTRL 

QANDQT 

LCNTRL 

QANDQT 


RCNTRL 

RADCOM 

RCNTRL 

RCNTRL 

RADCOM 


RADCOM 

RCNTRL 

RADCOM 

DC0MP3 

DCOMP3 

RDPARM 

RDPARM 

RADCOM 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RADCOM 

RADCOM 

RCNTRL 

RCNTRL 

RADCOM 

RDPARM 

QANDQT 

RADCOM 

RADCOM 


RADCOM 

CNTRLP 

QANDQT 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

REAL 

LOGICAL 

LOGICAL 

REAL 

LOGICAL 

REAL 

REAL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


REAL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


REAL 

REAL 

REAL 


ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

UNKNOWN 


SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

UNKNOWN 


UNKNOWN 


ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 


ARRAY 

SIMPLE 

ARRAY 


345 

344 

379 

380 

172 

173 
170 

174 
191 

96 
247 

97 

98 

99 
307 

too 

101 

247 

271 

105 

104 

274 

748 

102 

277 

320 

331 

342 

175 
346 
192 
150 
348 
150 
161 
172 
183 
211 
222 

233 
244 
320 

176 
328 
369 
382 

234 

235 
338 

177 

236 

237 

178 
34B 

346 

179 

180 

347 

238 
259 
326 
325 
499 
639/S 
663 
701/S 
325 
625 
308 
254 


686/S 

506/S 

507/S 


421 

122 

274 

123 

124 

125 
319 
126 

127 
261 
272 
131 
130 
276 
762 

128 
760/S 
321 
332 
343 

744 

193 

192 

151 

162 

173 

184 

212 

223 

234 

245 

753 

487 

503/S 

596/S 

610/S 

403 


504 


710 


272 

585/S 

418/S 

503 

639 

671 

759 

586/S 

626/S 

267 


687 


607 

507 


422 

277 


659 


688 

508 

517 


424 


673 


514 


585 


587 


595 


262 

273 

263 

264 

265 

266 

267 

268 

269 

270 

687/S 

763/S 

687 

764 

668/5 

765/S 

688 

730/S 

730 

731/S 

7GI 

748 

760 

322 

333 

344 

323 

334 

345 

324 

335 

346 

325 

336 

347 

325 

337 

348 

327 

338 

349 

328 

339 

350 

329 

340 

330 

341 

193 

152 

163 

174 

185 

213 

224 

235 

246 

153 

164 

175 

186 

214 

225 

236 

154 

165 

176 

187 

215 

226 

237 

155 

166 

177 

188 

216 

227 

238 

156 

167 

178 

189 

217 

228 

239 

157 

168 

179 

190 

218 

229 

240 

158 

169 

180 

191 

219 

230 

241 

159 

170 

181 

220 

231 

242 

160 

171 

182 

221 

232 

243 

753 

504 

51  1 

597 

513/S 

403 


505 


595 

513 

727 

516 


724 


418 

585 
451 

586 
639 
675 

589 

628 

732/S 


727 


769/S 

586 

451 

600/S 

640/S 

678/S 

591 

702 


741 


596 

453/S 

600 

643 

678 

739 

454/S 

618 

644/S 

692 

491 

618 

655 

696/S 

491 

621 

656 

696 

428 /S 
621 
661/S 
696 

498 

627 

661 

697/S 

499 

635 

663 

700 

593/S 

703/S 

593 

732 

596 

618/S 

619 

621/S 

621 

n 

O 

§ 

LO 

ro 

-vl 


SHSAT 

RADCOM 

REAL 

ARRAY 

327 

SHSATS 

DC0MP3 

REAL 

ARRAY 

665 

381 

SIG 

RDPARM 

REAL 

ARRAY 

245 

SIGE 

RCNTRL 

REAL 

ARRAY 

181 

SIND 

RCNTRL 

REAL 

SIMPLE 

182 

SI  (ML 

RDPARM 

REAL 

ARRAY 

239 

SINLON 

RDPARM 

REAL 

ARRAY 

240 

SINROT 

CNTRLP 

REAL 

SIMPLE 

309 

SMTH 

QANDQT 

REAL 

ARRAY 

249 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

103 

SNOW 

RADCOM 

LOGICAL 

ARRAY 

350 

SNOWN 

CNTRLP 

REAL 

SIMPLE 

310 

SNOWS 

CNTRLP 

REAL 

SIMPLE 

31  1 

SNOWY 

BIT 

ARRAY 

393 

SOLS 

RCNTRL 

REAL 

SIMPLE 

183 

SP 

RADCOM 

REAL 

ARRAY 

347 

SRS 

RADCOM 

REAL 

ARRAY 

338 

S5S 

RADCOM 

REAL 

ARRAY 

329 

SSSE 

RADCOM 

REAL 

ARRAY 

329 

START 

LDPARM 

LOGICAL 

SIMPLE 

207 

STBO 

CNTRLP 

REAL 

SIMPLE 

312 

STERP1 

CNTRLP 

REAL 

SIMPLE 

313 

STERP2 

CNTRLP 

REAL 

SIMPLE 

314 

STN 

RADCOM 

REAL 

ARRAY 

338 

SWALE 

RADCOM 

REAL 

ARRAY 

334 

SWIL 

RADCOM 

REAL 

ARRAY 

334 

T 

QANDQT 

REAL 

ARRAY 

268 

TAUL 

RADCOM 

REAL 

ARRAY 

336 

TGOND 

RADCOM 

REAL 

ARRAY 

339 

TON 

DC0MP3 

REAL 

ARRAY 

377 

TEW 

REAL 

SIMPLE 

735/ 

TEMP 

REAL 

ARRAY 

396 

TG 

RADCOM 

REAL 

ARRAY 

TGSQ 

REAL 

SIMPLE 

TH 

RADCOM 

REAL 

ARRAY 

THG 

DC0MP3 

REAL 

ARRAY 

THSTD 

RDPARM 

REAL 

SIMPLE 

THSTD2 

RDPARM 

REAL 

SIMPLE 

THT9 

DC0MP3 

REAL 

ARRAY 

TICE 

CNTRLP 

REAL 

SIMPLE 

TL 

RADCOM 

REAL 

ARRAY 

TLE 

RADCOM 

REAL 

ARRAY 

TLOWL 

RADCOM 

REAL 

SIMPLE 

TLTOP 

CNTRLP 

REAL 

SIMPLE 

TMIDL 

RADCOM 

REAL 

SIMPLE 

TN 

RADCOM 

REAL 

ARRAY 

TOPABS 

RADCOM 

REAL 

ARRAY 

455/S 

466 

492/S 

497 

516 

526 

533 

554/S 

562/S 

568 

578/S 

601 

623/S 

731 

756 

790 

324 

737/S 

324 

599/S 

383 

241 

242 
385 

315 
323 
494 
615 
679 
323 
761 

340 

316 
340 
338 
337 


501/S 

671 

501 

675 

502 

679/S 

503 

6B0 

624 

629 

63  * 

655 

656 

508/S 

421 

422 

508 

490 

509 

430 

587/S 

491 

587 

491 

589 

777 

590 

777 

591 

664 


LO 

N> 

00 


262 

129 

351 

403 

403 

407/S 

411 

408 

41  1 

433 

416/S 

421 

422 

424 

604/S 

616 

617/S 

623 

616/S 

617 

623 

628 

210 

738 

426 

426 

427 

427 

271 

417 

767 

758/S 

773/S 

782 

785/S 

786 

736/S 

740 

741 

446/S 

447 

448 

449 

456/S 

456 

457 

458 

467 

469 

■473/S 

474 

492 

493/S 

493 

493 

497 

498 

499 

509/S 

5 19/S 

520 

521/S 

522/S 

527/S 

527 

528/S 

52B 

544 

647/S 

547 

54B/S 

554 

655 

556/S 

557/S 

562 

563/S 

563 

565/S 

568/S 

568 

570 

574/S 

579 

681 

590/S 

591/S 

602 

612/S 

G13/S 

613 

624/S 

624 

625 

626 

740/S 

741/S 

74? 

744 

757/S 

757 

758 

760 

790 

791/S 

791 

791 

435/S 

518 

534 

542 

738 

437/S 

739 

440/S 

441 

441 

615/S 

516 

516 

517/S 

518 

533 

570 

409 

432 

433 

740 

417/S 

437 

440 

446 

495/S 

495 

496 

501 

615 

660/S 

660 

662/S 

680 

680 

757 

533/S 

534 

670/S 

571 

712 

487 

514 

597 

627 

629 

631 

682  762  770 


758 

773 

785 

450 

451/S 

452/S 

459/S 

460/S 

460 

476 

487/S 

488/S 

493 

493 

494 

511/S 

512 

513 

524/S 

524 

525/S 

528 

530/S 

530 

548 

549 

550 

557 

557 

55S/S 

566/S 

566 

566 

574 

574 

575/S 

591 

592 

593 

614/S 

614 

615/S 

727/S 

728/S 

728 

744 

744 

744 

7B6/S 

787/S 

788/S 

792 

793 

794 

571 

585 

737 

447/S 

448/S 

490 

446 

449/S 

450/S 

502 

598/S 

598 

662 

664 

665 

587 

590 

590 

452 

453 

454 

461 

462 

466 

489/S 

490/S 

491 

495 

497/S 

497 

514/S 

515 

516 

525 

525 

526 

530 

532/S 

532 

551 

551 

551 

558 

560 

561 

567/S 

567 

568 

575 

577 

577 

697 /S 

598 

600 

616 

616 

617 

729/S 

729 

730 

748 

753/S 

755 

789/S 

789 

790 

795 

738 

740 

744 

490 

496/S 

517 

488 

488 

494 

599 

614 

614 

665 

677/S 

677 

592/S  592  696 
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TOTOZ 

RADCOM 

REAL 

ARRAY 

344 

TPENE 

RADCOM 

REAL 

ARRAY 

339 

266 

TS 

QANDQT 

REAL 

ARRAY 

253 

TSTD 

RCNTRL 

REAL 

SIMPLE 

184 

7B2/S 

TUP 

DC0MP3 

REAL 

ARRAY 

376 

U 

QANDQT 

REAL 

ARRAY 

256 

771 

269 

783 

UDN 

DC0MP3 

REAL 

ARRAY 

373 

771/S 

US 

DCOMP3 

REAL 

ARRAY 

358 

426/S 

UUP 

DCOMP3 

REAL 

ARRAY 

372 

780/S 

V 

QANDQT 

REAL 

ARRAY 

257 

772 

270 

784 

VDN 

DCOMP3 

REAL 

ARRAY 

375 

772/S 

VER 

CCNTRL 

CHARTS 

SIMPLE 

10 

23 

VS 

DCOMP3 

REAL 

ARRAY 

359 

427/S 

VUP 

DC0MP3 

REAL 

ARRAY 

374 

7B1/S 

WATER 

BIT 

ARRAY 

393 

405/S 

WET 

RADCOM 

REAL 

ARRAY 

345 

429/S 

WX 

RADCOM 

REAL 

ARRAY 

345 

469/S 

WMAG 

DC0MP3 

REAL 

ARRAY 

361 

WMAGC 

DCOMP3 

REAL 

ARRAY 

365 

546/S 

WMAGS 

0COMP3 

REAL 

ARRAY 

360 

428/S 

WSAVE 

RDPARM 

REAL 

ARRAY 

243 

XDAY 

CNTRLP 

REAL 

SIMPLE 

317 

XK 

RADCOM 

REAL 

ARRAY 

341 

24 

XL ABEL 

CCNTRL 

CHAR+8 

ARRAY 

1 1 

Z 

DC0MP3 

REAL 

ARRAY 

357 

4 1 5 /S 

ZLNCO 

CNTRLP 

REAL 

SIMPLE 

318 

614 

508 

509 

514 

515 

761/S 

762 

762 

764 

765 

786 

426 

426 

456 

455 

457/S 

458/S 

53P 

601/S 

601 

792/S 

792 

793/S 

793 

780 

783/S 

787 

428 

£38 

601 

787 

427 

427 

459 

459 

461/S 

462/S 

539 

602/  S 

602 

794/S 

79a 

795/S 

795 

781 

784/S 

78B 

428 

539 

602 

788 

406 

410 

415 

480 

743 

747 

434/S 

511 

513 

578 

70S 

709 

722 

723 

471/S 

473 

522 

522 

536 

546 

547 

573 

466 

546 

548 

565 

572 

480  736 


PROCEDURE  MAP 


NAME 

--TYPE 

--CLASS 

BTOLOG 

SUBROUTINE 

COMP35 

SUBROUTINE 

CUMULO 

SUBROUTINE 

MOIST 

SUBROUTINE 

Q8SCNT 

INTEGER 

INTRINSIC 

QSAT 

REAL 

FUNCTION 

RADIO 

SUBROUTINE 

VABS 

REAL 

INTRINSIC 

VEXP 

REAL 

INTRINSIC 

VEXPBYK 

REAL 

FUNCTION 

VQSAT 

REAL 

FUNCTION 

VSQRT 

REAL 

INTRINSIC 

ZEIT8EG 

SUBROUTINE 

ZE I TEND 

SUBROUTINE 

REFERENCES  D=STMT  FN  DEF , A=ARGLIST 


410 
767  - 
646 
649 

411 

412 

413 

442 

636 

693 

664 

679 

705 

554 

530 

425 

507 

587 

50  1 

508 

585 

466 

624 

535 

557 

645 

648 

704 

766 

647 

650 

706 

768 

O 


U> 


VO 
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OOOO  1 

C 

C 

SUBROUTINE  COMP35  <J> 

CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VC0MP35 

VCNTRL 

VCNTRL 

2 

2 

3 

00002 

COMMON 

/ CCNTRL/ 

CCO 

VCNTEl 

5 

000  03 

COMMON 

/ CCNTRL / 

ADATE 

VCNTRL 

6 

00004 

COMMON 

/CCNTRL/ 

ATIME 

VCNTRL 

7 

00005 

COMMON 

/CCNTRL/ 

JIC 

VCNTRL 

a 

00006 

COMMON 

/CCNTRL/ 

JOB 

VCNTRL 

9 

00007 

COMMON 

/CCNTRL/ 

QCSP06 

VCNTRL 

10 

ooooa 

COMMON 

/CCNTRL/ 

CCSPQ7 

VCNTRL 

1 1 

00009 

COMMON 

/CCNTRL/ 

CCSP08 

VCNTRL 

12 

000  10 

COMMON 

/CCNTRL/ 

VER 

VCNTRL 

13 

000  1 1 

COMMON 

/CCNTRL/ 

XL  ABE  L MO  > 

VCNTRL 

14 

00012 

COMMON 

/ CGNTRL / 

CQS  ( 30 ) 

VCNTRL 

15 

00013 

COMMON 

/CCNTRL/ 

CQU  l 10) 

VCNTRL 

16 

C 

VCNTRL 

17 

000  14 

EQUIVALENCE 

(CC0.CC1 1 ) ) 

VCNTRL 

18 

00015 

CHARACTER  * 8 

CCO  . CC  < 200  > 

VCNTRL 

19 

000  16 

CHARACTER'S 

ADATE 

VCNTRL 

20 

00017 

CHARACTER  * 8 

ATIME 

VCNTRL 

21 

0001S 

CHARACTER'S 

JIC 

VCNTRL 

22 

000  1 9 

CHARACTER'S 

JOB 

VCNTRL 

23 

00020 

CHARACTER'S 

CCSP06 

VCNTRL 

24 

00021 

CHARACTER'S 

CCSP07 

VCNTRL 

25 

00022 

CHARACTER'S 

ccspos 

VCNTRL 

26 

00023 

CHARACTER'S 

VER 

VCNTRL 

27 

00024 

CHARACTER'S 

XLABEL 

VCNTRL 

28 

0 00  25 

CHARACTER'S 

CQS 

VCNTRL 

29 

00026 

CHARACTER'S 

CQU 

VCNTRL 

30 

c 

VCNTRL 

31 

c 
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00027 

COMMON 

/ ICMTRL/ 

ICO 

VCNTRL 

34 

00028 

COMMON 

/ 1 CNTRL/ 

IM 

VCNTRL 

35 

00029 

COMMON 

/ I CNTRL / 

1MD2 

VCNTRL 

36 

00030 

COMMON 

/ I CNTRL / 
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VCNTRL 

37 
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/ 1 CNTRL / 
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VCNTRL 

38 
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JM 

VCNTRL 

39 
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VCNTRL 

40 
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VCNTRL 
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VCNTRL 
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/ I CNTRL / 
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VCNTRL 
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00037 
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/ I CNTRL / 
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VCNTRL 
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/ I CNTRL / 
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00  123 
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00125 

00  126 
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COMMON  / ICNTRL/  NLAYP1 
COMMON  / ICNTRL/  NSDAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  IBLKSIZ 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINIT 
COMMON  /ICNTRL/  NMLEV' 
COMMON  /ICNTRL/  UOHC& 
COMMON  /ICNTRL/  IQS  (30) 
COMMON  /ICNTRL/  IQU  (10) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(ITMIN  , I QS  { U) 

(ITMAX  , I QS  f 21) 

(IPREACC  tIOS(  3)) 
(IPRECON  ♦ I QS ( 4)) 
tIHFLUX  . I QS  { 5 } ) 
(IEFLUX  « I QS { 6)) 
(IFUSION  , I QS ( 7 > ) 
(IRAOSWG  ,IOS(  8)) 
(IRADLWG  . I QS ( 9)) 
(II CLOUD  , I QS (10)) 
(IUFLUX  t I QS { 11)) 
( IUFLUX  * f IQS( 12) > 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 
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{ I RADSW  , I QU ( 3)) 
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COMMON  /LCNTRL/ 

QEND 

COMMON  /LCNTRL/ 
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COMMON  /LCNTRL/ 

QPHY 

COMMON  /LCNTRL/ 

QSHF 
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LOGICAL 

OBEG 

0012a 

LOGICAL 

QDA  Y 
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LOGICAL 

QEND 

00130 

LOGICAL 

QOUT 

00  131 

LOGICAL 

QPHY 
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QSHF 
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LOGICAL 

SN2FLG 
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LOGICAL 

QRSW 

00  1 35 

LOGICAL 

QRSH 
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C 

LOGICAL 

LQS 
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LOGICAL 

LOU 
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LOGICAL 

LTMIN 
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LOGICAL 

LTMAX 
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LPREACC 
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LPRECON 
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LHFLUX 

00143 
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LEFLUX 
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LOGICAL 

LFUSION 
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00156 

COMMON 

/RCNTRL/ 

RCO 

00157 

COMMON 

/ RCNTRL / 

APHEL 

00158 

COMMON 

/RCNTRL/ 

BETA 

00159 

COMMON 

/RCNTRL/ 

COSD 

00160 

COMMON 

/RCNTRL/ 

CP 

00161 

COMMON 

/RCNTRL/ 

DAYSPV 

00162 

COMMON 

/RCNTRL/ 

DEC 

00163 

COMMON 

/RCNTRL/ 

DECMAX 

00164 

COMMON 

/RCNTRL/ 

DIST 

00165 

COMMON 

/RCNTRL/ 

DLAT 

00166 

COMMON 

/RCNTRL/ 

DLON 

00167 

COMMON 

/RCNTRL/ 

DT 

00168 

COMMON 

/RCNTRL/ 

ECCN 

00169 

COMMON 

/RCNTRL/ 

GNU  1 
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COMMON 

/RCNTRL/ 

GNU2 
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COMMON 

/RCNTRL/ 

GRAV 
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/RCNTRL/ 
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PI 
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/RCNTRL/ 
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/RCNTRL/ 

P 1 2 
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COMMON 
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PSMAX 
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/RCNTRL/ 

PSMIN 
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SEASON 
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/RCNTRL/ 
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/RCNTRL/ 

SIND 
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COMMON 

/RCNTRL/ 

SOLS 

00  190 

COMMON 

/RCNTRL/ 

TSTD 
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/RCNTRL/ 

PLEVS 
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153 
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158 

159 
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00208 
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C 

C 

C 


C 

C 

C 


C 


C 

C 
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COMMON  /RCNTRL/  HEATW 
COMMON  /RCNTRL/  HEAT  I 
COMMON  /RCNTRL/  EPS 
COMMON  /RCNTRL/  EPSFAC 
COMMON  /RCNTRL/  CALTOd 
COMMON  /RCNTRL/  PZERO 

EQUIVALENCE  (RCOtRC(  1 ) J 
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COMMON  / I DPARM/  I JUMP  (46  1 
COMMON  / 1 DP ARM/  ID5P02 
COMMON  /I DP ARM/  INDEX  172) 
COMMON  /I DPARM/  I ROD 
COMMON  /I DPARM/  JC  (46) 

COMMON  /I DP ARM/  je  (21 

COMMON  /I DPARM/  JP  (2.2) 

COMMON  /IDPARM/  KSTEP 
COMMON  /IDPARM/  MJ  (46) 

COMMON  /IDPARM/  NHMS 1 
COMMON  /IDPARM/  NYMD 1 

LOGICAL  MODEL  CONSTANTS 

COMMON  / LDP ARM/  FILTER  (46) 
COMMON  /LDP ARM/  I TAPE 
COMMON  /LDPARM/  START 
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LOGICAL 


FILTER 

ITAPE 

START 
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COMMON  /RDPARM/  ADLOP 
COMMON  /RDPARM/  CONI 
COMMON  /RDPARM/  C0N10T 
COMMON  /RDPARM/  CON 2 
COMMON  /RDPARM/  CON2DT 
COMMON  /RDPARM/  C0N3 
COMMON  /RDPARM/  CON3DT 
COMMON  /RDPARM/  C0N4 
COMMON  /RDPARM/  C0N4DT 
COMMON  /RDPARM/  CON 5 
COMMON  / RDPARM/  COSL  (46) 
COMMON  /RDPARM/  COSLON  (72) 
COMMON  /RDPARM/  CPD2 
COMMON  /RDPARM/  DXP  (46) 
COMMON  /RDPARM/  DXYP  (46) 
COMMON  /RDPARM/  DYP  (46) 
COMMON  /RDPARM/  FCORLS  (46) 
COMMON  /RDPARM/  F 1 DT 
COMMON  /RDPARM/  F2DT 
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COMMON  /RDPARM/  H2DT 
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COMMON  /RDPARM/  PH TOP 
COMMON  /RDPARM/  RL AT  (46) 
COMMON  /RDPARM/  RLATD  (46) 
COMMON  /RDPARM/  ROCPDT 
COMMON  /RDPARM/  R0CPP1 
COMMON  /RDPARM/  SGNP  (2) 
COMMON  /RDPARM/  SINL  (46) 
COMMON  /RDPARM/  SINLON  (77) 
COMMON  /RDPARM/  THSTD 
COMMON  /RDPARM/  THSTD2 
COMMON  /RDPARM/  WSAVE  (159) 
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00355 

00356 

00357 

00358 

00359 


O 

O 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

LOGICAL 


/CNTRLP/ 
/CNTRLP / 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/CNTRLP/ 
/ CNTRLP/ 


C100 

C40 

DELTA 

DTC3 

DTOUT 

ED 

EDNM 

FCOEF 

FMU 

FWET 

GAMFAC 

GTOPO 

HICE 

NDTC3 

NFLW 

PIM 

QHOG 

SHLTOP 

SINROT 

5N0WN 

SNOWS 

STBO 

STERP1 

STERP2 

TICE 

TLTOP 

XDA  Y 

ZLNCO 

QHOG 


DYNAMIC  SPACE  VARIABLES  FOR  C0MP35  SUBROUTINE 
COMMON  /DC0MP35 / TGR<72> 

COMMON  /DCOMP35 / CZFAC(72) 

► + *■ 

RADIATION  AND  SOURCE  TERM  FIELDS 

COMMON  /RADCOM/  AS<72,9,.  RE<72.10> 

COMMON  /RADCOM/  PL<72,9>,  PLE(72f10) 

COMMON  /RADCOM/  PLK(72,9>,  PLKEMOI 
COMMON  /RADCOM/  TL172.9),  TLE<72,10) 

COMMON  /RADCOM/  TGI  72)  , TH(72,9> 

COMMON  /RADCOM/  SHL172.9),  SHLE<72,10) 

COMMON  /RADCOM/  SHGI72),  CLOUOI72  12) 

COMMON  /RADCOM/  SHSAT(72,9)f  GAM(72.9> 

COMMON  /RADCOM/  RH<72,9) 

COMMON  /RADCOM/  SSS<72,9),  SSSEI72, 10) 

COMMON  /RADCOM/  HH172.9),  HHE!72,)0) 

COMMON  /RADCOM/  HHS<72.9) 

COMMON  /RADCOM/  CVT<72,9>,  CVQ<72,9) 

COMMON  /RADCOM/  CXDE<9) 

COMMON  /RADCOM/  SWALE17Z  TO),  SWIL<72.9) 

COMMON  /RADCOM/  AL<72,  ro) 

COMMON  /RADCOM/  TAUL(72,10>,  OZALEI72.10) 

COMMON  /RADCOM/  TDPABSI72) 

COMMON  /RADCOM/  RN(9>.  TN f 9 ) , SRS(9>.  STN ( 9 ) 

COMMON  /RADCOM/  TCOND  f 9 ) t TPENE  < B ) 

COMMON  /RADCOM/  TLOWL  t TMI DL , NLAYOZ 
COMMON  /RADCOM/  FK<5>,  XK! 5).  NFK 

COMMON  /RADCOM/  OLJAN<19},  OLAPR(t9).  0LJULM9)  OLOCTM9) 
COMMON  /RADCOM/  OCM22(23).  OCM30I23),  OCM38 { 23 ) , 0CM46(23> 
COMMON  /RADCOM/  PR0CJVH23),  0CMXX<23>,  NOZ , TOTOZ ( 4 ) CDATE ^ 6 ) 
COMMON  /RADCOM/  CZH<72),  W£T(72>t  EVAp,  PREP ( 72 ) WI172) 

COMMON  /RADCOM/  C05Z<72>,  SO,  RAOTRM ( 72 ) , CXL 
COMMON  /RADCOM/  SGI72),  SP(72) 

COMMON  /RADCOM/  R3URF<72>,  RCLOUD(72>1  JAL8 
COMMON  /RADCOM/  LAND172),  OCEAN(72),  ICE(72) 

COMMON  /RADCOM/  SNOW (72),  MIXWI172),  FROST! 72) 

LOGICAL  LAND,  OCEAN,  ICE,  SNOW.  MIXWI,  FROST 


VCNTRLP 

17 

VCNTRLP 

18 

VCNTRLP 

19 

VCNTRLP 

20 

VCNTRLP 

21 

VCNTRLP 

22 

VCNTRLP 

23 

VCNTRLP 

24 

VCNTRLP 

25 

VCNTRLP 

26 

VCNTRLP 

27 

VCNTRLP 

28 

VCNTRLP 

29 

VCNTRLP 

30 

VCNTRLP 

31 

VCNTRLP 

32 

VCNTRLP 

33 

VCNTRLP 

34 

VCNTRLP 

35 

VCNTRLP 

36 

VCNTRLP 

37 

VCNTRLP 

38 

VCNTRLP 

39 

VCNTRLP 

40 

VCNTRLP 

41 

VCNTRLP 

42 

VCNTRLP 

43 

VCNTRLP 

44 

VCNTRLP 

45 

VCNTRLP 

46 

VDC0M35 

2 

VDC0M3S 

3 

VDC0M35 

4 

VDCOM35 

5 

VDCOM35 

6 

VRADCOM 

2 

V RADCOM 

3 

VRAOCOM 

4 

VRADCOM 

5 

VRADCOM 

6 

VRADCOM 

7 

VRADCOM 

8 

VRADCOM 

9 

VRADCOM 

10 

VRADCOM 

1 1 

VRADCOM 

12 

VRADCOM 

13 

VRADCOM 

14 

VRADCOM 

15 

VRADCOM 

16 

VRADCOM 

17 

VRADCOM 

18 

VRADCOM 

19 

VRADCOM 

20 

VRAOCOM 

21 

VRADCOM 

22 

VRADCOM 

23 

VRADCOM 

24 

VRADCOM 

25 

VRADCOM 

26 

VRADCOM 

27 

VRADCOM 

28 

VRADCOM 

29 

VRADCOM 

30 

VRADCOM 

31 

VRADCOM 

32 

VRAOCOM 

33 

VRAOCOM 

34 

VRADCOM 

35 

VRADCOM 

36 

VC0MP35 

8 

LO 

Ln 

O' 


ORfOINAL  PA©I  H} 
OF  POOR  QUALITY 


l'r-y 


t \ 1 'U 


00360 


00361 

00362 

00363 

00364 

00365 

00366 

00367 
00366 

00369 

00370 

00371 

00372 

00373 

00374 

00375 

00376 


C DEBUG  V3EGDEB  2 
10000  CONTINUE  VBEGDEB  3 
c ***,  CYBER  VECTOR  VERSION  00.001  INPUT  TOO  VBEGDEB  4 
c CYBER  VECTOR  VERSION  00  VBEGDEB  5 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSiSSSSSSSVBEGDEB  6 


C 

C 


TGR ( 1 : IM>  <=  GT( i ,d  : 1M> 

DO  a 10  1 = I ,IM 
I F ( TGR ( I ) . L T . TICE ) 

I F < NOT.  ( 1 CE  * I > .OR. 
GTU.d)  = TICE 


100  I F I . NOT . FROST l I > > 


SNOW  U > ) > 


GO  TO  200 
GO  TO  100 


GO  TO  810 
GO  TO  010 


CZFACU ) * < .331* . 0 7 5 ♦ W E T < I ) > M 1 . *1 . 25 ‘WET (I  ) > 

S / ( < .386*  . 150*WE7  U ) ) * < 1 . * WETU)>) 

CZFACU)  = SORT  f C2FAC  <1)1 


t TGR 1 I > - T I CE  ) 
GO  TO  810 
GO  TO  010 


GT  U « d ) = TICE  + CZFACU)  * 

200  IF1TGU)  .LE.UCE) 

CZFACU)  = { .386+.  150*WET(in*<1  .+  WET<I>) 

S /<<  .331-*. 075*  WET  ( I I ) * M . «■  1 . 25*WET  (I  > > > 

CZFACU)  :=  SQRTICZFACU  ' ) 

GTU.dl  = TICE  * CZFACU)  * ( TGR  < I ) - TICE  ) 

810  CONTINUE 


00377 

IF  (d 

. NE . 1 . AND 

. d.NE.dNP) 

RETURN 

0037B 

GW  M 

. d ; IM>  = GW ( 1 «dl 

00379 

GT<  1 

, d : iwn  = gt  ( i , d ) 

00380 

RETURN 

00381 

END 

STATEMENT 

LABEL  MAP 

--LABEL- - 

-DEFINED REFERENCES 

100 

357 

364 

1 OOOO 

360 

200 

372 

363 

BIO 

376 

362 

366  367 

371 

372 

VARIABLE 

MAP 

NAME- - - 

— — BLOCK  - - - ' 

* — — | YHfc 

w U A O 

ABATE 

CCNTRL 

CHARTS 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

217 

AL 

RADCOM 

REAL 

ARRAY 

343 

ALBEDO 

QANDQT 

REAL 

ARRAY 

256 

269 

ApHEL 

RCNTRL 

REAL 

SIMPLE 

157 

AS 

RADCOM 

REAL 

ARRAY 

328 

ATIME 

CCNTRL 

CHAR  * 8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

158 

CIO 

CNTRLP 

REAL 

SIMPLE 

236 

C100 

CNTRLP 

real 

SIMPLE 

297 

C40 

CNTRLP 

REAL 

SIMPLE 

298 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

196 

CC 

CCNTRL 

CHARTS 

ARRAY 

14 

15 

CCO 

CCNTRL 

CHAR*S 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

13 

CCSP06 

CCNTRL 

CHAR  *8 

SIMPLE 

7 

20 

CCSP07 

CCNTRL 

CHAR  *8 

SIMPLE 

8 

21 

CCSP08 

CCNTRL 

CHARTS 

SIMPLE 

9 

22 

VC0MP36  10 
VC0MP35  1 1 
VCOMP35  12 
VCOMP35  13 
VC0MP35  14 
VCOMP35  1 5 
VC0MP35  16 
VC0MP35  17 
VC0MP35  18 
VC0MP3S  1 9 
VC0MP35  20 
VC0MP35  21 
VC0MP35  22 
VC0MP35  23 
V COMP 35  24 
VC0MP35  25 
VC0MP3S  28 
VCOMP35  27 
VC0MP35  28 
V COMP 3 5 29 
VC0MP35  30 
VC0MP35  3! 
VC0MP35  32 
VC0MP35  33 
VC0MP3S  34 
V COMP 3 5 35 
V COMP 35  36 
VCOMP3S  37 
V COMP 35  38 
VC0MP3S  39 
VC0MP35  40 
VC0MP35  41 
VC0MP35  42 
VC0MP35  43 
VC0MP3S  44 


A = ARGL  I ST . C = CTRL  OF  DO.  I^DATA  INIT,  REREAD.  S^STORE.  VfeWRITE 


IB 

4 


to 


1 1 


12 


O 

O 


03 

LR 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


CDATE 

RADCOM 

CDFR 

CNTRLP 

CP  XL 

CNTRLP 

CD  XO 

CNTRLP 

CLH 

CNTRLP 

CLOUD 

CNTRLP 

RAOCOM 

COE 

CNTRLP 

COEF 

CNTRLP 

COEFS 

CNTRLP 

COMP 3 5 

CONI 

RDPARM 

CON 1 DT 

RDPARM 

CON2 

RDPARM 

CON2DT 

RDPARM 

COM3 

RDPARM 

CON3DT 

RDPARM 

C0N4 

RDPARM 

CON4DT 

RDPARM 

CONS 

RDPARM 

COSD 

RCNTRL 

COSL 

RDPARM 

COSLON 

RDPARM 

COSRQT 

CNTRLP 

COSZ 

RAOCOM 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

UNKNOWN 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

SUBROUTINE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

352 

284 

285 

286 

287 
334 
284 
295 
306 
317 

288 

289 

290 
1 

218 

219 

220 
22! 
222 

223 

224 

225 

226 
159 

227 

228 

291 
354 


285 
296 
307 
3 ! 8 


286 

297 

308 

319 


287 

298 

309 

320 


288 

299 

310 

321 


289 

300 

311 

322 


290 

301 

312 

323 


291 

302 

313 

324 


CP 

RCNTRL 

CPD2 

RDPARM 

CPP 

CNTRLP 

COS 

CCNTRL 

CQU 

CCNTRL 

CTID 

CNTRLP 

CUMDAY 

CNTRLP 

CUMRAT 

CNTRLP 

CVQ 

RADCOM 

CVT 

RADCOM 

CXDE 

RAOCOM 

CXL 

RADCOM 

CZFAC 

D COMP 3 5 

CZH 

RADCOM 

DAYSPY 

RCNTRL 

DC0MP35 

DEC 

RCNTRL 

DECMAX 

RCNTRL 

DELTA 

CNTRLP 

DIST 

RCNTRL 

DLAT 

RCNTRL 

DLON 

RCNTRL 

DSIG 

RDPARM 

DSIGINV 

RDPARM 

DT 

RCNTRL 

DTC3 

CNTRLP 

□ TOUT 

CNTRLP 

DXP 

RDPARM 

DXYR 

RDPARM 

DYP 

RDPARM 

ECCN 

RCNTRL 

ED 

CNTRLP 

EDNM 

CNTRLP 

EPS 

RCNTRL 

EPSFAC 

RCNTRL 

EVAP 

RADCOM 

F IDT 

RDPARM 

F2DT 

RDPARM 

FCOEF 

CNTRLP 

FCORLS 

RDPARM 

FILTER 

LDPARM 

FK 

RADCOM 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

CHAR  *8 

ARRAY 

CHARTS 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

UNKNOWN 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

LOGICAL 

ARRAY 

REAL 

ARRAY 

160 

229 

292 
12 
13 

293 

294 

295 
340 
340 
34  1 
354 
327 
353 
161 
326 
162 

163 

299 

164 

165 

166 
250 
252 

167 

300 

301 

230 

231 

232 

168 

302 

303 

194 

195 
353 

234 

235 

304 

233 
21  1 
349 


25 

26 


368/S  369/3  369  370  373/S  374/S  374 


327 


214 


292 

303 

314 


375 


293  294 
304  305 
315  316 


Po 

3*  5 

O 5 

O 5 

2E? 


& 

f» 


O *rj 

cM 

5a 


COMP35  8 


FMU 

CNTRLP 

REAL 

SIMPLE 

305 

FROST 

RADCOM 

LOGICAL 

ARRAY 

358 

359 

FWET 

CNTRLP 

REAL 

SIMPLE 

306 

GAM 

RADCOM 

REAL 

ARRAY 

335 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

307 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU2 

RCNTRL 

REAL 

SIMPLE 

170 

GRAV 

RCNTRL 

REAL 

SIMPLE 

17  1 

GT 

OANDOT 

REAL 

ARRAY 

257 

270 

GTOPO 

CNTRLP 

REAL 

SIMPLE 

308 

GW 

QANDQT 

REAL 

ARRAY 

258 

271 

H IDT 

RDP ARM 

REAL 

SIMPLE 

236 

H20T 

RDPARM 

REAL 

SIMPLE 

237 

HHATI 

RCNTRL 

REAL 

SIMPLE 

193 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

HH 

RADCOM 

REAL 

ARRAY 

338 

HHE 

RADCOM 

REAL 

ARRAY 

338 

HHS 

RADCOM 

REAL 

ARRAY 

339 

HI  CE 

CNTRLP 

REAL 

SIMPLE 

309 

I 

INTEGER 

SIMPLE 

362/C 

363 

369 

369 

374 

374 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

ICE 

RADCOM 

LOGICAL 

ARRAY 

357 

359 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

38 

39 

49 

50 

60 

61 

71 

72 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

IDPARM 

INTEGER 

UNKNOWN 

200 

201 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

20  1 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

83 

I ICLCUD 

ICNTRL 

INTEGER 

UNKNOWN 

88 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

200 

IM 

ICNTRL 

INTEGER 

SIMPLE 

28 

36  1 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

29 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

30 

INDEX 

TOP ARM 

INTEGER 

ARRAY 

202 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

91 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

G 1 

I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

82 

IQS 

ICNTRL 

INTEGER 

ARRAY 

77 

79 

89 

90 

IQSDIAG 

QANDQT 

INTEGER 

ARRAY 

28  1 

282 

IQU 

ICNTRL 

INTEGER 

ARRAY 

78 

91 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

94 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

93 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

203 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

2 12 

215 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

80 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

79 

I UF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

89 

I VF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

90 

J 

INTEGER 

SIMPLE 

1 

361 

JALB 

RADCOM 

INTEGER 

SIMPLE 

356 

JC 

IDPARM 

INTEGER 

ARRAY 

204 

JE 

IDPARM 

INTEGER 

ARRAY 

205 

JIC 

CCNTRL 

CHAR  *8 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

32 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

33 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

34 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

35 

377 

367 


36  1 
378/ 


364 

370 

375 


96 
364 
29 
40 
5 1 
62 
73 


202 


361 


80 


92 


365 


365/S  370/S  375/S  379/S  379 

378 


364 

365 

367 

368 

370 

370 

372 

373 

3"5 

375 

30 

31 

32 

33 

4 1 

42 

43 

44 

52 

S3 

54 

55 

63 

64 

65 

66 

74 

75 

76 

77 

203 

204 

205 

206 

368  363  368  368 

373  373  373  373 


34 

35 

36 

37 

45 

49 

47 

48 

56 

57 

58 

59 

67 

78 

58 

69 

70 

207 

208 

209 

210 

362  378  379 


81 

82 

83 

84 

85 

86 

B7 

88 

93 

94 

370  375  377  377  378  378  379  379 


nd 

tjo 

Ln 


V0 


J04 

ICNTRL 

INTEGER 

SIMPLE 

36 

JOB 

ICNTRL 

INTEGER 

SIMPLE 

37 

JOB 

CCNTRL 

CHAR  *8 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

206 

J5P 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

39 

KLIGVV 

ICNTRL 

INTEGER 

SIMPLE 

40 

KL 1 5ST 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

KS 

ICNTRL 

INTEGER 

SIMPLE 

42 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

207 

KU 

ICNTRL 

INTEGER 

SIMPLE 

43 

LAND 

RADCOM 

LOGICAL 

ARRAY 

357 

359 

LC 

LCNTRL 

LOGICAL 

ARRAY 

154 

155 

LCO 

LCNTRL 

logical 

SIMPLE 

97 

154 

155 

LCNTRL 

INTEGER 

UNKNOWN 

97 

98 

99 

100 

108 

109 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

123 

151 

LDPARM 

INTEGER 

UNKNOWN 

21  1 

212 

213 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

f 15 

143 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

144 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

142 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 19 

147 

LOG8R 

ICNTRL 

INTEGER 

SIMPLE 

44 

L OMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

122 

150 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

140 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 3 

14  1 

LOS 

LCNTRL 

LOGICAL 

ARRAY 

108 

1 10 

1 1 1 

1 12 

120 

121 

136 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

109 

122 

123 

124 

LRADLW 

LCNTRL 

LOGICAL 

UNKNOWN 

125 

153 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 18 

146 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

124 

152 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

117 

145 

L TNI  AX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

139 

LTM1N 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

138 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

120 

148 

LVFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

121 

149 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

46 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

47 

MIXWI 

RADCOM 

LOGICAL 

ARRAY 

358 

359 

MJ 

IDPARM 

INTEGER 

ARRAY 

208 

MLF 

ICNTRL 

INTEGER 

ARRAY 

48 

MROD 

ICNTRL 

INTEGER 
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46 

VCONHTR 

47 

VCONHTR 

48 

VCONHTR 

49 

VCONHTR 

50 

VCONHTR 

51 

VCONHTR 

52 

VCONHTR 

53 
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po 
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00317 


003  IS 
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0033  1 
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00340 
0034  1 
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00344 
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00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 


00356 

00357 

00358 


00359 

00360 

00361 

00362 

00363 

00364 

00365 

00366 


DA  T A 
DATA 


ONE 

TWO 


/ 1 H 1 / 
/ 1H2/ 


C 

C* 

C 

C DEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION  00.001  INPUT  IOO 

C ****  CYBER  VECTOR  VERSION  00 

CSSSSS$SSS$SSSS3$£SSSSSSSSSSSSSSSSSSSSSSS3SSSSSSSSSS$SSSSSSSSSS3 

C CONVERT  THE  HEADER 


C 

C 

C 


NBCHAR  = ONE 

IF1NB.EQ.2)  NBCHAR  = TWO 
MACH I D = CC  M ) 

CC  M > * IBM 

CALL  A TOE { CC . CA , 200*B  > 

CC  M ) = MACH 1 D 

CALL  ATOEt XORDS , T XSA . KS *8 ) 

CALL  AT OE  f XORDU , T XUA , KU *8 ) 

HWQRK ( 1 ; 200  > = RC<1;200) 

CALL  Q9CI32  f HWORK , RA , 200 . IERR  } 
IPUERR.NE.O)  WR I TE  (3.9001  I ERR 
900  FORMAT  < ' 0Q9CI32  I ERR  = ',12) 

DO  10  K :=  1 t 200 

I A { K ) = HIC'2,K) 

LA (K)  = I FALSE 

IFILC(K))  LA(K)  s I TRUE 
10  CONTINUE 


= ^0Ft  HISTORY  AND  WRITE  THE  HEADER 

KSS  = 0~  = S5«8SS  = - = 885S5-  = 

DO  15  K =■  1 tKS 
TESTCH  = X0PDSCH18.K) 

f ^ J 4-Hf  0NE  > -*ND.  <TESTCH.NE.TWO>  ) GO  TO  14 

I F ( TESTCH . NE . NBCHAR > GO  TO  15 

14  KSS  = KSS  * 1 

XSA(KSS)  = TXSAtK) 

15  CONTINUE 

KUS  = O 

DO  20  K = 1 , KU 

TESTCH  =•  XORDUCH f B , K ) 

J c J i ' °NE  > .AND.  t TESTCH. NE . TWO)  ) GO  TO  19 
I F ( TESTCH . NE . NBCHAR ) GO  TO  20 
19  KUS  ^ KUS  * 1 

XUA ( KUS ) = TXUA(K) 


20  CONTINUE 
IA< 16) 

I A 1 17) 

LA  { n 


C 

C 

c 


c 

c 

c 


= HKSS { 2 ) 

* HKUS ( 2 ) 

= I FALSE 
IF(QRSH)  LA ( 1)  = I TRUE 

V/RITEIO)  CA, IA,LA.RAt  { X S A ( K ' ,K=1  .KSS) . {XUA IK) . K*l  KUS) 


PPq  THE  PROGNOSTIC  QUANTITIES 


DO  130 
KKSA 
KKUA 

SURFACE 


DO  1 10  K 
TESTCH 


1 * JNP 
0 
0 


1 .9 

XORDSCH ( 8 . K ) 


1 05 


if}' TIItCM : n! : raCHAR*1? ' ‘ T E5TC» - "E . TW0 1,  GO  TO  ,05 
KKSA  r KKSA  * 1 GO  TO  110 


HWORKf 1 ;IM)  r QPROGC  1 f K , I , *1 ; IM  I 
no  cS!ti!FiSSiI32<HW0RK*QSHC  , I1V..IHRFI> 
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VCONHTR  55 
VCONHTR  56 
► * ♦ * * VCONHTR  57 
VCONHTR  5B 
VBEGDEB  2 
VBEGDEB  3 
VBEGDEB  4 
VBEGDEB  5 
SSSSSSSSVBEGDEB  6 
VCONHTR  60 
VCONHTR  61 
VCONHTR  62 
VCONHTR  63 
VCONHTR  64 
VCONHTR  65 
VCONHTR  66 
VCONHTR  67 
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VCONHTR  72 
VCONHTR  73 
VCONHTR  74 
VCONHTR  75 
VCONHTR  76 
VCONHTR  77 
VCONHTR  78 
VCONHTR  79 
VCONHTR  80 
VCONHTR  81 
VCONHTR  82 
VCONHTR  e3 
VCONHTR  84 
VCONHTR  85 
VCONHTR  86 
VCONHTR  87 
VCONHTR  88 
VCONHTR  89 
VCONHTR  90 
VCONHTR  91 
VCONHTR  92 
VCONHTR  93 
VCONHTR  94 
VCONHTR  95 
VCONHTR  96 
VCONHTR  97 
VCONHTR  98 
VCONHTR  99 
VCONHTR 100 
VCONHTR 101 
VCONHTR 102 
VCONHTR 103 
VCONHTR 104 
VCONHTR 105 
VCONHTR 106 
VCONHTR 107 
VCONHTR 108 
VCONHTR 109 
VCONHTR 1 10 
VCONHTR 1 1 1 
VCONHTR 112 
VCONHTR 1 13 
VCONHTR!  14 
VCONHTR 1 15 
VCONHTR 1 16 
VCONHTR 1 17 
VCONHTR 1 IB 
VC0NHTR1 19 
VCONHTR 120 


O 

O 
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00368 

00369 

00370 
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00372 
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00376 

00377 
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00379 
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00381 

00382 


00383 

00384 

00385 

00386 

00387 


00388 

00389 

00390 

00391 


00392 

00393 

00394 

00395 

00396 

00397 

00398 

00399 

00400 

00401 

00402 


00403 

00404 

00405 

00406 

00407 

00408 

00409 

00410 
0041  1 

00412 

00413 

00414 

00415 

00416 


C 

C 

C 


UPPER  AIR 

DO  1 20  K =2,11 

TESTCH  = XORDUCH ( 8 , K - i ) 

IF ( ( TESTCH . NE . ONE  1 - AMD ♦ < TESTCH . NE . TWO) ) GO  TO  115 
IF<  TESTCH. NE .NBCHAH  ) GO  TO  120 

115  KKUA  = KKUA  *■  1 

HWORK ( t ; IM^NLAY ) = OP ROG M . 1 , K , d ; I M-MLA Y ) 

CALL  09CI  32  (HWORK  . QUH  (1,1  , d,  KKUA  > t XM-NLAY  , I ERR  > 
120  CONTINUE 

130  CONTINUE 

LOOP  OVER  LATITUDES  FOR  THE  SURFACE  DIAGNOSTICS 


IFCKSS.EQ. KKSA) 

KKSAVE  = KKSA 

DO  150  J = 1 , JNP 

KKSA  ' = KKSAVE 

DO  145  K = 10, KS 

KKSA  = KKSA  + 1 

IF<  XORDS(K) .NE. ICLDDD) 
SPECIAL  CASE  FOR  ICLOUD  FIELD 


GO  TO  160 


GO  TO  140 


ICLBASE  = IM  - (15  * fd-1>  * IICLOUD  - 1) 

DO  135  I a 1 , I M 

135  HWOR K ( I > = OSHEO( 2, I * ICLBASE > 

QSH ! 1 ,d, KKSA : I M > = HWORK(l:IM) 

GO  TO  145 

NORMAL  FLOATING  POINT  CASE 

140  HWORK  ( 1 ; IM)  = QSDTAGM  ,K-9,  d;  IM) 

CALL  09C I 32 (HWORK, OSH ( 1 .d, KKSA)  , IM. I ERR) 

145  CONTINUE 
150  CONTINUE 

LOOP  OVER  LATITUDES  FOR  THE  UPPER  AIR  DIAGNOSTICS 


160  IF ( KKUA . EQ. KUS) 


KKUASAVE 
DO  190  J 
KKUA 

DO  180  K 
KKUA 


KKUA 
1 .JNP 
KKUASAVE 
1 1 ,KU 
KKUA  + 1 


GO  TO  200 


C 

C 

C 


HWORK ( 1 ;IM*NLAY)  = OUD I AG  * f . 1 f K * 1 0 f J ; IM* NL A Y ) 
CALL  Q9CI 32 (HWORK , QUH( 1,1,d, KKUA 1 , IM-NLAY, I ERR ) 

180  CONTINUE 
190  CONTINUE 

200  CONTINUE 

WRITE  THE  FIELDS  TO  HISTORY 
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VCOMHTR 122 
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VCONHTR 1 24 
VCONHTR 125 
VCONHTR 126 
VCONHTR 127 
VCONHTR 128 
VCONHTR 129 
VCONHTR 130 
VCONHTR 131 
VCONHTR 132 
VCONHTR 133 
VCONHTR 134 
VCONHTR 135 
VCONHTR 136 
VCONHTR 1 37 
VCONHTR 138 
VCONHTR 139 
VCONHTR 140 
VCONHTR 141 
VCONHTR 142 
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VCONHTR 144 
VCONHTR 145 
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VCONHTR 147 
VCONHTR 148 
VCONHTR 149 
VCONHTR ISO 
VCONHTR 151 
VCONHTR 152 
VCONHTR 153 
VCONHTR 154 
VCONHTR 155 
VCONHTR 156 
VCONHTR 157 
VCOMHTR  tSS 
VCONHTR 159 
VCONHTR 160 
VCONHTR 16 1 
VCONHTR 162 
VCONHTR 163 
VCONHTR 164 
VCONHTR 165 
VCONHTR 166 
VCONHTR 167 
VCONHTR 168 
VCONHTR 169 
VCONHTR 170 
VCONHTR 171 
VCONHTR 172 
VCONHTR 173 
VCONHTR 174 
VCONHTR 175 
VCOMHTR 176 


KMAXB  = 

KSS  * JNP  * tM 

VCONHTR 177 

KEB 

0 

VCONHTR 178 

DO  220  KKB 

= 1 , KMAXB , 4096 

VCONHTR 179 

Ksr  a 

KEB  + 1 

VCONHTR 180 

KEB  = 

MI  NO  (KEB  * 4096,  KMAXB) 

VCONHTR 181 

WRITES) 

< QSH  < K ,1,1)  , K = V SB . KEB) 

VCONHTR 182 

KMAXB  = 

JNP  * NLA Y * IM 

VCONHTR 183 

DO  230  KQa 

1 , KUS 

VCOMHTR 184 

KEB  = 

0 

VCONHTR 185 

DO  230  KKB 

a ! , KMAXB , 4096 

VCONHTR 186 

KSB 

KEB  ♦ 1 

VCONHTR 187 

KEB  * 

MI  NO < KEB  + 4096,  KMAXB  > 

VCONHTR 188 

WRITE (8) 

( QUH ( K , 1 . 1 , KQ ) . K=KSB , KEB) 

VCONHTR 189 
VCONHTR 190 

R E T U R 1 

N 

VCONHTR 191 

QO 

02 

O 

to  r 

<0  2 

c > 

r i*j 

9s 


CONHTR  8 


004  1 7 


END 


VCONH1 R 1 92 
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10 

10000 

334 

317 

330 

105 

363 

361 

1 10 

366 

359 

362 

1 15 

37  t 

369 

120 

374 

367 

370 

130 

375 

356 

135 

385 

384 

14 

340 

328 

140 

388 

382 

145 

390 

380 

387 

1 5 

242 

336 

339 

150 

391 

378 

160 

392 

376 

180 

400 

396 

19 

348 

346 

190 

40  1 

394 

20 

350 

344 

347 

200 

402 

392 

220 

408 

405 

230 

4 15 

4 10 

412 

900 

329 

328 

VARIABLE  MAP 
--NAME 


ADATE 

ADLDP 

ALBEDO 

APHEL 

ATIME 

BETA 

CA 

CALTOd 

CC 

CCO 

CCNTRL 

CC5P06 

CCSP07 

CCSPOB 

CONI 

CON  IDT 

COM2 

C0N2DT 

CON  3 

CON3DT 

C0N4 

CON4DT 

CONS 

CONHTR 

CORDER 

COSD 

COSL 

COSLON 

CP 

CPD2 

CQS 

CQU 

DAYSPy 

DEC 

DECMAK 

DIST 

DLAT 

DLON 


0LOCK- 

CCNTRL 

RDPARM 

QANDQT 

RCNTRL 

CCNTRL 

RCNTRL 

SPACE 

RCNTRL 

CCNTRL 

CCNTRL 


CCNTRL 

CCNTRL 

CCNTRL 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 


RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

CCNTRL 

CCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 


-TYPE- - 

CHAR  *8 

REAL 

REAL 

REAL 

CHAR  *8 

REAL 

CHAR'S 

REAL 

CHAR'S 

CHAR '8 

REAL 

CHAR'S 

CHAR  * 8 

CHAR'S 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

real 

REAL 

REA! 

CHAR  '8 

CHAR'S 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


CLASS 


REFERENCES  A=ARGLI ST , 


SIMPLE 

3 

16 

SIMPLE 

217 

ARRAY 

256 

269 

SIMPLE 

157 

SIMPLE 

4 

17 

SIMPLE 

158 

ARRAY 

294 

295 

SIMPLE 

196 

ARRAY 

14 

15 

SIMPLE 

2 

1 4 

UNKNOWN 
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13 
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SIMPLE 

7 

20 

SIMPLE 
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2 1 

SIMPLE 
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22 

SIMPLE 

213 

SIMPLE 

219 

SIMPLE 

220 

SIMPLE 

221 

SIMPLE 

222 

SIMPLE 

223 

SIMPLE 

224 

SIMPLE 

225 

SIMPLE 

226 

1 

SUBROUTINE 

UNKNOWN 
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SIMPLE 
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ARRAY 

227 

ARRAY 

228 

SIMPLE 

160 

SIMPLE 

229 

ARRAY 

1 2 

25 
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13 

26 

SIMPLE 
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SIMPLE 

162 
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164 

SIMPLE 
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SIMPLE 
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322 
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T5 
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32T/S  322 

S 6 
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OSIGINV 

DT 
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DXYP 
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GNU2 
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GT 

GW 
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IBM 
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207 
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(LTMAX  .LQ5(  2)) 
(LPREACC  . LQS  < 3M 
{ LPRECON  . LQS ( 4>) 
(LHFLUX  , LQS  f 5)) 
(LEFLUX  , LQS ( 6) ) 
(LFUSION  , LQS  ( 71) 
(LRADSWG  <LQS<  8)) 
(LRADLWG  , LQS ( 9)) 
( L 1 CLOUD  , LQS ( 10>  \ 
(LUFLUX  .LOSdH) 
( L VF  LUX  , LQS (12)1 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( LOMEGA  , LQU { 1 ) > 

< LDI ABAT  , LQU ( 2 ) > 
(LRADSW  , LQU ( 3)1 
(LRADLW  , LQU ( 4>) 


LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


OALT 

QBEG 

QDAY 

QEND 

QOUT 

QPHY 

QSHF 

SN2FLG 

QRSW 

QRSH 


LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

logical 

LOGICAL 

logical 


LQS 

LQU 

LTMIN 

LTMAX 

LPREACC 

LPRECON 

LHFLUX 

LEFLUX 

LFUSION 

LRADSWG 

LRADLWG 

LICLOUD 

LUFLUX 

LVFLUX 


LOGICAL  LOMEGA 

LOGICAL  LDI ABAT 

LOGICAL  LRADSW 

LOGICAL  LRADLW 


EQUIVALENCE  (LCO. LC( 1 ) ) 

LOGICAL  LCO,  LC(200) 

?5A-~!???E!:^!?ARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  / RCNTRL  / RCO  = “ 

COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSD 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYSPY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  DECMAX 


VCNTRL  115 
VCNTRL  116 
VCNTRL  117 
VCNTRL  118 
VCNTRL  119 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 
VCNTRL  128 
VCNTRL  129 
VCNTRL  130 
VCNTRL  131 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
VCNTRL  135 
VCNTRL'  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  141 
VCNTRL  1 42 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  150 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 

VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  180 
VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 


o o 

11  g 

T3  C> 

OS 
o > 

70  p 

tO  *0 

c 5 

33*  O 

r*  ra 


5 


o 

o 

2! 

CD 

> 


LO 


^1. V 


00164 

COMMON 

/RCNTRL / 

DIST 

00  165 

COMMON 

/RCNTRL / 

DLAT 

00  166 

COMMON 

/RCNTRL/ 

DLON 

00167 

COMMON 

/RCNTRL/ 

DT 

ooiea 

COMMON 

/RCNTRL/ 

ECCN 

00  169 

COMMON 

/RCNTRL/ 

GNU  1 

00170 

COMMON 

/RCNTRL/ 

GNU2 

00171 

COMMON 

/RCNTRL/ 

GRAV 

00172 

COMPTON 

/RCNTRL/ 

OMEGA 2 

00173 

COMMON 

/RCNTRL/ 

PI 

00174 

COMMON 

/HCNTRL/ 

PI  ISO 

00  1 75 

COMMON 

/RCNTRL/ 

P I 2 

00176 

COMMON 

/RCNTRL/ 

PSTD 

00177 

COMMON 

/RCNTRL/ 

PIMEAN 

001  78 

COMMON 

/RCNTRL/ 

PSMAX 

00179 

COMMON 

/RCNTRL/ 

PSMIN 

00  180 

COMMON 

/RCNTRL/ 

PTOP 

00  18  1 

COMMON 

/RCNTRL/ 

RADE 

00182 

COMMON 

/RCNTRL/ 

RGAS 

00  183 

COMMON 

/RCNTRL/ 

ROCP 

00  184 

COMMON 

/RCNTRL/ 

RSDIST 

00185 

COMMON 

/RCNTRL/ 

SDAY 

00  186 

COMMON 

/RCNTRL/ 

SEASON 

00  187 

COMMON 

/RCNTRL/ 

SIGE 

{ 25  ) 

00  188 

COMMON 

/RCNTRL/ 

SIND 

00189 

COMMON 

/RCNTRL/ 

SOLS 

00190 

COMMON 

/RCNTRL/ 

TSTD 

00191 

COMMON 

/RCNTRL/ 

PLEVS 

i 25  ) 

00192 

COMMON 

/RCNTRL/ 

HEATW 

00  193 

COMMON 

/RCNTRL/ 

HEATI 

00  194 

COMMON 

/RCNTRL/ 

EPS 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

00  196 

COMMON 

/RCNTRL/ 

CALTOJ 

00197 

c 

COMMON 

/RCNTRL/ 

PZERO 

00198 

EQUIVALENCE 

( RCO . RC  M > > 

00199 

Q 

REAL 

RCO , RC ( 200 ) 

c 

c 

INTEGER  MODEL  CONSTANTS 

00200 

COMMON 

/ IDPARM/ 

I JUMP 

146) 

00201 

COMMON 

/ IDPARM/ 

IDSP02 

00202 

COMMON 

/IDPARM/ 

INDEX 

172) 

00203 

COMMON 

/IDPARM/ 

I ROD 

00204 

COMMON 

/IDPARM/ 

JC 

f 46  > 

0020$ 

COMMON 

/IDPARM/ 

xS  E 

( 2 ) 

0 0 206,. 

COMMON 

/IDPARM/ 

UP 

12.2) 

00207 

COMMON 

/IDPARM/ 

KSTEP 

00208 

COMMON 

/IDPARM/ 

MJ 

M6) 

00209 

COMMON 

/IDPARM/ 

NHMS! 

00210 

COMMON 

/IDPARM/ 

NYMD1 

C LOGICAL  MODEL  CONSTANTS 
n = = = = — “ — - 


0021  1 

COMMON 

/LDPARM/ 

FILTER  (46) 

00212 

COMMON 

/LOpARM/ 

ITAPE 

00213 

Q 

COMMON 

/LDPARM/ 

START 

00214 

00215 

00216 

c 

C 

LOGICAL 

LOGICAL 

LOGICAL 

REAL  MODEL 

FILTER 
I TAPE 
START 

CONSTANTS 

C 

r a 

00217 

COMMON 

/ RDPARM/ 

ADLDP 

002  18 

COMMON 

/ RDPARM/ 

CONI 

00219 

COMMON 

/RDPARM/ 

CON  IDT 

00220 

COMMON 

/RDPARM/ 

C0N2 

00221 

COMMON 

/RDPARM/ 

C0N2DT 

00222 

COMMON 

/RDPARM/ 

CON3 

00223 

COMMON 

/ RDPARM/ 

C0N3DT 

VCNTRL 

186 

VCNTRL 

187 

VCNTRL 

188 

VCNTRL 

189 

VCNTRL 

190 

VCNTRL 

191 

VCNTRL 

192 

VCNTRL 

193 

VCNTRL 

194 

VCNTRL 

195 

VCNTRL 

196 

VCNTRL 

197 

VCNTRL 

198 

VCNTRL 

199 

VCNTRL 

200 

VCNTRL 

20  1 

VCNTRL 

202 

VCNTRL 

203 

VCNTRL 

204 

VCNTRL 

205 

VCNTRL 

206 

VCNTRL 

207 

VCNTRL 

208 

VCNTRL 

209 

VCNTRL 

210 

VCNTRL 

21  1 

VCNTRL 

212 

VCNTRL 

213 

VCNTRL 

214 

VCNTRL 

215 

VCNTRL 

216 

VCNTRL 

217 

VCNTRL 

VCNTRL 

218 

219 

VCNTRL 

220 

VCNTRL 

221 

3® 

VCNTRL 

222 

VCNTRL 

223 

o s 

VCNTRL 

224 

a?  £ 

VCNTRL 

225 

VCNTRL 

226 

O 

££ 

VCNTRL 

227 

VCNTRL 

228 

VCNTRL 

229 

VCNTRL 

230 

C p*j 

VCNTRL  23 1 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  24 1 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  24S 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  232 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 


CONSTA  4 


00224 

00225 

00226 

00227 

00228 
00229 
00220 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 

0024  1 

00242 

00243 

00244 

00245 

00246 

00247 

00248 

00249 

00250 

0025  T 
00252 


00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 
00262 

00263 

00264 

00265 

00266 

00267 

00268 

00269 

00270 
0027  1 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 

00280 
00281 
00282 

00283 

00284 

00285 

00286 

00287 

00288 
00289 
00230 
00291 


COMMON  /RDPARM/  COM4 
COMMON  /RDPARM/  CON4DT 
COMMON  /RDPARM/  CON 5 
COMMON  /RDPARM/  COSL  1461 
COMMON  /RDPARM/  COSL ON  172) 
COMMON  /RDPARM/  CPD2 
COMMON  /RDPARM/  DXP  (46) 
COMMON  /RDPARM/  DXYP  MS) 
COMMON  /RDPARM/  DYP  (46) 
COMMON  /RDPARM/  FCORLS  M6 > 
COMMON  /RDPARM/  F1DT 
COMMON  /RDPARM/  F2DT 
COMMON  /RDPARM/  H1DT 
COMMON  /RDPARM/  H2DT 
COMMON  /RDPARM/  PKSTD 
COMMON  /RDPARM/  PKTOP 
COMMON  /RDPARM/  RLAT  (461 
COMMON  /RDPARM/  RLATD  (46> 
COMMON  /RDPARM/  ROCPDT 
COMMON  /RDPARM/  R0CPP1 
COMMON  /RDPARM/  SGNP  (2) 
COMMON  /RDPARM/  SINL  (46) 
COMMON  /RDPARM/  SINLON  (72) 
COMMON  /RDPARM/  THSTD 
COMMON  /RDPARM/  THSTD2 
COMMON  /RDPARM/  WSAVE  M59J 
COMMON  /RDPARM/  OSIG  (9) 
COMMON  /RDPARM/  SIG  <9) 
COMMON  /RDPARM/  DSIGINV  (9) 


PHYSICS  PARAMETERS  AND  CONSTANTS 
COMMON  /CNTRLP/  CDFR 
COMMON  /CNTRLP/  CDXL 
COMMON  /CNTRLP/  COXO 
COMMON  /CNTRLP/  CLH 
COMMON  /CNTRLP/  COE  (91 
COMMON  /CNTRLP/  COEF 
COMMON  /CNTRLP/  COEFS 
COMMON  /CNTRLP/  COSROT 
COMMON  /CNTRLP/  CPP 
COMMON  /CNTRLP/  CTID 
COMMON  /CNTRLP/  CUMDAY 
COMMON  /CNTRLP/  CUMRAT 
COMMON  /CNTRLP/  CIO 
COMMON  /CNTRLP/  Cl  00 
COMMON  /CNTRLP/  C40 
COMMON  /CNTRLP/  DELTA 
COMMON  /CNTRLP/  0TC3 
COMMON  /CNTRLP/  OTOUT 
COMMON  /CNTRLP/  ED 
COMMON  /CNTRLP/  EDNM 
COMMON  /CNTRLP/  FCOEF 
COMMON  /CNTRLP/  F MU 
COMMON  /CNTRLP/  FWET 
COMMON  /CNTRLP/  GAM FAC 
COMMON  /CNTRLP/  GTOPO 
COMMON  /CNTRLP/  MICE 
COMMON  /CNTRLP/  NDTC3 
COMMON  /CNTRLP/  NFLW 
COMMON  /CNTRLP/  PIM 
COMMON  /CNTRLP/  QHOG 
COMMON  /CNTRLP/  SHLTOP 
COMMON  /CNTRLP/  SINROT 
COMMON  /CNTRLP/  SNOWN 
COMMON  /CNTRLP/  SNOWS 
COMMON  /CNTRLP/  5TB0 
COMMON  /CNTRLP/  STERP1 
COMMON  /CNTRLP/  STERP2 
COMMON  /CNTRLP/  TICE 
COMMON  /CNTRLP/  TLTOP 


VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VCNTRLP  2 
VCNTRL P 3 
VCNTRLP  4 
VCNTRLP  5 
VCNTRLP  6 
VCNTRLP  7 
VCNTRLP  8 
VCNTRLP  9 
VCNTRLP  10 
VCNTRLP  11 
VCNTRLP  12 
VCNTRLP  13 
VCNTRLP  14 
VCNTRLP  15 
VCNTRLP  16 
VCNTRLP  17 
VCNTRLP  IS 
VCNTRLP  19 
VCNTRLP  20 
VCNTRLP  2! 
VCNTRLP  22 
VCNTRLP  23 
VCNTRLP  24 
VCNTRLP  25 
VCNTRLP  26 
VCNTRLP  27 
VCNTRLP  28 
VCNTRLP  29 
VCNTRLP  30 
VCNTRLP  31 
VCNTRLP  32 
VCNTRLP  33 
VCNTRLP  34 
VCNTRLP  35 
VCNTRLP  36 
VCNTRLP  37 
VCNTRLP  38 
VCNTRLP  39 
VCNTRLP  40 
VCNTRLP  41 
VCNTRLP  42 


n 

o 

S3 

cn 

> 


Ui 


ORIGINAL  PAGI  W 
OF  POOR  QUALITY 


00292 

00293 

00294 


00295 


COMMON  /CNTRLP/  XDAY 
COMMON  /CNTRLP/  ZLNCO 
r LOGICAL  QHOG 

C DEBUG 
10000  CONTINUE 
C 
C 


VCNTRLP  43 
VCWTRLP  44 
VCNTRLP  45 
VCNTRLP  46 
VBEGDEB  2 
VBEGDEB  3 
VeEGDEB  a. 

CSSSSSSS$SSS£$$SSS5$$SS$SSSSSS$SSSS$S^SSSSS$SSS$SS$SSSSSSSSSSSS£SSSSSSSSVBEGdIb 


o 

o 

as 

CO 

s> 


****  CYBER  VECTOR  VERSION  00  O ; 1 INPUT  IOO 
****  CYBER  VECTOR  VERSION  00 


00296 

00297 
00  298 

00299 

00300 

00301 

00302 

00303 


C 

C 

C 

C 

C 

C 


SET  CONSTANTS  FOR  CURRENT  TIME 


QHOG 

ROT 

COSROT 
S INROT 
SNODEC 
SNOWN 
SNOWS 
XDA  V 


P 1 2°NSDA V/SDA V° - M°DHMS ( MHMS ’ NDH°G  > /MDTC3 . EO . O 
COS (ROT) 

SI N < ROT  > 

p * { \ 2 - *COS i . 98  63*  < NOA Y -24 , 668 ) *P1 180  J 

PI/3.  - SNODEC 
-PI/3.  - SNODEC 
FLOAT fNDAY* 63) 


00304 

00305 


RETURN 

END 


STATEMENT 
- “ LABEL 


LABEL  MAP 

DEF INED REFERENCES 


VCONSTA  34 
* VCONSTA  35 
►VCONSTA  36 
k * * * ♦VCONSTA  37 
► • ♦ * * VCONST A 38 
' * * * * VCONSTA  39 
VCONSTA  40 
VCONSTA  4 1 
VCONSTA  42 
VCONSTA  43 
VCONSTA  44 
VCONSTA  45 
VCONSTA  46 
VCONSTA  47 
VCONSTA  48 
VCONSTA  49 
VCONSTA  50 
VCONSTA  51 


9,  o 

” 5J 

S 5 

s 

iO 

c-  g 

£® 

3m 


10000 


295 


VARIABLE 
--NAME 


MAP 


-BLOCK  - 


-TYPE- 


-CLASS- 


-REFERENCES 


ADATE 

AOLDP 

APHEL 

ATIME 

BETA 

CIO 

Cl  00 

C40 

CAL. TOO 

CC 

CCO 

CCNTRL 


CCNTRL 

RDPARM 

RCNTRL 

CCNTRL 

RCNTRL 

CNTRLP 

CNTRLP 

CNTRLP 

RCNTRL 

CCNTRL 

CCNTRL 


CHARTS 

REAL 

REAL 

CHAR  *8 

REAL 

REAL 

REAL 

REAL 

REAL 

CHAR  *-8 

CHAR ♦ 8 

REAL 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 


A - ARGL I ST , C=CTRL  OF  DO.  I=OATA  INIT.  R=READ , S=STORE 


CCSP06 

CCNTRL 

CHAR 

CCSP07 

CCNTRL 

CHAR 

CCSP08 

CCNTRL 

CHAR 

CDFR 

CNTRLP 

REAL 

CD  XL 

CNTRLP 

REAL 

CDXO 

CNTRLP 

REAL 

CLH 

CNTRLP 

REAL 

CNTRLP 

REAL 

COE 

CNTRLP 

REAL 

COEF 

CNTRLP 

real 

COEFS 

CNTRLP 

REAL 

CONI 

RDPARM 

REAL 

C0N1DT 

RDPARM 

REAL 

CON2 

RDPARM 

REAL 

C0N2DT 

RDPARM 

REAL 

C0N3 

RDPARM 

REAL 

C0N3DT 

RDPARM 

REAL 

CON4 

RDPARM 

REAL 

CON4DT 

RDPARM 

REAL 

- - 

- - - . .......... 

..._  

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 


ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


3 

217 

157 

4 

158 

265 

266 
267 
196 

14 

2 

2 

13 

7 

B 

9 

253 

254 

255 

256 
253 
264 
275 
286 

257 
25S 
259 
218 

219 

220 
221 
222 

223 

224 

225 


Y/*  WRITE 


16 


17 


15 

14 

3 


15 

4 


1 1 


20 

21 

22 


254 

255 

256 

257 

258 

259 

265 

266 

267 

268 

269 

270 

276 

277 

278 

279 

280 

28  1 

287 

288 

289 

290 

291 

292 

260 
27  T 
282 
293 


26  1 
272 
283 


262 
273 
28  4 


12 


263 

274 

2B5 


V2 


CON5 

RDPARM 

REAL 

SIMPLE 

226 

CONSTA 

SUBROUTINE 

1 

COSO 

RCNTRL 

REAL 

SIMPLE 

159 

COSL 

RDPARM 

REAL 

ARRAY 

227 

COSLON 

RDPARM 

REAL 

ARRAY 

228 

COSROT 

CNTRLP 

REAL 

SIMPLE 

260 

298/5 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

CP02 

RDPARM 

REAL 

SIMPLE 

229 

CPP 

CNTRLP 

REAL 

SIMPLE 

26  1 

CQS 

CCNTRL 

CHAR  *8 

ARRAY 

12 

2r 

cou 

CCNTRL 

CHAR'S 

ARRAY 

13 

26 

CTID 

CNTRLP 

REAL 

SIMPLE 

262 

CUMDAV 

CNTRLP 

REAL 

SIMPLE 

263 

CUMRAT 

CNTRLP 

REAL 

SIMPLE 

264 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

161 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

163 

DELTA 

CNTRLP 

REAL 

SIMPLE 

268 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

OLON 

RCNTRL 

REAL 

SIMPLE 

166 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

OSIdNV 

RDPARM 

REAL 

ARRAY 

252 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

DTC3 

CNTRLP 

REAL 

SIMPLE 

269 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

270 

DXP 

RDPARM 

REAL 

ARRAY 

230 

DXYP 

RDPARM 

REAL 

ARRAY 

23  1 

DYP 

RDPARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

ED 

CNTRLP 

REAL 

SIMPLE 

27  1 

EDNM 

CNTRLP 

REAL 

SIMPLE 

272 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

F IDT 

RDPARM 

REAL 

SIMPLE 

234 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

FCOEF 

CNTRLP 

REAL 

SIMPLE 

273 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

FILTER 

LDP ARM 

LOGICAL 

ARRAY 

2 1 1 

214 

FMU 

CNTRLP 

REAL 

SIMPLE 

274 

FVVET 

CNTRLP 

REAL 

SIMPLE 

275 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

276 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU2 

RCNTRL 

REAL 

SIMPLE 

170 

GRAV 

RCNTRL 

REAL 

SIMPLE 

1 7 1 

GTOPO 

CNTRLP 

REAL 

SIMPLE 

277 

HtDT 

RDPARM 

REAL 

SIMPLE 

236 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

HEAT  I 

RCNTRL 

REAL 

SIMPLE 

193 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

MICE 

CNTRLP 

REAL 

SIMPLE 

278 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 
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QALT 

VCNTRL 

1 1 1 

00099 

COMMON  /LCNTRL/ 

QBEG 

VCNTRL 

1 f 2 

00100 
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QDAY 

VCNTRL 

1 13 

00101 

COMMON  /LCNTRL/ 

QEND 

VCNTRL 

1 14 

00102 

COMMON  /LCNTRL/ 

QOUT 

VCNTRL 

1 15 

00103 

COMMON  /LCNTRL/ 

QPHY 

VCNTRL 

1 16 

00104 

COMMON  /LCNTRL/ 

QSHF 

VCNTRL 

1 17 

00105 

COMMON  /LCNTRL/ 

SN2FLG 

VCNTRL 

1 18 

00106 

COMMON  /LCNTRL/ 

QRSW 

VCNTRL 

1 19 

00107 

COMMON  /LCNTRL/ 

QRSH 

VCNTRL 

120 

00108 

COMMON  /LCNTRL/ 

LQS ( 30 ) 

VCNTRL 

1 2 1 

00109 
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LQUI 10) 
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c 
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00112 
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129 
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(LFUSION 
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VCNTRL 
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00117 

EQUIVALENCE 
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VCNTRL 

131 

001  18 

EQUIVALENCE 

(LRADLV/G 

, LQS ( 9)) 

VCNTRL 

132 

00119 

EQUIVALENCE 

ILICLOUD 

* LQS ( 10)  > 

VCNTRL 

133 

00120 

EQUIVALENCE 

(LUFLUX 

,LQS(  ID) 
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QOAY 
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QPHY 
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SN2FLG 
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QRSW 
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COMMON  /RCNTRL/ 

ECO 

00157 

COMMON  /RCNTRL/ 

APHEL 

00158 

COMMON  /RCNTRL/ 

BETA 

00159 

COMMON  /RCNTRL/ 

COSD 

00160 

COMMON  /RCNTRL/ 

CP 

00161 

COMMON  /RCNTRL/ 

DAYSPY 

00162 

COMMON  /RCNTRL/ 

DEC 

00163 

COMMON  /RCNTRL/ 

OECMAX 

00164 

COMMON  /RCNTRL/ 

0 1 ST 

00165 

COMMON  /RCNTRL/ 

DLAT 

00166 

COMMON  /RCNTRL/ 

DLON 

00167 

COMMON  /RCNTRL/ 

DT 

00168 

COMMON  /RCNTRL/ 

ECCN 

00169 

COMMON  /RCNTRL/ 

GNU? 

00170 

COMMON  /RCNTRL/ 

GNU2 

00171 

COMMON  /RCNTRL/ 

GRAV 

00172 

COMMON  /RCNTRL/ 

0MEGA2 

00173 

COMMON  /RCNTRL/ 

PI 

00174 

COMMON  /RCNTRL/ 

P 1 1 80 

00175 
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00176 
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PSTD 

00177 
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PIMEAN 
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COMMON  /RCNTRL/ 

PSMAX 

00179 

COMMON  /RCNTRL/ 

P3MIN 

00180 

COMMON  /RCNTRL/ 

P70P 

00181 

COMMON  /RCNTRL/ 

RADE 

00182 

COMMON  /RCNTRL/ 
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00183 

COMMON  /RCNTRL/ 

ROCP 
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/rcntrl/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 
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SDAY 
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TSTO 
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EPS 

EPSFAC 
CAL  TO J 
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RCO,  RC  < 200  * 
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COMMON  /I DPARM/  JC 
COMMON  /I DPARM/  JE 
COMMON  /IDPARM/  jp 
COMMON  /IDPARM/  KSTEP 
COMMON  /IDPARM/  MJ 
COJJMON  /IDPARM/  NHMS1 
COMMON  /IDPARM/  NYMD1 


c fJ?0DEL  CONSTANTS 
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PKSTD 
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c 

c 
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c 

c 

c 

c 

c 

c 
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/RDPARM/ 
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SI  NL 

SINLON 

TH5TD 

THSTD2 

Y/SAVE 

DSIG 

SIG 

dsiginv 


(2) 

(46) 

(72) 
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(9) 
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(7128.1) 

(72.99.1 ) 

(72.9.11.1) 
(72.9, 1 1 , 1 > 

(72.9.11.1) 
<72.9, 11,1) 
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VQANDQT  9 
VQANDQT  10 
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VQANDQT  50 
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VQANDQT  55 
VQPOLES  2 
VOPOLES  3 
VQPOLES  4 
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00290 
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00294 

00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 
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00304 
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00306 

00307 
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STATEMENT 

--LABEL--- 

10 

10000 

50 


COMMON  /QPOLES/  PHIP(9,2,2) 
COMMON  /IMJM/ 


S 

s 

s 

5 


c 

C DEBUG 
10000  CONTINUE 
C CYBER 

C •***  CYBER 


IMNLAY. 
IMD2M1  * 
NLAYT2, 


I MM  1 . 
IMT2  , 
IMNLAY1 , 


I MM2  , 
IMT4  , 
IMNLAY2, 


I MM3  * 


IMM4  , 


IMM5  , 


IMNLAY3,  IMNLA Y4  t IMNL A Y5 , 


NLAYT3,  NLAYT4,  NL A YT5  * NLA YT6 . NLAYT7 


VECTOR 

VECTOR 


VERSION 

VERSION 


00 

00 


001  INPUT  100 


VOPOLES 

VOPOLES 

VIMJM 

V I IMJM 

VIMJM 

V I M JM 

VIMJM 

VCOPYO 

VBEGDEB 

VBEGDEB 

VBEGDEB 

VBEGDEB 
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IF  < M . EQ . 0 ) GO  TO  50 

POLE  POINT 

PP< N1 , M ) = PP(N2,M) 

00  10  L= 1 . NLAY 
UP ( L « N 1 , M ) = UP ( L . N2 , M ) 
VP(L.NI.M)  = VP  f L , N2 ,M) 
TPfL.NI.M)  = TP ( L t N2 , M ) 
SHP(L.NI.M)  = SHP ( L , N2 . M ) 

10  CONTINUE 


SO 


P(  1 ,N1 
U<  1 , 1 
V(  1 
T ( 1 
SH*  1 

ENO 


CONTINUE 

J; IMI  = P( 1 ,N2, J;IM) 

N 1 , d ; IMNLAY  ) = UM  , 1 
1 . N 1 f J; IMNLAY ) = VII 
1 , N 1 , d ; IMNLAY ) = T(1 

1 , N 1 , J; IMNLAY)  = SH< 1 
RETURN 


N2 , J j IMNLAY) 
1 9 N2 « J ; IMNLAY ) 
1 ,N2.d; IMNLAY) 
1 ,N2, J; IMNLAY) 
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28 

29 

30 

31 

32 

33 

34 
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36 


300 
291 
30  1 


295 

293 
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-NAME 

BLOCK 

TYPE--- 

ADATE 

CCNTRL 

CHAR  *8 

ADLDP 

RDP ARM 

real 

ALBEDO 

QANDQT 

REAL 

APHEL 

RCNTRL 

REAL 

ATIME 

CCNTRL 

CHAR  *8 

BETA 

RCNTRL 

REAL 

CALTOJ 

RCNTRL 

REAL 

CC 

CCNTRL 

CHAR-8 

CCO 

CCNTRL 

CHARTS 

CCNTRL 

REAL 

CCSP06 

CCNTRL 

CHAR  *8 

CCSP07 

CCNTRL 

CHAR*8 

CCSP08 

CCNTRL 

CHARTS 

CONI 

RDPARM 

REAL 

CON IDT 

RDPARM 

REAL 

C0N2 

RDPARM 

REAL 

C0N2DT 

RDPARM 

REAL 

C0N3 

RDPARM 

REAL 

C0N3DT 

RDPARM 

REAL 

C0N4 

RDPARM 

REAL 

C0N4DT 

RDPARM 

REAL 

CONS 

COPYO 

RDPARM 

REAL 

COSD 

RCNTRL 

REAL 

COSL 

RDPARM 

REAL 

COSLON 

RDPARM 

REAL 

-CLASS- 


SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SUBROUTINE 

SIMPLE 

ARRAY 

ARRAY 


-REFERENCES  A = ARGL 1ST,  C -C TRL  OF  DO.  I =?DATA  INIT,  REREAD.  S=STORE. 


3 

217 
256 
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EXUjIM)  = HH3PM  ;IM)  - HH1SPM;IM) 

BIT72M;IWH  = EX(1:IM)  . GT  . 0.0 

I 8 I T = Q8SCNT ( BIT72(1;IM)  ) 

IF < 1 81 T . EQ . 0 ) GOTO  1001 

WHERE*  BTT72( 1 ; IM)  ) 

TEMP  ( 1 . 1 ; IM  > = ( EXM;IM>  * < 1 , *GAM1 P U ; IM) > 

S * (SS1PH  ;IM)-SS2P<  1 ;IM))  )*ADS1P 

S + (HH3P f ! ; IM) -HH2P f t ; IM) ) *ADS3P 

E NOWHERE 

BITMAXM  ;IM)  * 0.00  1 .GT.  TEMP  (1 f 1 ; XM ) 

WHERE  1 BIT72( 1 ; IM)  .AND.  8ITMAX<t;IM>  > TEMPI  1 , 1 ; IM)  = 0.001 
V/H  E R E < BZT72C1;IM>  ) CXDM;IM>  = E X ( 1 ; IM  > / TEMP  ( t . f : IM) 

BITMAX  ( t J IM)  * CXD  ( 1 : IM)  .GT.  DS3P 

WHERE*  0IT72(  1 ; IM)  .AND,  BITMAXM  ;IM>  ) CXDM:IM>  = DS3P 
WHERE { BIT72I 1 ; IM)  ) 

CVT 1 P < 1 : IM)  = CXD(Y;IM)  ♦ ISS1PM;IM)  - SS2P<1;IM)  * EXM;IM> 
S / (1.  * GAM  IP  U ; IM)  ) >*ADS1P 

CVT3P  M ; IM ) * CXDM;IM)  ♦ (5S2P(1;IM)  - SS3P  M ; IM)  MAD53P 
CVQIPMjIM)  = CXD  ( 1 ; IM)  * < Q2P|1;IM)  - 0ST1PM;IM) 

S - E X ( 1 ; I M ) * GAM  I P M ; I M ) / < ( t . + GAM t P M ; IM) > * CLH  ) '♦ADS  IP 
CVQ3P ( 1 ; IM)  = CXD ( 1 ; IM) * < Q3P(f;IM)  - 02P M : IM ) ) * ADS3P 
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03P  < 1 ; IM) 
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CV03P  < 1 ; I M ) -DS3P)*.1*SP(1;IM)*AGRAV 


IM)  > *CVT 1 P < I ; IM) 
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CLH  *CV03P  t 1 ; IM) 


HH  ISP  ( 1 ; IM ) ♦ (1.  * GAM  TPM 

HH3SP ( t ; IM ) + 11.  ♦ GAM3P < 1 
HH3P ( 1 ; IM)  * CVT3P< 1 ; IM)  - 

SSIPMlIM)  * CVT!P(1;IM) 

SS3P  < 1 ; IM I ^ CVT3P ( 1 ; IM ) 
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OSTIP(ljtM)  - GAM1P1 1 ; IM) ♦CVT1P( 1 ; IMI ♦ACUH 
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- IQSDIAGf I . I ICLOUD 


C 

C 

C 

C 

C 

c 

c 

C 

c 


c 

c 

c 

c 

c 

c 

C 


1001  CONTINUE 
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DO  1020  1=1, IM 

IF  <HH5P(I>  ,LE.HH3SP<I>  .OR.  HHSP 1 1 ) . LE . HH 1 SP ( I > ) GO  TO  1020 

TEMP (1,1)  = AMAX1I  .00  1 ,HH5Pf I ) - HH3P I I ) > 

IF  (HHISP(I)  .GT.HH3SPU)  > GO  TO  220 


TYPE  A 


C 

C 

C 

c 

c 

c 

C 


RETA  =■ 

IF  (RETAfLT.O.)  RETA=0 
EX  < 1 > = HH3SP (J1  - HH 1 SP ( I > 

TEMPI!.  1)  = If.  * GAM3P1  I)  ) MSS2P1I  ) - 
l MSS3P<I)  - 

" BETA* ( HH5P ( I > - HH4P ( I ) > *ADS5P 
,1)  = AIWAX1  { . 001  , TEMP  ( I . 1 ) ) 

225 ( HH5P(I)“HH3SP( 1 > )/ TEMP (1.1) 
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TEMP  « I 
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CONTINUE 
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CONTINUE 
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IF  (TEMP( I . 1 ) .GT.DS3P)  CXD(I)  = DS3P  / U.-RETA) 
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VCUMUL02 1 2 
VCUMUL0213 
VCUMUL02 1 4 
VCUMUL02 1 5 
VCUMUL02 1 6 
VCUMULQ21 7 
VCUMUL02 1 8 
VCUMUL02 19 
VCUMULO220 
VCUMUL0221 
VCUMIJL0222 
VCUMUL0223 
VCUMUL0224 
VCUMUL0225 
VCUMUL022G 
VCUMUL0227 
VCUMUL0228 
VCUMUL0229 
VCUMULO230 
VCUMUL023 1 
VCUMUL0232 
VCUMUL0233 
VCUMUL0234 
VCUMUL0235 
VCUMUL0236 
VCUMUL0237 
VCUMUL023B 
VCUMUL0239 
VCUMULO240 
VCUMULO 24 1 
VCUMUL0242 
VCUMUL0243 
VCUMULQ244 
VCUMUL024S 
VCUMUL0246 
VCUMUL0247 
VCUMUL0248 
VCUMUL0249 
VCUMULO 250 
VCUMULQ25 1 


go 

^ a 

3 S 
o 

o § 
xj  j£ 


lO  ‘TT 

c£ 
g m 

C Pi) 


CUMULO  10 


TEMPI  I.  1>  = CXD<I)*RETA 

IF  (TEMPI  I . t > .GT.DS5P)  CXD(I)  = DS5P  / RETA 

CT1PUI  = CXDI  UMSSIPII)  -SS2PI I ) + EXC1  ) / <1  * *GAM1P(  I > ) > • AOS  II 
CT3PU)  = CXDI  I > * f SS2P  ( I > -5S3P  ( I ) *RETA 
$ * i SS3P ( 1 ) - SS4PII) ) > *ADS3P 

CT5PI1)  ' CXDI I )*RETA* |SS4P( 1 ) - SS5P I I >) * ADS5P 
C01PH)  = CXDII)  MQ2P  ID -QST1PI  I ) -EXI  I ) *GAM1PU> 

S / I (1  . M5AM1P< X)  ) *CLH)  I -AOS1P 

C03  PU)  = CXDI  I > MQ3P  II) -02P  (I)  * RETA 

S * I04PIIJ  - Q3P ( I ) ) ) *ADS3P 

C05P ( I ) = CXDI I ) *RETA* (Q5P f I ) - Q4P ( I ) > * ADS5P 

DO  227  L - LCL 1 , LCL2 
CLOUD ( I ( L ) = 1 
227  CONTINUE 

CLOUD  ( I , NLA  Y-*-3  I = LCL  1 - 3 

IF  ( QOUT . AND . L I CLOUD > I QSO I AG < I , I I CLOUD . d > = 

S I OSD  I AG( I , 1 1 CLOUD , J ) + (LCL1-3)*4 

NCL  = NCLM 
IF  INCL.GT.4)  NCL  = 1 

LCL 1 = 8 “ NCL 
IF  < NCL . EQ . 1 ) LCL 1 = 5 

LCL2  - LCL  1 * 3 

1 020  CONTINUE 

BIT72(1;IM)  a HHSP ( 1 ; IM ) . GT . HH3SP11:IM) 

BIT72(t;IM)  = BIT72<1jIM>  .AND.  HH5P<1;IM>  .GT.  HH  1 SP  t 1 : I PA  l 

IBIT  a Q8SCNT ( BIT72<1;IM>  ) 

IF!  I0IT  . EQ . 0 > GOTO  200; 


WHERE ( BIT72I  1;IM)  ) 


CVT 1 P ( 1 ; IM> 
CVT3PI 1 ; IM) 
CVT5PI 1 ; IM) 
CVOIP( 1 : IM) 
CV03P  < 1 : IM) 
CVQ5PI 1 ; IM) 


CVT 1 P I 1 ; IM) 
CVT3PI 1 ; IM) 
CVT5PI 1 : IM) 
CVOtPI 1 : IM) 
CVQ3PI I ; IM) 
CVOSP ( 1 ; IM) 


CT  t P ( I 
CT3P ( 1 
CT5P ( I 
CQtPI t 
C03P  t 1 
C05P I I 


S53P<1;ZM)  a SS3P ( 1 ; I M ) * CT3PI1;IM> 

5S5PM;IM>  = SSSP(t;IM)  * CTSP(t;IM) 

Q3PM;IM>  = Q3P(t;IM)  - CQ3Plt;IM) 

05P(1;IM)  = Q5P(1;IM)  - CQ5P(t:IM) 

PCPEN ( 1 ; IM)  = < C0 1 P ( t ; IM) *DS 1 P * CQ3P * 1 ; IM) -DS3P 
$ + CQ5P  < 1 : IM) »DS5P ) 

S ♦ ♦ 1 *SP  I 1 * IM) *AGRAV 

HH  1 SP I 1 ; IM)  = HHtSP(1;IM)  + (1 . + GAM IP! 1;IM))*CT?P( 1 ; IM) 

HH3SP  I t ; IM ) = HH3SP I 1 ; IM)  + <1.  * GAM3P  ( 1 ; IM ) ) *CT3P  I 1 ; IM  I 

HH3P(t;IM)  = HH3PI1;1M>  «■  CT3P<1;IM>  - CLH*CQ3P  ( 1 ; IM ) 

HHSPItjIM)  = HH5P  ( t : IM>  <■  CT5PM;IM)  - CLH -C05P  f 1 : 1 M • 

ENOWHERE 

1001  CONTINUE 


LOW  LEVEL  CONVECTION 


EX  ( 1 ; I M ) = HHSP  ( 1 ; IM  ) - HH3SPM;IM) 

BIT72(1;IM)  = EXI1;IM)  .GT.  0.0 

IBIT  = Q85CNT  < BIT72Y1;XilDl  > 

I F ( IBIT  .EQ.  O ) GOTO  3001 


VCUMUL0252 
VCUMUL02S3 
VCUMUL0254 
VCUMUL02S5 
VCUMUL0256 
VCUMUL0257 
VCUMUL025B 
VCUMUL0259 
VCUMUL0260 
VCUMUL0261 
VCUMUL0262 
VCUMUL0263 
VCUMUL02G4 
VCUMULQ265 
VCUMUL0266 
VCUMUL02G7 
VCUMUL02G8 
VCUMUL02G9 
VCUMUL0270 
VCUMUL0271 
VCUMUL0272 
VCUMUL0273 
VCUMUL0274 
VCUMUL0275 
VCUMUL027G 
VCUMUL0277 
VCUMUL027B 
VCUMUL0279 
VCUMULO2B0 
VCUMUL028 1 
VCUMUL0282 
VCUMULQ2B3 
VCUMUL02S4 
VCUMUL02B5 
VCUMUL0286 
VCUMUL0287 
VCUMUL02S8 
VCUMUL0289 
VCUMUL0290 
VCUMUL029 1 
VCUMUL0292 
VCUMUL0293 
VCUMUL0234 
VCUMULQ295 
VCUMUL0296 
VCUMUL0297 
VCUMUL0298 
VCUMUL0299 
VCUMUL0300 
VCUMULO30 1 
VCUMULO302 
VCUMULO303 
VCUMULO304 
VCUMUL0305 
VCUMUL030G 
VCUMUL0307 
VCUMULO308 
VCUMUL0309 
VCUMUL031 0 
VCUMUL031 1 
VCUMUL0312 
VCUMUL03 13 
VCUMUL03 14 
VCUMUL03 15 
VCUMUL031G 
VCUMUL03  17 
VCUMUL0318 
VCUMUL03 19 
VCUMULO320 
VCUMUL0321 
VCUMUL0322 


O 

c > 


00535 

00536 

00537 
0053S 
00539 


00541 

00542 


00544 

00545 


00546 

00547 


00550 

00551 

00552 

00553 

00554 


00557 

00558 

00559 

00560 

00561 

00562 

00563 

00564 


00567 

00568 

00569 

00570 

00571 

00572 

00573 

00574 
00375 

00576 

00577 

00578 

00579 


WHERE4  BIT72(1:1M)  ) 

TEMP  < 1 , 1 ; I M ) = 4 EX(1;1M)/41.  * GAM3P  ( t : IWI ) > 

5 + SS3P 4 1 ; I M ) - SS5P  < ! ; IM ) ) ♦ ACLH 

TEMP  { 1 ,3;  IWI)  = TEMPO,  1;IM)  - (DS3P/4DS3P  * 0S5PJ) 

TEMPO, 5:IM)  = TEMP  4 1 , 1 ; IM ) - TEMP  ( 1 . 3 ; I M ) 

TEMPI  I , 1 : IM)  = <(!.*  GAM3P 4 1 ; I M ) ) 

5 * ( (SS3P ( 1 ; IM) -SS4P4 1 ; IM) > -CLH*TEMP( 1 .3; IM>  > 

5 + EX4 1 ;IM> ) ♦ ADS3P 

S * 4 HH5P  { 1 ; IM  > - HH4P4  t : IM)  > -ADS5P 

E NOWHERE 

BI TMAX 4 1 ; IM)  - 0.001  . GT . TEMPO, 1;1M> 

WHERE  ( BIT72M;IM>  .AND,  B I TMAX  O ; IM)  ) TEMPO,  1 : IM)  = 0.001 
WHEREf  B I T72 ( 1 ; IM ) ) CXD(1;IM)  - EX C f ; IM) /TEMPI  1 t 1 ; IM) 

BITMAXM;IM)  = DS5P  , LT . CXDOlIM) 

WHERE  4 BI  T72  < 1 J IM  > .AND.  B|TMAX(1;IM)  ) CXDOlIM)  = DSSP 
WHERE  4 BIT72 4 1 ; IM ) ) 

CT3P  4 1 ; IM ) = CXD41;IM)  ♦ (SS3P(1;IM>  * SS4P41;IM) 

$ - CLH  * TEMP (1,3; IM)  + EX(1:IM) 

S / ( 1 .0+GAM3PO  ; IM)  > OADS3P 

CT5R4 1 ; IM)  = CXD  C t ; IM ) • 4S54PM;IM)  - SS5P4I;IM) 

$ - CLH  * TEMP  M , 5 ; IM ) ) " A055P 

C05P  4 1 ; IM)  = CXD(t;IM)*( Q5P  4 1 ; IM)  - 04PO;IM) 

S - TEMPO  f5; \tA)  ) *AD55P 

CQ3P  < 1 ; IM)  = -CQ5P { 1 ; I M ) * DS5P * ADS3P 
CVT3P  1 1 ; IM)  = CVT3P 4 1 ; IM  > ♦ CT3P I 1 ; IM) 

CVTSPOOM)  = CVT5P  4 1 ; I M ) + CTBP(1;1M) 

CVQ3P  4 1 ; IM ) = CVQ3PO;IM)  * CQ3PO;IM) 

CV0SP ( 1 ; IM ) - CVQ5P 4 1 ; IM > + CQ5P(1;IM) 

PCLOW4 1 ; IM)  = <0S3P*CQ3P< 1 ;IM>  + DS5P *CQ5P O ; I M > ) 

S * . 1*SPO  ;IM)*AGRAV 

ENDWHERE 

DO  1030  1=1 , IM 
E X 4 I ) = HH5P4I)  - HH3SP4I) 

IF  ( EX  4 I ) . LE  . 0 . ) GO  TO  1030 


L = 8 

IF  4 RH ( I , 7 ) . GT , RH ( I ,8 ) ) L = 7 

CLOUD  4 I , L ) = 1 

CLOUD  4 I , NLA YP 1 ) = L - 6 
IF  4 0OUT . AND , L I CLOUD ) I QSDI AG< I , 1 1 CLOUD , J ) = 

S I OSD  I AG  4 I , I I CLOUD  , J ) * 4L-6IM6 

330  CONTINUE 

301  CONTINUE 


DISTRIBUTION  OF  CVTP  AND  CVQP  INTO  THE  NINE  LAYERS 
>**  CODING  IS  SPECIAL  FOR  2-2-2  STRAPPING 


CVT  4 1,4; IM)  = 1 . 25 *CVT 1 P 4 1 ; IM)  - . 25 *CVT3P ( 1 ; IM > 

CVT41.SOM)  = . 75  *CVT  1PM;XM)  + . 25  *CVT3P  4 1 ; IM ) 

CVT  4 1*6;  IM)  = CVT3PO;IM)  * 0 . 1 25*  4CVT  IP  O ; IM ) - CVT5P  ( 1 ; IM  > > 
CVT  O , 7 ; IM } = CVT3P(1;IM>  - G . 1 25MCVT 1 P O ; IM)  - CVT5PO;!MM 
CVT 4 1 , 8 ; IM } = . 75*CVT5P  4 1 ; IM)  + . 25 *CVT3P O ; IM > 

CVTOt9;IM>  = 1 , 25*CVT5P  41  ; IM I - , 25*CVT3P  4 1 : IM) 

TEMP  4 1 . 1 ; IM)  = 2.*SHSATO,4;IM)/4SHSATO  ,4;IM)  * SHSAT O . 5 : IM > ) 
BIT724  t : IM)  = CVQ1P(1:IM)  .GT.  0.0 
WH E R E 4 BIT724  1 : IM)  ) 

TEMP < 1 , 1 ; IM)  = 2. *SHL< 1,4; IM) / 4 SHL 4 1 .4; IM) *SHL<  1 ,5 ; IM > * 1 , E-50  > 
ENDWHERE 

TEMPO, 2;IM)  = 2. -TEMPI  1 , 1 ;IM) 

CVQO,4;IM)  = TEMP  4 1 , 1 ; IM ) *CVQ1P41iIM) 


VCUMUL0323 
VCUMUL0324 
VCUMUL0325 
VCUMUL0326 
VCUMUL0327 
VCUMUL0328 
VCUMUL0329 
VCUMULO330 
VCUMUL0331 
VCUMUL0332 
VCUMUL0333 
VCUMUL0334 
VCUMUL0335 
VCUMUL0336 
VCUMUL0337 
VCUMUL0338 
VCUMUL0339 
VCUMUL0340 
VCUMUL0341 
VCUMUL0342 
VCUMUL0343 
VCUMUL0344 
VCUMUL0345 
VCUMUL0346 
VCUMUL0347 
VCUMUL0348 
VCUMUL0349 
VCUMUL0350 
VCUMUL035 1 
VCUMUL0352 
VCUMUL0353 
VCUMUL0354 
VCUMUL0355 
VCUMUL0356 
VCUMUL0357 
VCUMUL0358 
VCUMUL0359 
VCUMUL0360 
VCUMUL0361 
VCUMUL0362 
VCUMUL0363 
VCUMUL0364 
VCUMUL0365 
VCUMUL0366 
VCUMUL0367 
VCUMUL0368 
V0UMULO369 
VCUMUL0370 
VCUMUL037 1 
VCUMUL0372 
VCUMUL0373 
VCUMUL0374 
VCUMUL0375 
VCUMUL0376 
VCUMUL0377 
VCUMUL0378 
VCUMUL0379 
VCUMULO380 
VCUMUL038 1 
VCUMUL0382 
VCUMUL0383 
VCUMULQ384 
VCUMUL0385 
VCUMUL0386 
VCUMUL0387 
VCUMUL038S 
VCUMUL0389 
VCUMUL0390 
VCUMUL0391 
VCUMUL0392 
VCUMULQ393 


r > 


.. . : 


ORIGINAL  PAGE  IS! 
OF  POOR  QUALITY 


00580 

0058  t 
00aS2 

00583 

00584 

00585 
0058G 

00587 

00588 

00589 

00590 

0059  1 

00592 

00593 

00594 

00595 

00596 


00597 

00598 

00599 


00600 


00601 

00602 


C 


0 


c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


CVQM.5:!M)  * TEMP 


CVO  IP  C t ; 1 M ) 


SHSAT  f 1 . 7 : f Ml  » 


TEMPMt1;lM)  = 2 . ♦SHSAT  (1,6;IM)/(  SHSAT  ( 1 , 6 ; IM ) 

BI772<  1 ; IM>  = CVQ3P<1;IM)  * GT . 0.0 

V/HERE  ( BIT72M;ZNI)  > „ Tiil  . _ 

TEMPI  1 t 1 ; IM)  * 2. *SHL<  1 ,6; IM) / ( SHL t 1.6: IM ) ^ SHL  f 1 . 7 ; IM)  M . E -50  > 
ENDWHERE 

TEMP  <1,2; IM)  “ 2 . -TEMP  t 1 , 1 ; IM ) 

CVO < 1 , 6 ; IM  > = TEMP (1 . 1 ; IM  > - CVQ3PU;IM> 

CVQM.7:tM>  - TEMP  ( 1 , 2 : IM ) ♦ CV03PM:1M> 

TEMP (1,1; IM)  = 2.-SHSATI1  . B ; IM >/ t SHSAT fl  ,8;IM)  * SHSAT  < 1 , 9; IMM 

BIT72<1;IMJ  = CV05P(1;IM)  . GT . 0.0 

WHERE  ( B I T7 2 1 1 ; I M ) ) t ,iti  _ 

TEMP { 1 , 1 ; IM)  = 2 . # SHL ( 1.8: IM) / f SHL < 1,8: IM) -SHL<  1 . 9 : IM) * 1 . E -50 » 

E NOV/HE  RE 

TEMPI  1 .2;  HIM  “ 2 . -TEMP  ( 1 . 1 : IM) 

CVQ ( I , 8 ; IM ) = TEMP (1 , 1 ; IM  J • CV0SP(1;IM) 

CVO ( 1 , 9 ; IM ) “ TEMP  ft , 2 : IM ) * CV05P(1;IM) 


****  UPDA  ’E  TEMPERATURES.  SPECIFIC  HUMDI7Y,  ETC.  ♦*** 
***  * **** 


TL( 1 , 1 J IMNLAY > = 
SHL f 1 , 1 ; IMNLAY ) “ 


TL ( 1 . 1 J IMNLAY) 
SHL (1,1; IMNLAY) 


* CVT< 1.1; IMNLAY) 
- CVO ( 1 . 1 J IMNLAY » 


SHSAT ( 1 , 1 ; IMNLAY ) 

S 

S 


VQSAT1  TLM  . 1 J IMNLAY)  , 

P L t 1 « 1 ; IMNLAY ) , IMNLAY; 
SHSAT ( 1 , 1 ; IMNLAY)  ) 


GAM ( 1,1; IMNLAY ) 
S 


GAMFAC^SHSAT < 1,1; IMNLAY  > / 

TL ( 1 . 1 : IMNLAY ) * TL  ( 1.1; IMNLAY)  ) 


RETURN 

END 


VCUMUL03S4 
VCUMUL039S 
VCUMUL0396 
VCUMUL0397 
VCUMUL0398 
VCUMULQ3S9 
VCUMUL04  00 
VCUMUL0401 
VCUMUL0402 
VCUMUL0403 
VCUMUL0404 
VCUMUL0405 
VCUMULO406 
VCUMUL0407 
VCUMUL0408 
VCUMUL0409 
VCUMUL04 1 0 
VCUMUL04 1 1 
VCUMUL04 1 2 
VCUMUL0413 
VCUMUL0414 
VCUMUL0415 
VCUMUL04 16 
VCUMUL0417 
VCUMUL04 1 8 
VCUMUL04 1 9 
VCUMULO420 
VCUMUL042  f 
VCUMUL0422 
VCUMUL0423 
VCUMUL0424 
VCUMUL0425 
VCUMUL0426 
VCUMUL0427 
VCUMUL0428 
VCUMUL0429 
VCUMULO430 
VCUMULQ431 


STATEMENT  LABEL  MAP 


LABEL-- 

-DEFINED- 

- -REFERENCES 

10000 

1001 

395 

469 

438 

1010 

468 

46! 

462 

1020 

SOS 

470 

471 

1030 

565 

557 

559 

200  1 

530 

512 

220 

481 

473 

2 25 

487 

480 

227 

500 

498 

3001 

566 

534 

VARIABLE  MAP 


--NAME 

---BLOCK- 

ACLH 

ADATE 

CCNTRL 

ADLOP 
ADS  1 P 
ADS3P 
ADSSP 
AGRAV 

RDPARM 

AL 

RADCOM 

ALBEDO 

QANDQT 

APHEL 

RCNTRL 

AS 

RADCOM 

ATIME 

CCNTRL 

BETA 

BIT72 

RCNTRL 

jyPE CLASS REFERENCES  A = ARGL I ST ♦ C = CTRL  OF  DO.  I =DA7A  INIT,  R=READ,  S^STORE . V/=WRIT£ 


REAL 

SIMPLE 

401  /S 

459 

536 

CHARTS 

SIMPLE 

3 

16 

REAL 

SIMPLE 

217 

450 

REAL 

SIMPLE 

405/S 

440 

448 

REAL 

SIMPLE 

406/S 

440 

449 

45  1 

REAL 

SIMPLE 

407/S 

477 

484 

494 

REAL 

SIMPLE 

400/S 

452 

524 

555 

REAL 

ARRAY 

34  1 

REAL 

ARRAY 

256 

269 

REAL 

SIMPLE 

157 

REAL 

ARRAY 

326 

CHAR  *8 

SIMPLE 

4 

17 

REAL 

SIMPLE 

158 

439 

BIT 

ARRAY 

393 

436/S 

437 

51  1 

513 

532/S 

533 

484  492  495 

477  493  496  539  547  550 

497  539  548  549 


443  444  446  447  509/S  510/S  510  O 

535  542  543  545  5*6  S74/S  575  C 


ir* 

O 


CO 


original  PA©E  ES 

OF  POOR  QUALITY 


BITMAX 

CIO 

CIOO 

C40 

CALTOd 

CC 

CCO 

CCNTRL 

CCSP06 

CCSP07 

CCSP08 

CDATE 

CDFR 

CD  X L 

CD  XO 

CLH 

CLOUD 

CNTRLP 


COE 

COEF 

COEFS 

CON  1 

CON 1 DT 

C0N2 

C0N2DT 

CON3 

C0N3DT 

C0N4 

CON4DT 

CONS 

COSD 

cost 

COSLON 

COSROT 

COS2 

CP 

CPD2 

CPP 

CQ1P 

CQ3P 

CQ5P 

COS 

CQU 

CT1P 

CT3P 

CT5P 

CTID 

CUMOAY 

CUMRAT 

CUMULO 

CVQ 

CVQ1P 

CVQ3P 

CVQ5P 

CVT 

CVT1P 

CVT3P 

CVT5P 

CXD 


CXDE 


c: 


582/S 


BIT 

ARRAY 

393 

CNTRLP 

REAL 

SIMPLE 

296 

CNTRLP 

REAL 

SIMPLE 

297 

CNTRLP 

REAL 

SIMPLE 

298 

RCNTRL 

REAL 

SIMPLE 

196 

CCNTRL 

CHAR  *8 

ARRAY 

14 

CCNTRL 

CHAR  * 8 

SIMPLE 

2 

REAL 

UNKNOWN 

2 

13 

CCNTRL 

CHAR-8 

SIMPLE 

7 

CCNTRL 

CHAR-8 

SIMPLE 

8 

CCNTRL 

CHARTS 

SIMPLE 

9 

RADCOM 

REAL 

ARRAY 

350 

CNTRLP 

REAL 

SIMPLE 

284 

CNTRLP 

REAL 

SIMPLE 

285 

CNTRLP 

REAL 

SIMPLE 

286 

CNTRLP 

REAL 

SIMPLE 

287 

RADCOM 

REAL 

ARRAY 

332 

REAL 

UNKNOWN 

284 

295 
306 
3 17 


CNTRLP  REAL  ARRAY 

CNTRLP  REAL  SIMPLE 

CNTRLP  REAL  SIMPLE 


288 

2B9 

290 


583  590/S  591 

442/S  443  44S/S  446  541/S  542  544/S  545 


r1 

o 


H* 


15 

1 4 

3 

20 

21 

22 


15 

4 5 6 7 8 9 10  11  12 


401 

450 

455 

495 

527 

465/S 

466/S 

499  S 

50  1 /S 

562/S 

285 

286 

287 

288 

289 

296 

297 

298 

299 

300 

307 

308 

309 

3 10 

311 

3 18 

3 19 

320 

32  1 

322 

528 

563/S 

539 

547 

548 

290 

291 

292 

293 

294 

301 

302 

303 

304 

305 

312 

323 

3 1 3 
324 

3 14 

315 

316 

RDPARM 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

RDPARM 

REAL 

ARRAY 

RDPARM 

REAL 

ARRAY 

CNTRLP 

REAL 

SIMPLE 

RADCOM 

REAL 

ARRAY 

RCNTRL 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

CNTRLP 

REAL 

SIMPLE 

DCUMU 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

CCNTRL 

CHAR ♦ 8 

ARRAY 

CCNTRL 

CHARTS 

ARRAY 

DCUMU 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

CNTRLP 

REAL 

SIMPLE 

CNTRLP 

REAL 

SIMPLE 

CNTRLP 

REAL 

SIMPLE 

SUBROUTINE 

RADCOM 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

RADCOM 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

DCUMU 

REAL 

ARRAY 

RADCOM 

REAL 

ARRAY 

218 

219 

220 
221 
222 

223 

224 

225 

226 
159 

227 

228 

291 
352 
ISO 
229 

292 


390 

495/S 

517 

524 

39  1 

496/S 

518 

522 

392 

497/S 

519 

523 

12 

25 

13 

26 

387 

492/S 

514 

525 

388 

493/S 

515 

520 

389 

494/S 

516 

521 

293 

294 

295 

338 

579/S 

580/S 

587/S 

382 

432/S 

450/S 

452 

3B3 

433/S 

451/S 

452 

587 

588 

384 

434/S 
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350 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

178 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

179 

I i 

< PSTD 

RCNTRL 

REAL 

SIMPLE 

176 

503  504  504/S  505  506 


466  501 


555/S 

452/S 

360 

S24/S 


ORIGINAL  PASS  m 
OF  POOR  QUALITY 


V 1 


PTOP 

PZERO 

02P 

Q3P 

Q4P 

Q5P 

QALT 

0 A MOOT 

QBEG 

QDAY 

QEND 

QHOG 

QOUT 

QPHY 

QPROG 


RCNTRL 

RCNTRL 

DCUMU 

DCUMU 

DCUMU 

DCUMU 

LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

CNTRLP 

LCNTRL 

LCNTRL 

QANDQT 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

REAL 


QRSW 

QRSW 

QSOIAG 

QSHF 

OSTtP 

QUO I AG 

RAO COM 


LCNTRL 

LCNTRL 

QANDQT 

LCNTRL 

DCUMU 

QANDQT 


LOGICAL 

LOGICAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 


RAPE 

RADTRM 

RC 

RCO 

RCLOUD 

RCNTRL 


RCNTRL 

RADCOM 

RCNTRL 

RCNTRL 

RADCOM 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


RDPARM 


REAL 


SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 


SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

UNKNOWN 


SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

UNKNOWN 


UNKNOWN 


X 

RE 

RADCOM 

REAL 

ARRAY 

• V 

‘ u 

RETA 

REAL 

SIMPLE 

;f 

RGAS 

RCNTRL 

REAL 

SIMPLE 

* , 

RH 

RADCOM 

REAL 

ARRAY 

1 

RLAT 

ROPARM 

REAL 

ARRAY 

li 

RLATD 

RDPARM 

REAL 

ARRAY 

A 

RN 

RADCOM 

REAL 

ARRAY 

[V 

ROCP 

RCNTRL 

REAL 

SIMPLE 

? fc 

ROCPOT 

RDPARM 

REAL 

SIMPLE 

if 

ROC PP 1 

RDPARM 

REAL 

SIMPLE 

1. 

RSOIST 

RCNTRL 

REAL 

SIMPLE 

fl 

RSURF 

RADCOM 

REAL 

ARRAY 

s 

50 

RADCOM 

REAL 

SIMPLE 

\ 

SDAY 

RCNTRL 

REAL 

SIMPLE 

t ’ 

SEASON 

RCNTRL 

REAL 

SIMPLE 

SG 

RADCOM 

REAL 

ARRAY 

i » 

SGNP 

RDPARM 

REAL 

ARRAY 

i..* 

\ 

SH 

QANDQT 

REAL 

ARRAY 

: ' 

SHG 

RADCOM 

REAL 

ARRAY 

f 

SHL 

RADCOM 

REAL 

ARRAY 

[ :r 

SHLE 

RADCOM 

REAL 

ARRAY 

f ■ 

SHLTOP 

CNTRLP 

REAL 

SIMPLE 

! 

SHS 

QANDQT 

REAL 

ARRAY 

SHSAT 

RADCOM 

REAL 

ARRAY 

SIG 

RDPARM 

REAL 

ARRAY 

SIGE 

RCNTPL 

REAL 

ARRAY 

SIND 

RCNTRL 

REAL 

SIMPLE 

SINL 

RDPARM 

REAL 

ARRAY 

SXNLON 

RDPARM 

REAL 

ARRAY 

180 

197 

361 

362 

363 
3G4 

98 
253 

99 
100 
101 
313 
102 
103 
253 
277 
107 
106 
280 
104 
365 
2B3 
326 
337 
348 
181 
352 
198 
156 
354 
156 


167 
178 
189 
2 17 
228 

239 
250 
326 
474/S 
493 
182 
334 

240 
24  1 
344 

183 

242 

243 

184 
354 
352 

185 

186 
3 S3 

244 
265 

332 
331 
592 
331 
314 
260 

333 
589 
25  1 

187 

188 

245 

246 


327 

338 

349 


199 

198 


157 


168 

179 

190 

218 

229 

240 

251 


475 

494 


464 


408  /S 
409/S 
4 10/S 
411/S 
126 
280 
127 
1 28 

129 
325 

130 
13  1 
267 
278 
135 
134 
282 
132 
412/S 


450 

45  1 

4 £5 

496 

45  1 

458/S 

458 

496 

496 

497 

549 

497 

283 

523/S 

523 

549 

496 


522/S 


522 


o o 

-n  w 

TJ  S 

O-z 

O 5s 

jo  r* 


05 

c > 

> S 

i“  pi 


467 

502 

564 

268 

279 

269 

270 

27  1 

450 

459/S 

459 

495 

328 

329 

330 

331 

339 

340 

34  1 

342 

350 

351 

352 

353 

199 

158 

159 

160 

161 

3 


272 


273 


274 


275 


276 


332 

343 

354 


333 

344 

355 


334 

345 

356 


335 

346 


336 

347 


162 


163 


164 


165 


166 


169 

180 

191 

219 

230 

241 

252 
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181 
192 
220 
23  1 
242 


17  1 
182 
193 
221 
232 
243 


172 

183 

194 

222 

233 

244 


173 

184 

195 

223 

234 

245 


174 

IBS 

196 

224 

235 

246 


175 
186 
197 
2 25 
226 
?47 


176 

187 


177 

18S 


226 

237 

248 


227 

238 

249 


475/S 

496 


477 

497 


464 


56  1 


477 

561 


482/S 


484 


488 


489 


490 


491 


27B 

409 

409 

4 1 1 

4 1 1 

592 

408 

592 

410 

598 /S 

598 

273 

412 

412 

573 

573 

599/S 

599 

600 

576 


576 


576 


584 


584 


584 


573 


581 


581 


581 


589 


5S5 


a 

tr* 

o 


vO 


r* 
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524 

555 

440 

440 

449 

547 

448 

448 

457/S 

456/S 
44  9 
457 

456 

477 

477 

V*  n 

CO  CON 

492 

492 

493 

477 
494 
415 
4 1 8 

493 
521  /S 
4 17 

494 

521 

417 

539 
536 
4 19 

547 

548 
4 1 9 

540 

lo?/.  til  S 4d<*  472/S  474 
4an/S  nil  d8S  48S/S  4C9 
“5® 538  S39/S  S39  541 
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491  S36/S  537 

S42/S  543  547  548 
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SUBROUTINE  DAILY  C*l 

UPDATE  CALENDAR,  CORRECT  GLOBAL  MEAN  PRESSURE.  AND  READ  CLIMATOLOGY 


00002 

00003 

00004 

00005 

00006 

00007 

00008 
0000S 
00010 
000  T 1 
000  12 
000  13 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 


ARGUMENTS 


DESCRIPTION 

CLIMATOLOGY  I/O  ERROR  RETURN 


I/O  DDNAME  DESCRIPTION 


MONTHLY  TOPOGRAPHY 
MONTHLY  GROUND  WETNESS 
MONTHLY  ALBEDO 


REFERENCES  DESCRIPTION 


READ  CLIMATE  DATASET 


CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 

/CCNTRL/ 


EQUIVALENCE 
CHARACTERS 
CHARACTER-8 
CHARACTER -8 
CHARACTER -8 

characters 

CHARACTER -8 
CHARACTER-8 
CHARACTER-8 
CHARACTER -8 
CHARACTER-0 
CHARACTER-8 
CHARACTER-8 


CCO 

ADATE 

ATIME 

JIC 

JOB 

CCSP06 

CCSP07 

CCSP08 

VER 

XLA0EL  M0  1 
COS  (30) 

C^U  (10) 

<CCO.CC( 1 ) ) 

CCO,  CC ( 200 ) 

ADATE 

ATIME 

JIC 

JOS 

CCSPOG 

CCSP07 

CCSPOB 

VER 

XLABEL 

CQS 

COU 


INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


IV  I 

00027 

COMMON 

/ 1CNTRL / 

ICO 

1 i 

00028 

COMMON 

/ ICNTRL / 

IM 

i| 

00029 

COMMON 

/ I CNTRL / 

IMD2 

00030 

COMMON 

/ICNTRL/ 

IMD2P1 

\ 1 

00031 

COMMON 

/ICNTRL/ 

NDRSW 

j 

00032 

COMMON 

/ICNTRL/ 

JM 

J 

00033 

COMMON 

/ICNTRL/ 

JMD2 

1 

00034 

COMMON 

/ICNTRL/ 

JMT2 

i 

00035 

COMMON 

/ICNTRL/ 

JNP 

l ' 

0003G 

COMMON 

/ICNTRL/ 

J04 

00037 

COMMON 

/ICNTRL/ 

JOS 

00038 

COMMON 

/ICNTRL/ 

JSP 

5 

00039 

COMMON 

/ICNTRL/ 

KLI ALB 

j-b  • 

00040 

COMMON 

/ICNTRL/ 

KLZGW 

5 V 

00041 

COMMON 

/ICNTRL/ 

KLISST 

1 - 

00042 

COMMON 

/ICNTRL/ 

KS 

; ; 

00043 

COMMON 

/ ICNTRL/ 

KU 

t 

00044 

COMMON 

/ICNTRL/ 

LOGBR 

i 

00045 

COMMON 

/ICNTRL/ 

MATIN 

* , 

00046 

COMMON 

/ICNTRL/ 

MATSNX 

j 

00047 

COMMON 

/ICNTRL/ 

MATSUN 

1 

00048 

COMMON 

/ICNTRL/ 

MLF 

* i 

00049 

COMMON 

/ICNTRL/ 

MROD 

r 

00050 

COMMON 

/ICNTRL/ 

NKRSH 

VDAILV 

2 

VOAILY 

3 

VO A I L Y 

4 

VDAILV 

5 

VOAILY 

6 

VDAILV 

7 

VOAILY 

8 

VDAILV 

9 

VDAILV 

10 

VDAILV 

1 1 

VDAILV 

12 

VDAILV 

13 

VDAILV 

14 

VDAILV 

15 

VOAILY 

16 

VCNTRL 

2 

vcntrl 

3 

VCNTRL 

A 

VCNTRL 

5 

VCNTRL 

6 

VCNTRL 

7 

VCNTRL 

8 

vcntrl 

9 

VCNTRL 

10 

VCNTRL 

1 t 

VCNTRL 

12 

VCNTRL 

13 

VCNTRL 

14 

VCNTRL 

15 

VCNTRL 

16 

VCNTRL 

17 

VCNTRL 

18 

VCNTRL 

19 

VCNTRL 

20 

VCNTRL 

21 

VCNTRL 

22 

VCNTRL 

23 

VCNTRL 

24 

VCNTRL 

25 

VCNTRL 

26 

VCNTRL 

27 

VCNTRL 

28 

VCNTRL 

29 

VCNTRL 

30 

VCNTRL 

31 

VCNTRL 

32 

VCNTRL 

33 

vcntrl 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

38 

VCNTRL 

39 

VCNTRL 

40 

VCNTRL 

41 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

46 

VCNTRL 

47 

vcntrl 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

51 

VCNTRL 

52 

VCNTRL 

S3 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

original  page  p 

OF  POOR  QUALITY 


0005  1 

COMMON 

/ ICNTRL / 

MSM 

00052 

COMMON. 

/ ICNTRL / 

NB 

00053 

COMMON 

/ICNTRL/ 

ND 

00054 

COMMON 

/ICNTRL/ 

NDALI 

00055 

COMMON 

/ICNTRL/ 

NDAY 

00056 

COMMON 

/ICNTRL/ 

NDOUT 

00057 

COMMON 

/ICNTRL/ 

NDPHY 

00058 

COMMON 

/ICNTRL/ 

NDSHF 

00059 

COMMON 

/ICNTRL/ 

NOT 

00060 

COMMON 

/ICNTRL/ 

NHMS 

00061 

COMMON 

/ICNTRL/ 

NHM5E 

00062 

COMMON 

/ICNTRL/ 

NHMSO 

00063 

COMMON 

/ICNTRL/ 

NLA  V 

00064 

COMMON 

/ICNTRL/ 

NLAYMt 

00065 

COMMON 

/ICNTRL/ 

NLA YP 1 

00066 

COMMON 

/ICNTRL/ 

N5DAY 

00067 

COMMON 

/ICNTRL/ 

NSEQ 

00068 

COMMON 

/ICNTRL/ 

ICSP53 

00069 

COMMON 

/ICNTRL/ 

NSTEP 

00070 

COMMON 

/ICNTRL/ 

IBLKSI Z 

0007  1 

COMMON 

/ICNTRL/ 

NYMD 

00072 

COMMON 

/ICNTRL/ 

NYMDE 

00073 

COMMON 

/ICNTRL/ 

NYMDO 

00074 

COMMON 

/ICNTRL/ 

NZJNIT 

00075 

COMMON 

/ICNTRL/ 

NMLEV 

00076 

COMMON 

/ICNTRL/ 

NDHOG 

00077 

COMMON 

/ICNTRL/ 

IQS  (30) 

00078 

r 

COMMON 

/ICNTRL/ 

IQU  < 10) 

00079 

EQUIVALENCE 

( ITMIN 

. IQSt 

1 > ) 

00080 

EQUIVALENCE 

{ ITMAX 

. I QS  < 

2 > > 

00081 

EQUIVALENCE 

( IPREACC 

. IOS( 

3)  ) 

00082 

EQUIVALENCE 

( I PRECON 

, IQS( 

4)  ) 

00083 

EQUIVALENCE 

( INFLUX 

, IOS< 

51  > 

00084 

EQUIVALENCE 

{ IEFLUX 

. IQS< 

6)  ) 

00085 

EQUIVALENCE 

( I FUSION 

. IQS( 

7)  ) 

00086 

EQUIVALENCE 

< I RADSVJG 

, IQS< 

B > ) 

00087 

EQUIVALENCE 

< IRADLWG 

. IOS< 

9)  > 

00088 

EQUIVALENCE 

( IICLOUD 

. I QS  ( ion 

00089 

EQUIVALENCE 

(IUFLUX 

. IOSC 111) 

00090 

r* 

EQUIVALENCE 

< IVFLUX 

. I QS  f 12) ) 

00091 

u 

EQUIVALENCE 

( IOMEGA 

, IOU( 

1 ) > 

00092 

EQUIVALENCE 

( IOIABAT 

, IQU< 

2)  ) 

00093 

EQUIVALENCE 

( IRAOSW 

. IQU< 

3)  } 

00094 

c 

EQUIVALENCE 

t IRADLW 

. IQU( 

4 > > 

00095 

EQUIVALENCE 

(ICO, IC( 1 ) ) 

00096 

INTEGER 

ICO.  IC  f 200  ) 

c 

C LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORO 


00097 

COMMON 

/LCNTRL / 

LCO 

00098 

COMMON 

/LCNTRL/ 

QALT 

00099 

COMMON 

/LCNTRL/ 

QBEG 

00100 

COMMON 

/LCNTRL/ 

QDAY 

00101 

COMMON 

/LCNTRL/ 

QEND 

00102 

COMMON 

/LCNTRL/ 

QOUT 

00  103 

COMMON 

/LCNTRL/ 

QPHY 

00  1 04 

COMMON 

/LCNTRL/ 

OSHF 

00105 

COMMON 

/LCNTRL/ 

SN2FLG 

00  1 06 

COMMON 

/LCNTRL/ 

ORSW 

00107 

COMMON 

/LCNTRL/ 

QRSH 

00  108 

COMMON 

/LCNTRL/ 

LQS ( 30 ) 

00109 

0 

COMMON 

/LCNTRL/ 

LQU ( 10) 

00110 

EQUIVALENCE 

( LTMIN 

. LOS( 

1)  > 

00111 

EQUIVALENCE 

(LTMAX 

. LOS  ( 

2)  ) 

00112 

EQUIVALENCE 

(LPREACC 

, LOS ( 

3)  > 

00  113 

EQUIVALENCE 

(LPRECON 

. LQS  ( 

4)  ) 

00114 

EQUIVALENCE 

( LHFLUX 

, LQS  ( 

5 > ) 

VCNTRL  58 
VCNTRL  89 
VCNTRL  60 
VCNTRL  6 1 
VCNTRL  62 
VCNTRL  63 
VCNTRL  64 
VCNTRL  65 
VCNTRL  66 
VCNTRL  67 
VCNTRL  68 
VCNTRL  69 
VCNTRL  70 
VCNTRL  71 
VCNTRL  72 
VCNTRL  73 
VCNTRL  74 
VCNTRL  75 
VCNTRL  76 
VCNTRL  77 
VCNTRL  78 
VCNTRL  79 
VCNTRL  80 
VCNTRL  81 
VCNTRL  B2 
VCNTRL  83 
VCNTRL  84 
VCNTRL  85 
VCNTRL  86 
VCNTRL  37 
VCNTRL  88 
VCNTRL  89 
VCNTRL  90 
VCNTRL  91 
VCNTRL  92 
VCNTRL  93 
VCNTRL  94 
VCNTRL  95 
VCNTRL  36 
VCNTRL  97 
VCNTRL  9B 
VCNTRL  99 
VCNTRL  100 
VCNTRL  101 
VCNTRL  102 
VCNTRL  103 
VCNTRL  104 
VCNTRL  1 05 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  110 
VCNTRL  111 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  115 
VCNTRL  116 
VCNTRL  117 
VCNTRL  118 
VCNTRL  1 19 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 
VCNTRL  128 


P 

> 

w 

5 


ro 


OF  POOR  QUALITY 


JL L.L..:U. 


00  1 ts 

001  16 
00117 
001  IB 
00  119 
00120 
00121 

00  122 
00  123 
00124 
00  12S 

00126 

00127 

00128 
00  129 
00130 
0013  1 
00  132 
00  133 
00  134 

00135 

00136 

00137 

00138 

00139 

00140 
00  141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 
EQUIVAL  ENCE 
EQUIVALENCE 

equivalence 

LOGICAL 

LOGICAL 

LOGICAL 

logical 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

EQUIVALENCE 

LOGICAL 


(LEFLUX 
< LFUSION 
( LRADSWG 
< LRADLWG 
{ L ICLOUD 
<LUFLUX 
(LVFLUX 

(LOMEGA 
(LDI A8AT 
(LRADSW 
( LRADLW 

oalt 

QBEG 

QDA  V 

QEND 

QOUT 

QPHY 

QSHF 

SN2FLG 

QRSW 

QRSH 

LQS 

LOU 

LTMIN 

LTMAX 

LPREACC 

LPRECON 

LHFLUX 

LEFLUX 

LFUSION 

LRADSWG 

LRADLWG 

LICLOUD 

LUFLUX 

LVFLUX 

LOMEGA 
LDI ABAT 
LRADSW 
LRADLW 


( LCO , LC ( 1 ) ) 
LCO,  LC i 200 ) 


* LQS { 6>) 

»LQS(  7)) 

* L QS ( 8)) 
. LQS ( 3)) 

* LQS ( 10) ) 
, LQS ( 1 1 ) ) 
. LQS  ( 12)) 

, LQU  ( n> 
, LQU ( 2 ) ) 

, LQU ( 3)) 
.LOUf  4)) 


= = = r = = r = 0M  HISTORY  RECORD 


COMMON  /RCNTRL/  RCO 
COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSD 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYSPY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  DECMAX 
COMMON  /RCNTRL/  DIST 
COMMON  /RCNTRL/  DLAT 
COMMON  /RCNTRL/  DLON 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNU  1 
COMMON  /RCNTRL/  GNU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  OMEGA 2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  ISO 
COMMON  /RCNTRL/  PI2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PIMEAN 


VCNTRL  129 
VCNTRL  130 
VCNTRL  I3f 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
VCNTRL  135 
VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  T41 
VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  ISO 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  180 
VCNTRL  181 
VCNTRL  1S2 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  189 
VCNTRL  190 
VCNTRL  IS 1 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCNTRL  199 


ORIGINAL  PAGE  Hi 
OF  POOR  QUALITY 


00 1 78 

COMMON 

/RCNTRL/ 

PSMAX 

00179 

COMMON 

/RCNTRL/ 

PSMIN 

00180 

COMMON 

/RCNTRL/ 

PTOP 

00181 

COMMON 

/RCNTRL/ 

BADE 

00182 

COMMON 

/RCNTRL/ 

RGAS 

00183 

COMMON 

/RCNTRL/ 

ROCP 

00184 

COMMON 

/RCNTRL/ 

RSDIST 

00  185 

COMMON 

/RCNTRL/ 

SDAY 

00186 

COMMON 

/RCNTRL/ 

SEASON 

00187 

COMMON 

/RCNTRL/ 

SIGE 

( 26  > 

00188 

COMMON 

/RCNTRL/ 

SIND 

00189 

COMMON 

/RCNTRL/ 

SOLS 

00190 

COMMON 

/RCNTRL/ 

TSTD 

00191 

COMMON 

/RCNTRL/ 

PLEVS 

f 25  ) 

00192 

COMMON 

/RCNTRL/ 

HEATW 

00193 

COMMON 

/RCNTRL/ 

HEATI 

00194 

COMMON 

/RCNTRL/ 

EPS 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

00196 

COMMON 

/RCNTRL/ 

CALTOd 

00197 

Q 

COMMON 

/RCNTRL/ 

PZERO 

00198 

EQUIVALENCE 

(RC0.RC1 1 ) ) 

00199 

C 

REAL 

RCO , RC ( 200  ) 

C INTEGER  MODEL  CONSTANTS 


00200 

COMMON 

/ I DPARM/ 

I JUMP 

(46) 

00201 

COMMON 

/ I DPARM/ 

IDSP02 

00202 

COMMON 

/ IDPARM/ 

INDEX 

(72) 

00203 

COMMON 

/ IDPARM/ 

I ROD 

00204 

COMMON 

/IDPARM/ 

JC 

(46) 

00205 

COMMON 

/IDPARM/ 

JE 

(2) 

00206 

COMMON 

/IDPARM/ 

JP 

( 2 1 2 ) 

00207 

COMMON 

/IDPARM/ 

KSTEP 

00208 

COMMON 

/IDPARM/ 

Md 

(46) 

00209 

COMMON 

/ I-DPARM/ 

NHMS1 

002  1 0 

COMMON 

/IDPARM/ 

NYMD1 

C 

C LOGICAL  MODEL  CONSTANTS 


0021  1 

V/ 

COMMON  /LDPARM/ 

FILTER  (46) 

00212 

COMMON  /LDPARM/ 

ITAPE 

00213 

P 

COMMON  /LDPARM/ 

START 

00214 

W 

LOGICAL 

FILTER 

00215 

LOGICAL 

ITAPE 

00216 

LOGICAL 

START 

C 

C REAL  MODEL  CONSTANTS 


00217 

C 

COMMON 

/ RDPARM/ 

ADLDP 

00218 

COMMON 

/RDPARM/ 

CONI 

002  19 

COMMON 

/RDPARM/ 

CON  IDT 

00220 

COMMON 

/RDPARM/ 

C0N2 

00221 

COMMON 

/RDPARM/ 

C0N2DT 

00222 

COMMON 

/RDPARM/ 

C0N3 

00223 

COMMON 

/RDPARM/ 

C0N3DT 

00224 

COMMON 

/RDPARM/ 

C0N4 

00225 

COMMON 

/RDPARM/ 

C0N4DT 

00226 

COMMON 

/RDPARM/ 

C0N5 

00227 

COMMON 

/RDPARM/ 

COSL 

(46) 

00228 

COMMON 

/RDPARM/ 

COSLON 

172) 

00229 

COMMON 

/RDPARM/ 

CPD2 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

00231 

COMMON 

/RDPARM/ 

DXYP 

( 46) 

00232 

COMMON 

/RDPARM/ 

DYP 

(46) 

00233 

COMMON 

/RDPARM/ 

FCORLS 

(46  1 

00234 

COMMON 

/RDPARM/ 

F IDT 

00235 

COMMON 

/RDPARM/ 

F2DT 

00236 

COMMON 

/RDPARM/ 

H1DT 

00237 

COMMON 

/RDPARM/ 

H2DT 

VCNTRL  200 
VCNTRL  20 t 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 
VCNTRL  207 
VCNTRL  20B 
VCNTRL  209 
VCNTRL  2 tO 
VCNTRL  2 t 1 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  22B 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  253 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 


DAILY  4 ORIGINAL  PAGE  13 

OF  POOR  QUALITY 


A ' M 


00238 

COMMON 

/ROPARM/ 

00239 

COMMON 

/ RDPA  RM / 

00240 

COMMON 

/ RDPARM/ 

0024  1 

COMMON 

/ RDPARM/ 

00242 

COMMON 

/RDPARM/ 

00243 

COMMON 

/RDPARM/ 

00244 

COMMON 

/RDPARM/ 

00245 

COMMON 

/ RDPARM/ 

00246 

COMMON 

/RDPARM/ 

00247 

COMMON 

/RDPARM/ 

00248 

COMMON 

/RDPARM/ 

00249 

COMMON 

/RDPARM/ 

00250 

COMMON 

/RDPARM/ 

00251 

COMMON 

/RDPARM/ 

00252 

COMMON 

/RDPARM/ 

00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
0026  t 

00262 

00263 

00264 

00265 

00266 

00267 

0026S 

00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 


00280 
0028  1 
00282 

00283 


PKSTD 
PK  TOP 
RLAT 
RLATD 
ROCPDT 
R0CPP1 
SGNP 
SI  ML 
SINLON  (721 
THSTD 
THSTD2 
WSAVE 
OSIG 
SIG 


(46) 
(46  ) 


(2  ) 
(46) 


( 159) 
< 9 } 
(9) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


DSIGINV  (9) 


C 

c 

c 

c 


COMDECK  VQANDQT  RESOLUTION  VALUES 

JM  =72  r = = " 

NLA Y =9 

JM4-  1 =46 

NLA  V • 1 1 = gg 

I M*  NLA  YM1  "7  128 
JM/ 2*1  =23 

prognostic  fields  (needed  in  compo) 


= = = = r s s 


COMMON 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
D I MENS  I ON 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

equivalence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

SPACE  FOR  GLOBAL 


/QANDQ  T / 0PR0G(72,9.  1 1,46) 


PHIS 

SMTH 

ALBEDO 

GT 

GW 

TS 

SHS 

P 

U 
V 
T 

SH 
pht 


(7128.1) 
(7128.23) 
(7128, 1 > 
<7128. U 

(7128.1) 
(7128,1) 

(7128.1) 

(72.99. 1 ) 

(72.9,  1 1 , t > 

(72 .9. 1 1 . 1 ) 

(72.9.11.1) 
(72,9. 1 t , 1 ) 

(72.9.11.1) 


( QPROG ( 1 . 
( QPROGf 1 , 
( QPROG ( 1 , 
( QPROG ( 1 . 
( QPROG  f I , 
( QPROG ( t , 
( QPROG  < 1 , 
(QPROGf  t , 


6.1 

7.1, 

8.1, 


U , PHIS 

i , 

i ) > 

1 ) , SMTH 

i , 

i > > 

1 ) , AL8EDO 

i , 

t ) ) 

1)  .GT 

i . 

i > ) 

1 ) , GW 

i . 

i ) > 

1 ) , TS 

1 1 

i ) ) 

1 ) , SHS 

i , 

i > > 

U ,P  i 

i , 

« , n ) 

1) ,U  ( 1 , 1 

, t 

, i > > 

1 > . V ( 1 , 1 

. i 

• m 

1 ) . T ( 1 , : 

, i 

. T ) ) 

1 ) , SH  (1.1 

. i 

, n ) 

n .phi r t , i 

, i 

, n > 

{ QPROG( 1.1, 

{ QPROG ( 1.1, 

< QPROG ( 1,1, 

(QPROGf 1.1, 

( QPROGf 1.1, 

-???I:_DIAGN0STIC  FIELDS  (NOT  NEEDED  IN  C0MP01 


COMMON 

DIMENSION 

EQUIVALENCE 

COMMON 


/ QANDOT / 0SDIAG(72  .15,46) 

I QSD I AG ( 7 2 . 15,46) 

f QSD I AG , I OSD I AG ) 

/QANDOT/  0UD1 AG  f 72 , 9 , 5,46) 


2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 
13 


VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  28  1 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VQANDOT 
VQANDQT 
VQANDOT 
VQANDOT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDOT  14 
VQANDQT  IS 
VQANDOT  16 
VQANDQT  17 
VQANDOT  18 
VQANDQT  19 
VQANDQT  20 
VQANDOT  21 
VQANDOT  22 
VQANDQT  23 
VQANDQT  24 
VQANDQT  25 
VQANDQT  26 
VQANDQT  27 
VQANDQT  28 
VQANDOT  29 
VQANDQT  30 
VQANDQT  31 
VQANDQT  32 
VQANDOT  33 
VQANDQT  34 
VQANDQT  35 
VQANDQT  36 
VQANDQT  37 
VQANDQT  38 
VQANDQT  39 
VQANDQT  40 
VQANDQT  41 
VQANDQT  42 
VQANDOT  43 
VQANDQT  44 
VQANDQT  45 
VOANDQT  46 
VQANDQT  47 
VQANDQT  48 
VOANDQT  49 
VQANDQT  50 
VQANDQT  51 
VQANDOT  52 
VOANDQT  53 
VQANDQT  54 
VQANDOT  55 
VOPOLES  2 


a 

15 

5 

Ln 
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00284 

00285 

00286 
00287 
O02SB 
00289 


00292 

00293 

00294 

00295 

00296 


00298 

00299 

00300 
0030  1 

00302 

00303 

00304 

00305 

00306 


00307 

00308 

00309 
003  10 
0031  1 

00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320 

00321 


00322 

00323 

00324 

00325 

00326 

00327 

00328 

00329 


00330 

00331 

00332 

00333 

00334 


C POLAR  MODEL  PROGNOSTIC  FIELDS 
COMMON  /QPOLES/  PP< 2.2) 

COMMON  /QPOLES/  UP (9, 2,2) 

COMMON  /QPOLES/  VP (9, 2, 2) 

COMMON  /QPOLES/  TP <9, 2, 2) 

COMMON  /QPOLES/  SHP<9,2,2> 

COMMON  /QPOLES/  PHI P( 9, 2, 2) 

C 

C ♦ - - 

C MONTHLY  DATA  FIELDS 

COMMON  /MNTHLY/  T0P0G2 ( 72 , 46 , 2 > . 

A GW2  < 72  , 46 , 2 ) ♦ 

* ALBD02(72,4G ,2) 

DIMENSION  TOPOGt < 72,46 > , 

& GW1 <72,46) , 

& ALBDOI <72 . 46) 

EQUIVALENCE  < TOPOGI  < 1 * 1 > . T0P0G2 < 1 , 1 . 1 > > 
EQUIVALENCE  (GWU  1 f 1 ) ,GW2<  1 , 1 , 1 > > 
EQUIVALENCE  < ALBDOI < 1 , 1 > ♦ ALBD02  1 1I . 1 . 1 > > 
DATA  LUSST/4 1 / , LUGW/42/.  LUALB/43/ 

DATA  MONSST/O/,  MONGW/O/,  MONA LB/ 0 / 

C * * * 

C DEBUG 

10000  CONTINUE^  VECT0R  VEnSI0N  00.001  INPUT  IOQ 
c » * • ♦ CYBE8  VECTOR  VERSION  00 


VQPOLES 

VQPOLES 

VQPOLES 

VQPOLES 

VQPOLES 

VOPOLES 

VQPOLES 

VQPOLES 

VMNTHLY 

V MNTHLY 

VMNTHLY 

VMNTHLY 

VMNTHLY 

VMNTHLY 

VMNTHLY 

VMNTHLY 

VMNTHLY 

VMNTHLY 

VMNTHLY 

VDAILY 

VOAILY 

VDAILY 

VBEGDEB 

VBEGDEB 

VBEGDEB 

VBEGDEB 


C " UTDCtt  * uO  I — ' vunw*v.. * - VBEGUfcfcl 

cssssssssssssIIsssIsssssslsIssssssssssssssssssssssssssssssssssssssssssssvBEGDEB 

C CORRECT  GLOBAL  MEAN  SURFACE  55imE  VDAILY 


DGLTAP  “ PIMEAN  - PMEAN  < NB  > 

DO  40  J = 2 , OM 
INC  = I JUMP ( U ) 

DO  40  1-1 , IMt INC 
Pit. NB , J > = P(I.NB,d)  * DELTAP 

CONTINUE 

PP ( NB , 1 ) * PP ( NB , 1 ) * DELTAP 

P P ( NB , 2 > = PP  < NB , 2 > * DELTAP 

WRITE  (3,6040)  PIMEAN,  DELTAP 


NDAY  * 1 


CALCULATE  CALENDAR 

50  CONTINUE  _ „ 

IF  (NHMS.LT. 240000)  GO  TO  60 
NHMS  * NHMS  - 240000 
NYMD  = INCYMD(NYMD) 

NDAY  = NDAY  * 1 . , 

IF  <MOD(NYMD , 10000 ) , EO.O 101 ) NDAY  * 1 

NMON  = MOD ( NYMD , t 0000 ) / 1 00 
NDAT  a MOD  < NYMD ,100) 

FDAT2  = MOD ( 1 5 * NDAT - 1 , 30 ) /30 . 

FDAT 1 si,-  FDAT2 

I^^NDAT^L^IS)  NMON  1 = MOD  ( NMON  1 -M  0 , 12) 
NM0N2  a MOD ( NMON 1,12)  ♦ 1 

MOt  = MOD ( NMON 1*2)  * 1 
MO 2 - MOD ( NM0N2 , 2 ) ♦ 1 

^CALCULATE  ORBIT  POSITION 
SO  CONTINUE 

F DAY  = NDAY 

SEASON  = < FDAY-SOLS ) /DAYSPY 

0 I ST  - CFDAY~APHEL>/DAYSPY 
DEC  = DECMAX*C0S<2. *PI*SEASON) 

RSDIST  - <1 ,+ECCN'C0S(2.*PI*DIST) >**2 

SIND  = SINT  DEC ) 

COSD  - COS (DEC) 

ADJUST  GROUND  TEMPERATURE  FIELD 
100  CONTINUE 

LU  = LUSSJ0  TQ  { 110,1 60 ) , KLISST 
GO  TO  200 

110  CONTINUE 


VDAILY 

VDAILY 

VOAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VOAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 

VDAILY 


DAILY  6 


3TB  ...ft 


00335 

00336 

00337 

00338 

00339 

00340 

0034  I 

00342 

00343 

00344 

00345 

00346 

00347 
00343 

00349 

00350 

0035  t 

00352 

00353 

00354 

00355 

00356 

00357 
00359 

00359 

00360 


0036  t 

00362 

00363 

00364 

00365 

00366 

00367 

00368 

00369 

00370 

0037  1 

00372 

00373 

00374 

00375 

00376 

00377 
0037B 

00379 

00380 

0038  t 
00382 
0038  3 

00384 

00385 


00386 

00387 

00388 

00389 

00390 

00391 

00392 

00393 

00394 

00395 


( NMON . EQ , MONSST ) GO  TO  ?nn 
MONSSTD2LiMi{3USST ' NM0N  ’ TOPOG  • • JNP * IM . *900 ) 

INC  = I JUMP ( J?°  d=dSP-dNP 
00  130  I = 1 , IM . TNG 

CORRECT  ONLY  SEA-SURFACE  TEMPERATURES 

GTU.d)  = * TOPOG  1 ?d  ! Ill  ' 11  LE0-  ’ 60  TO  130 

130  CONTINUE 

_ GO  TO  200 

INTERPOLATE  BETWEEN  MONTHS 
*60  CONTINUE 

IF  ( MONSST . EQ , 0 ) 

SCALL  RDCLJ  (LUSST,NMON1 ,TOPOG2<  1 , 1 ,MOt  > „ JNP * I M,  *900 ) 

!F,  <WMON2.EQ. MONSST)  GO  TO  ISO 
W0NSST^=^MM0N2S^*^  * NMON2 . T°P°G2 ( 1 . I .M02 1 , JNP * IM.*900 1 
130  CONTINUE 

* DO  190  J = JSP  , JNP 
INC  = I JUMP ( J } 

DO  190  IM.IM.INC 

CORRECT  ONLY  SEA-SURFACE  TEMPERATURES 
183  f SIGN ( 1 . . T0P0G2  < d , I , MOI ) >'S1GN<  1 . , TOPOG2 f J , I , M02 ) >>  ISO , 


GT( I , d ) 


CONTINUE  ^ 

=GQMTO 1 1 90P0G2  * d * 1 • M0  f * • TDP0G2 ( d , I . M02 ) > 


133  CONTINUE 

190  GT(I^J)  * FDAT2  * TOPOG2  ( d f I , MO  2 ) 

C * * ♦ 

C ADJUST  GROUND  WETNESS  FIELD 
200  CONTINUE 

LU  = LUGW 

gO  TO  (210,260),  KLIGW 
GO  TO  300 

2?0  CONTINUE 

oai  i JF,  <NMON,EQ.MONGWI  GO  TO  300 

SSngW  = CMMON  GW  * NM0M - GW ' • JNP  * I H . *900 ) 

INC  = IUuS?(2?°  J=dSP’d*P 
,,  00  230  1 = 1 tIM,  INC 

„„„  BWII.JI  = GUTKd.Il 
23<>  CONTINUE 

GO  TO  300 

c «I5JTERP0LATE  between  MONTHS 
2G0  CONTINUE 

IF  (MONGW.EQ.O) 

aCALL  RDCLJ  (LUGW,NM0N1 ,GW2< 1 , 1 ,M01 ) , JNP* IM, S900 ) 

-,N  <NMON2.EQ.MONGW>  GO  TO  280  ' 

MONGW  ? NM0N2UGW’NM0N2,GW2<  1 ' 1 ’M02>  * JNP* I M. *900) 

280  CONTINUE 

DO  290  d=JSP , JNP 
INC  = I JUMP ( d ) * 

ruiM  DO  290  I = 1,1m.  INC 

290  6 <I,J’  =CONTI NUE^2 ’ d ’ ^ 1 * * FDAT2-GW2 ( d . I .M02 1 

C * * if 

C ADJUST  ALBEDO  FIELD 
300  CONTINUE 

LU  = LUALB 

gg  12  i31°.3S0>,  KL I ALB 
„ GO  TO  400 

3*0  CONTINUE 

-A,  , IR  ( NMON.  EQ  .M0NAL8  ) GO  TO  400 

MTOIALB D®L^}jUALBfNM0M.*l-B0O1.dNP*IM.*900) 

INC  = IduM?°  JSdSP*dNP 


VDAILY 
VDAILY 
VOAILY 
VDAILY 
VDAILY 
VOAILY 
VDAILY 
VOAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VOAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
183 . 185VDAILV 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VDAILY 
VDA1LV 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  I 
VDAILY  1 
VDAILY  f 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1 
VDAILY  1; 
VDAILY  I: 
VDAILY  1! 
VDAILY  i: 
VDAILY  12 
VDAILY  12 
VDAILY  12 
VDAILY  12 
VDAILY  i; 
VDAILY  K 
VDAILY  K 
VDAILY  15 
VDAILY  i: 
VDAILY  15 
VDAILY  15 
VDAILY  15 
VDAILY  15 
VDAILY  13 
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u 

> 


5 


00396 

00397 

00398 

00399 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00408 

00409 

00410 

004  1 1 
004  12 


00413 

00414 
004  15 

004  16 

00417 
004  1 B 


C 


C 

C 

c 


00  330  1 = 1, IM, INC 
ALBEDO ( I , d)  = ALBD01 ( d , I > 

330  CONTINUE 

GO  TO -400 

INTERPOLATE  BETWEEN  MONTHS 
360  CONTINUE 

6CALLMRDCL?  ’?LUALB .NM0N1 , ALBD021 1 * 1 ,M01 ) « JNP* IM, &900 ) 
IF  (NMON2.EQ.MONALB)  GO  TO  380 
CALL  ROCLI  < LUALB , NM0N2 , A LB DO 2 f 1 t 1 * MO 2 > * dNP  MM.S900) 
MONA LB  = NM0N2 
3B0  CONTINUE 

DO  390  d=dSP,dNP 
INC  » IdUMP(d) 

DO  390  1=1 , IM, INC 
ALBEDO  ( I t d ) = FDAT 1 * ALDD02 ( d , 

390  CONTINUE 


* FDAT2*ALBD02( J, I .M02) 


400  CONTINUE 

RETURN 

ERROR  IN  READING  CLIMATE  DATASET 
900  CONTINUE 

WRITE  (3,6900)  LU 
RETURN  1 


6040  FORMAT  ( * OGLOBAL  MEAN  PRESSURE ' t F 1 0 . 4 , 8 X , 

& • PRESSURE  ADDED  r,F10.4) 

6900  FORMAT  ( * OERROR  IN  READING  CLIMATE  DATASET  ON  UNIT  ,14) 
END 


VDAILY  140 
VDAILY  141 
VDAILY  142 
VDAILY  143 
VDAILY  144 
VDAILY  145 
VDAILY  146 
VDAILY  147 
VDAILY  148 
VDAILY  149 
VDAILY  ISO 
VDAILY  151 
VDAILY  152 
VDAILY  153 
VDAILY  154 
VDAILY  155 
VDAILY  156 
VDAILY  157 
VDAILY  158 
VDAILY  159 
VDAILY  160 
VDAILY  161 
VDAILY  162 
VDAILY  163 
VDAILY  164 
VDAILY  165 
VOAILY  166 
VDAILY  167 
VDAILY  168 
VDAILY  169 


00 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REPERENCES 


100 

330 

10000 

297 

1 10 

334 

130 

343 

160 

345 

ISO 

350 

183 

355 

185 

358 

190 

360 

200 

361 

210 

365 

230 

373 

260 

375 

280 

3B0 

290 

385 

300 

386 

310 

390 

330 

398 

360 

400 

380 

405 

390 

410 

40 

303 

400 

4 1 1 

50 

307 

60 

322 

6040 

4 1 & 

6900 

417 

900 

413 

VARIABLE  MAP 
- - NAME BLOCK 


332 

338 

340 

34  \ 

332 

347 

354 

354 

351 

353 

354 

333 

335 

344 

363 

369 

371 

363 

377 

381 

383 

364 

366 

374 

38  B 
394 

396 

388 

402 

406 

408 

299 

301 

389 

391 

399 

308 

306 

414 

TYPE CLASS 


357 


REFERENCES 


A = ARGL I ST ♦ 


ADATE 

ADLDP 

ALBD01 

AL8D02 

ALBEDO 


CCNTRL 

RDPARM 

MNTHLY 

MNTHLY 

OANDOT 


CHAR  *8 

REAL 

REAL 

REAL 

REAL 


SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 


3 

16 

217 

291 

294 

392 

290 

294 

40  1 

256 

269 

397/S 

C=CTRL  OF  DO. 


397 

403  409 

409/S 


=DATA  INIT.  REREAD,  S=STORE,  W=WRITE 


409 


r r ‘ ' 'w*'-  '-L 


. 


ORIGINAL  PAQI  Ei 
OF  POOR  QUALITY 


APHEL 

ATIME 

BETA 

CALTOU 

CC 

CCO 

CCNTRL 

CCSP06 

CCSP07 

CCSP08 

CONI 

CON  IDT 

CON  2 

CON2DT 

C0N3 

C0N3DT 

COM4 

C0N40T 

CONS 

COSD 

COSL 

CQSLON 

CP 

CPD2 

COS 

COLT 

DAILY 

DAYSPY 

DEC 

DECMAX 

DELTAP 

DIST 

DLAT 

DLON 

DSIG 

DSIGINV 

DT 

DXP 

DXYP 

DYP 

ECCN 

EPS 

EPSPAC 

F 1 DT 

F2DT 

FCORLS 

FDAT  t 

FDAT2 

FOAY 

FILTER 

GNU  1 

GNU2 

GRAV 

GT 

GW 

GW  I 

GW  2 

H1DT 

H2DT 

HEATI 

HEATW 

I 


IBLK5IZ 

IC 

ICO 

ICNTRL 


RCNTRL 

REAL 

SIMPLE 

157 

325 

CCNTRL 

CHAR 

SIMPLE 

4 

17 

RCNTRL 

REAL 

SIMPLE 

1 58 

RCNTRL 

REAL 

SIMPLE 

196 

CCNTRL 

CHARTS 

ARRAY 

14 

15 

CCNTRL 

CHAR  * 8 

SIMPLE 

2 

14 

REAL 

UNKNOWN 

2 

3 

CCNTRL 

CHAR  *8 

SIMPLE 

1 3 
7 

20 

CCNTRL 

CHAR  * B 

SIMPLE 

8 

21 

CCNTRL 

.CHAR  *-8 

SIMPLE 

9 

22 

RDPARM 

REAL 

SIMPLE 

218 

RDPARM 

REAL 

SIMPLE 

219 

RDPARM 

REAL 

SIMPLE 

220 

RDPARM 

REAL 

SIMPLE 

221 

RDPARM 

REAL 

SIMPLE 

222 

RDPARM 

REAL 

SIMPLE 

223 

RDPARM 

REAL 

SIMPLE 

224 

7 8 9 10  It  12 


RDPARM 

REAL 

SIMPLE 

225 

RDPARM 

REAL 

SIMPLE 

226 

RCNTRL 

REAL 

SIMPLE 

159 

329/S 

RDPARM 

REAL 

ARRAY 

227 

RDPARM 

REAL 

ARRAY 

228 

RCNTRL 

REAL 

SIMPLE 

160 

RDPARM 

REAL 

SIMPLE 

229 

CCNTRL 

CHAR *8 

ARRAY 

12 

25 

CCNTRL 

CHAR-8 

ARRAY 

13 

26 

SUBROUTINE 

1 

RCNTRL 

REAL 

SIMPLE 

161 

324 

325 

RCNTRL 

REAL 

SIMPLE 

162 

326/S 

328 

329 

RCNTRL 

REAL 

SIMPLE 

163 

326 

REAL 

SIMPLE 

298/S 

302 

304 

305 

306/  W 

RCNTRL 

REAL 

SIMPLE 

164 

325/S 

327 

RCNTRL 

REAL 

SIMPLE 

165 

RCNTRL 

REAL 

SIMPLE 

166 

RDPARM 

REAL 

ARRAY 

250 

RDPARM 

REAL 

ARRAY 

252 

RCNTRL 

REAL 

SIMPLE 

167 

RDPARM 

REAL 

ARRAY 

230 

RDPARM 

REAL 

ARRAY 

231 

RDPARM 

REAL 

ARRAY 

232 

RCNTRL 

REAL 

SIMPLE 

168 

327 

RCNTRL 

REAL 

SIMPLE 

194 

RCNTRL 

REAL 

SIMPLE 

195 

RDPARM 

REAL 

SIMPLE 

234 

RDPARM 

REAL 

SIMPLE 

235 

RDPARM 

REAL 

ARRAY 

233 

REAL 

SIMPLE 

316/S 

359 

384 

409 

REAL 

SIMPLE 

315/S 

316 

359 

384 

409 

REAL 

SIMPLE 

323/S 

324 

325 

LDPARM 

LOGICAL 

ARRAV 

21  1 

214 

RCNTRL 

REAL 

SIMPLE 

169 

RCNTRL 

REAL 

SIMPLE 

170 

RCNTRL 

REAL 

SIMPLE 

171 

QANDOT 

REAL 

ARRAY 

257 

270 

342/S 

356/S 

359/S 

QANDOT 

REAL 

ARRAY 

258 

27  1 

372/S 

384  ;S 

MNTHLY 

REAL 

ARRAY 

291 

293 

367 

372 

MNTHLV 

REAL 

ARRAY 

290 

293 

376 

378 

384 

384 

RDPARM 

REAL 

SIMPLE 

236 

RDPARM 

REAL 

SIMPLE 

237 

RCNTRL 

REAL 

SIMPLE 

193 

RCNTRL 

REAL 

SIMPLE 

192 

INTEGER 

SIMPLE 

301/C 

302 

302 

340/C 

34  1 

342 

356 

366 

359 

359 

359 

371/C 

384 

396/C 

397 

397 

408 /C 

409 

ICNTRL 

INTEGER 

SIMPLE 

70 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

INTEGER 

UNKNOWN 

27 

28 

29 

30 

31 

32 

38 

39 

40 

41 

42 

43 

342 

372 

409 


33 

44 


353/C  354  354 
372  383 'C  334 
409 


34  35  36 

45  46  47 


356 

384 


37 

48  0 
& 
S 


- 


\D 


ORIGINAL  PAGE  ES 
OF  POOR  QUALITY 


ICSPS3 
IDIABAT 
I DP ARM 
IDSP02 

I EF  LUX 
IFUSION 
INFLUX 
I I CLOUD 
I JUMP 
IM 

IMD2 

IMD2P1 

INC 

INDEX 

IOMEGA 

IPREAQC 

IPRECON 

IQS 

IQSDIAG 

IQU 

IRADLW 

I RADLWG 

IRADSW 

IRADSWG 

IROD 

I TAPE 

ITMAX 

ITMIN 

I UF  LUX 

I VF  LUX 

d 


dC 

JE 

JIC 

dM 

JMD2 

dMT2 

JNP 

Jt>4 

JOB 

JOB 

dP 

dSP 

KLI ALB 
KLIGW 
KLISST 
KS 

KSTEP 

KU 

LC 

LCO 

LCNTRL 

LDIABAT 

LDPARM 

LEFLUX 

LFUSION 

LHFLUX 

LICLOUD 


ICNTRL 

ICNTRL 

I DP ARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 


IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

OANDQT 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

LDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


IDPARM 

IDPARM 

CCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

CCNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRK 

ICNTRL 

IDPARM 

ICNTRL 

LCNTRU 

LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


INTEGER 

INTEGER 

CHAR  + 8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHARTS 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


SIMPLE 

UNKNOWN 

UNKNOWN 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

ARRAY 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 


ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 


49 
60 
71 
68 
92 
200 
20  1 

84 

B5 

83 

88 

200 

28 

383 

29 

30 

300/S 
396 
202 
9 f 
8 t 
82 

77 
89 

28  1 

78 
94 
87 
93 
86 

203 
212 

80 

79 

89 

90 

299/C 

354 

372 

407 

204 

205 

5 

32 

33 

34 

35 
392 

36 

37 

6 

206 

38 

39 

40 

41 

42 
207 

43 
154 

97 

97 

ioa 

123 
21  I 
1 15 


K! 


50 

61 

72 

51 

62 

73 

52 

63 

74 

53 

64 

75 

54 

65 

76 

55 

66 

77 

56 

67 

78 

57 

88 

58 

69 

59 

70 

t— ■ 

o 

20  1 

202 

203 

204 

205 

206 

207 

208 

209 

210 

300 
30  1 
392 

339 

336 

396 

352 
340 
*10  1 

370 

346 

403 

382 

348 

408 

395 

353 

407 

367 

37  l 

376 

378 

30  1 
407/S 

339/S 

408 

340 

352/S 

353 

370/S 

37  1 

332/S 

383 

395 

79 
90 
282 
9 1 

80 

92 

81 

93 

B2 

94 

83 

84 

85 

SG 

87 

88 

© Q 

215 

■o  <5 

O =3 

O g 

f** 

300 
354 
38  1/C 
409 

302 

356 

382 

409 

302 

356 

384 

409 

333 /C 

356 

L'84 

339 

359 

384 

34  1 
359 
394/C 

342 

359 

395 

342 

369/C 

397 

351/C 

370 

397 

352 

372 

406 

c ^ 
§3 

18 

299 

336 

394 

338 

401 

346 

403 

34S 

406 

351 

367 

369 

376 

378 

381 

19 

338 

388 

363 

332 

35  1 

369 

38  1 

394 

406 

155 

154 

98 

109 

155 

99 

TOO 

10  1 

102 

103 

104 

105 

106 

107 

109 

151 

212  213 

143 


116  144 
1*4  142 
119  147 


LOGBR 

ICNTRL 

INTEGER 

SIMPLE 

44 

L OMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

122 

150 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

t 12 

140 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

141 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

IOS 

110 

1 1 1 

1 12 

1 13 

1 14 

115 

1 16 

t 17 

1 18 

1 19 

LQU 

120 

121 

136 

LCNTRL 

LOGICAL 

ARRAY 

109 

122 

123 

124 

125 

137 

LRAOLW 

LCNTRL 

LOGICAL 

UNKNOWN 

125 

153 

lradlwg 

LCNTRL 

LOGICAL 

UNKNOWN 

118 

146 

LRADSW 

LCNTRL 

LOGICAL 

uumorn 

124 

152 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

117 

145 

L TMA  X 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

1 39 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

138 

LU 

INTEGER 

SIMPLE 

331/S 

362/  S 

387/S 

414/W 

LUALB 

INTEGER 

SIMPLE 

295/1 

387 

392 

40  1 

403 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

120 

148 

LUGW 

INTEGER 

SIMPLE 

295/1 

362 

367 

376 

378 

LUSST 

INTEGER 

SIMPLE 

295/ I 

331 

336 

34G 

348 

LVFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1Z1 

149 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

46 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

47 

M*J 

IDPARM 

INTEGER 

ARRAY 

208 

MLF 

ICNTRL 

INTEGER 

ARRAY 

48 

o o 
■n  g 

MNTHLV 

INTEGER 

UNKNOWN 

290 

MOt 

INTEGER 

SIMPLE 

320/S 

346 

354 

356 

359 

376 

384 

40  1 

409 

M02 

INTEGER 

SIMPLE 

321  /S 

348 

354 

356 

359 

378 

3C4 

403 

409 

*u  5 

MON ALB 

INTEGER 

SIMPLE 

296/1 

391 

393/S 

40  1 

402 

404/S 

S * 
8 

s?  r“ 

MON  GW 

INTEGER 

SIMPLE 

296/1 

366 

368 /S 

376 

377 

379/S 

MONSST 

INTEGER 

SIMPLE 

296  / 1 

335 

337/S 

346 

347 

349/S 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

49 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

51 

iO  *3 

e 

NB 

ICNTRL 

INTEGER 

SIMPLE 

52 

298 

302 

302 

304 

304 

305 

305 

NO 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

54 

> 0 

NDAT 

INTEGER 

SIMPLE 

3 14/S 

315 

318 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

55 

31  1 /S 

311 

3 t 2 /S 

323 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

76 

<5  ©a 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

57 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

31 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

58 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

59 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

60 

308 

309/ S 

309 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

62 

NHMS  1 

IDPARM 

INTEGER 

SIMPLE 

209 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

61 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

50 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

63 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

64 

NLAYP1 

ICNTRL 

INTEGER 

SIMPLE 

65 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

75 

NMON 

INTEGER 

SIMPLE 

313/S 

317 

335 

336 

337 

366 

367 

368 

391 

392 

393 

NMON 1 

INTEGER 

SIMPLE 

317/S 

318/5 

318 

319 

320 

346 

376 

401 

NMON2 

ICNTRL 

INTEGER 

SIMPLE 

319/S 

321 

347 

348 

349 

377 

378 

379 

402 

403 

404 

NSDAY 

INTEGER 

SIMPLE 

66 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

67 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

71 

310/S 

310 

312 

3 1 3 

3 14 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

73 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

2 10 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

72 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

74 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

172 

P 

QANDOT 

REAL 

ARRAY 

261 

274 

302/S 

302 

PHI 

OANDOT 

REAL 

ARRAY 

266 

279 

PHIP 

OPOLES 

REAL 

ARRAY 

289 

PHIS 

QANDQT 

REAL 

ARRAY 

254 

267 

PI 

RCNTRL 

REAL 

SIMPLE 

173 

326 

327 

a 

PI  180 

RCNTRL 

REAL 

SIMPLE 

174 

5 

H 

rj 


I-1 


o 

> 


PI  2 

PIMEAN 

PKSTO 

PKTOP 

PLEVS 

PP 

PSMAX 

PSMIN 

PSTD 

PTOP 

PZERO 

QALT 

QANDQT 

QBEG 

QDAY 

QEND 

QOUT 

QPHY 

QPOLE5 

QPROG 

ORSH 

QRSW 

PSD I AG 

QSHF 

QUDIAG 

RADE 

RC 

RCO 

RCNTRL 


RDPARM 


RGAS 
RLAT 
RLATD 
ROCP 
ROCPDT 
ROC  PP  1 
RSDIST 
SDA  V 

SEASON 

SGNP 

SH 

SHP 

SHS 

SIG 

SIGE 

SIND 

SI  NL 

SINLON 

SMTH 

SN2FLG 

SOLS 

START 

T 

THSTD 

THSTD2 

TOPOG1 

TOPOG2 

TP 

TS 

TSTD 

U 

UP 

V 


RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

QPOLES 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

LCNTRl 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

QANDQT 

LCNTRL 

LCNTRL 

OANDQT 

LCNTRL 

QANDQT 

RCNTRL 

RCNTRL 

RCNTRL 


RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

QANDQT 

QPOLES 

QANDQT 

RDPARM 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

OANDQT 

LCNTRL 

RCNTRL 

LOPARM 

QANDQT 

RDPARM 

RDPARM 

MNTHLY 

MNTHLY 

QPOLES 

QANDQT 

RCNTRL 

QANDQT 

QPOLES 

QANDQT 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

real 

REAL 

LOGICAL 

LOGICAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 


REAL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

PEAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

logical 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 


UNKNOWN 


SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

array 

ARRAY 

ARRAY 


175 

177 

238 

239 
191 
2B4 

178 

179 

176 
160 
197 

98 
253 

99 
100 
101 
102 

103 
284 
253 
277 
107 
106 
2S0 

104 
283 
131 
198 
156 
156 
167 
178 
189 
217 
228 

239 
250 
182 

240 
24  f 

183 

242 

243 

184 

185 


296  306 /'W 


304/S  304 


305/S  305 


126 

280 

127 

128 

129 

130 

131 
285 
267 
278 
135 
134 
2S2 

132 


283 
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DESCRIPTION  OF  PARAMETERS 
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I2/iTE-  7 PROGRAMMER  *7 
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2 1 JUL83  JIM  PF. 
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COMMON  /rjOWTEJl  / Z.  *”s  = ”as“"-s”"c-«  = “s*s 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/CCNTRL/  CCO 
/CCNTRL / ADATE 
/CCNTRL/  ATIME 
/CCNTRL/  JIC 
/CCNTRL/  UOB 
/CCNTRL/  CQSP06 
/CCNTRL/  CCSP07 
/CCNTRL/  CCSP08 
/CCNTRL/  VER 
/CCNTRL/  XLABEL  MO) 
/CCNTRL/  COS  (30) 
/CCNTRL/  COU  MO) 


EQUIVALENCE 

CHARACTERS 

characters 

characters 

CHARACTERS 

CHARACTERS 

characters 

CHARACTER  *8 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 


<CCO ,CC< 1 > ) 

CCO,  CC ( 200  ) 

ADATE 

ATIME 

dIC 

dOB 

CCSP06 

CCSP07 

CCSP08 

VER 

XLABEL 

CQS 

CQU 


♦* • VDEFALT 
VDEFALT 
VDEFALT 
VDEFALT 
VDEFALT 
VDEFALT 
VDEFALT 
VDEFALT  „ 
VDEFALT  10 
VDEFALT  1 1 
VDEFALT  12 
VDEFALT  13 
VDEFALT  14 
VDEFALT  15 
VDEFALT  1 G 
VDEFALT  17 
VDEFALT  18 
VDEFALT  19 
VDEFALT  20 
VDEFALT  21 
VDEFALT  22 
VDEFALT  23 
VDEFALT  24 
VDEFALT  25 
VDEFALT  26 
VDEFALT  27 
VDEFALT  28 
VDEFALT  29 
VDEFALT  30 
VDEFALT  31 
VDEFALT  32 
VDEFALT  33 
VDEFALT  34 
♦♦VDEFALT  35 
•VDEFALT  36 
♦♦VDEFALT  37 
VDEFALT  38 
VDEFALT  39 
VDEFALT  40 
•♦VOEFALT  41 
VDEFALT  42 
VCNTRL  2 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 


3 

4 

5 

6 
7 
B 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 


JO 

*5  S 

o 5; 

g| 

gg 

eg 
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ESi 


DEFALT  1 


C 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

32 

C 

VCNTRL 

33 

00027 

COMMON 

/ICNTRL/ 

ICO 

VCNTRL 

34 

00028 

COMMON 

/ ICNTRL / 

IM 

VCNTRL 

35 

00029 

COMMON 

/ICNTRL/ 

I MD2 

VCNTRL 

36 

00030 

COMMON 

/ICNTRL/ 

IMD2P1 

VCNTRL 

37 

00031 

COMMON 

/ICNTRL/ 

NDRSW 

VCNTRL 

38 

00032 

COMMON 

/ICNTRL/ 

JM 

VCNTRL 

39 

00033 

COMMON 

/ICNTRL/ 

JMD2 

VCNTRL 

40 

00034 

COMMON 

/ICNTRL/ 

JMT2 

VCNTRL 

4 1 

00035 

COMMON 

/ICNTRL/ 

JNP 

VCNTRL 

42 

00036 

COMMON 

/ICNTRL/ 

J04 

VCNTRL 

43 

00037 

COMMON 

/ICNTRL/ 

JOB 

VCNTRL 

44 

00038 

COMMON 

/ICNTRL/ 

JSP 

VCNTRL 

45 

00039 

COMMON 

/ICNTRL/ 

KLIALB 

VCNTRL 

46 

00040 

COMMON 

/ICNTRL/ 

KLIGW 

VCNTRL 

47 

00041 

COMMON 

/ICNTRL/ 

KLISST 

VCNTRL 

48 

00042 

COMMON 

/ICNTRL/ 

KS 

VCNTRL 

49 

00043 

COMMON 

/ICNTRL/ 

KU 

VCNTRL 

50 

00044 

COMMON 

/ICNTRL/ 

LOG8R 

VCNTRL 

5 I 

00045 

COMMON 

/ICNTRL/ 

MATIN 

VCNTRL 

52 

00046 

COMMON 

/ICNTRL/ 

MATSNX 

VCNTRL 

53 

00047 

COMMON 

/ICNTRL/ 

MAT SUN 

VCNTRL 

54 

00048 

COMMON 

/ICNTRL/ 

MLF  (12) 

VCNTRL 

55 

00049 

COMMON 

/ICNTRL/ 

MROD 

VCNTRL 

56 

00050 

COMMON 

/ICNTRL/ 

NKRSH 

VCNTRL 

57 

00051 

COMMON 

/ICNTRL/ 

MSM 

VCNTRL 

58 

00052 

COMMON 

/ICNTRL/ 

NB 

VCNTRL 

59 

00053 

COMMON 

/ICNTRL/ 

ND 

VCNTRL 

60 

00054 

COMMON 

/ICNTRL/ 

NDALT 

VCNTRL 

61 

00055 

COMMON 

/ICNTRL/ 

NDAY 

VCNTRL 

62 

000S6 

COMMON 

/ICNTRL/ 

NDOUT 

VCNTRL 

63 

00057 

COMMON 

/ICNTRL/ 

NDPHY 

VCNTRL 

64 

00058 

COMMON 

/ICNTRL/ 

NDSHF 

VCNTRL 

65 

00059 

COMMON 

/ICNTRL/ 

NDT 

VCNTRL 

66 

00060 

COMMON 

/ICNTRL/ 

NHMS 

VCNTRL 

67 

00061 

COMMON 

/ICNTRL/ 

NHMSE 

VCNTRL 

68 

00062 

COMMON 

/ICNTRL/ 

NHMSO 

VCNTRL 

69 

00063 

COMMON 

/ICNTRL/ 

NLA  Y 

VCNTRL 

70 

00064 

COMMON 

/ICNTRL/ 

NLA YM 1 

VCNTRL 

7 1 

00065 

COMMON 

/ICNTRL/ 

NLAYP  1 

VCNTRL 

72 

00066 

COMMON 

/ICNTRL/ 

NSDAY 

VCNTRL 

73 

00067 

COMMON 

/ICNTRL/ 

NSEQ 

VCNTRL 

74 

0006B 

COMMON 

/ICNTRL/ 

ICSP53 

VCNTRL 

75 

00069 

COMMON 

/ICNTRL/ 

N5TEP 

VCNTRL 

76 

00070 

COMMON 

/ICNTRL/ 

10LKSI2 

VCNTRL 

77 

00071 

COMMON 

/ICNTRL/ 

NYMD 

VCNTRL 

78 

00072 

COMMON 

/ICNTRL/ 

NYMDE 

VCNTRL 

79 

00073 

COMMON 

/ICNTRL/ 

NYMDO 

VCNTRL 

80 

00074 

COMMON 

/ICNTRL/ 

NZINIT 

VCNTRL 

81 

00075 

COMMON 

/ICNTRL/ 

NMLEV 

VCNTPL 

82 

00076 

COMMON 

/ICNTRL/ 

NDHOG 

VCNTRL 

83 

00077 

COMMON 

/ICNTRL/ 

IQS  (30) 

VCNTRL 

84 

00078 

COMMON 

/ICNTRL/ 

IOU  MO) 

VCNTRL 

85 

c 

VCNTRL 

86 

00079 

EQUIVALENCE 

(ITMIN 

, i os ( in 

VCNTRL 

87 

00080 

EQUIVALENCE 

f I TMAX 

.IQS<  2)1 

VCNTRL 

88 

00081 

EQUIVALENCE 

( IPREACC 

,IOS<  3)) 

VCNTRL 

89 

00082 

EQUIVALENCE 

< I PRECON 

► I QS ( 4)) 

VCNTRL 

90 

00083 

EQUIVALENCE 

< I HF  LUX 

,IQS<  5 > ) 

VCNTRL 

91 

00084 

equivalence 

( IEFLUX 

* IQS<  6)) 

VCNTRL 

92 

00085 

equivalence 

( I FUSION 

* I QS<  7)) 

VCNTRL 

93 

00086 

equivalence 

( IRADSV/G 

* IQS(  8)) 

VCNTRL 

94 

00087 

equivalence 

( IRADLWG 

• IQS<  9)} 

VCNTRL 

95 

00088 

equivalence 

( IICLOUD 

. IOS( 10) ) 

VCNTRL 

96 

00089 

equivalence 

{ IUFLUX 

, I QS  f 11)) 

VCNTRL 

97 

0Q090 

equivalence 

( IVFLUX 

, IOS< 12) ) 

VCNTRL 

98 

c 

VCNTRL 

99 

00091 

equivalence 

(IOMEGA 

.IOU(  1>) 

VCNTRL 

100 

00092 

EQUIVALENCE 

(IDIABAT 

* I QU ( 2 ) ) 

VCNTRL 

101 

00093 

EQUIVALENCE 

( IRADSW 

♦I0U(  3)) 

VCNTRL 

102 

ORIGINAL  pm%  M 
OF  POOR  QUALITY 


00094 

EQUIVALENCE 

{ IRAOLW 

, I QU  < 

4 ) > 

VCNTRL 

103 

c 

VCNTRL 

1 04 

00095 

EQUIVALENCE 

{ICO, IC< 1 ) ) 

VCNTRL 

105 

00096 

INTEGER 

ICO,  ICC200) 

VCNTRL 

1 06 

c 

VCNTRL 

107 

C 

LOGICAL  MODEL  PARAMETERS  SAVED  ON 

HISTORY  RECORD 

VCNTRL 

VCNTRL 

108 

109 

00097 

c 

COMMON  /LCNTRL/ 

LCO 

VCNTRL 

1 to 

00098 

COMMON  /LCNTRL/ 

QALT 

VCNTRL 

1 1 1 

00099 

COMMON  /LCNTRL/ 

QBEG 

VCNTRL 

1 12 

00100 

COMMON  /LCNTRL/ 

QDAV 

VCNTRL 

1 13 

00101 

COMMON  /LCNTRL/ 

QEND 

VCNTRL 

1 14 

00102 

COMMON  /LCNTRL/ 

QOUT 

VCNTRL 

1 15 

00103 

COMMON  /LCNTRL/ 

QPHV 

VCNTRL 

1 16 

00104 

COMMON  /LCNTRL/ 

Q5HF 

VCNTRL 

117 

00105 

COMMON  /LCNTRL/ 

SN2FLG 

VCNTRL 

1 18 

00106 

COMMON  /LCNTRL/ 

QRSW 

VCNTRL 

1 19 

00107 

COMMON  /LCNTRL/ 

QRSH 

VCNTRL 

120 

00108 

COMMON  /LCNTRL/ 

LQS ( 30 ) 

VCNTRL 

121 

00  109 

COMMON  /LCNTRL/ 

LQU ( 10) 

VCNTRL 

122 

c 

VCNTRL 

123 

001  TO 

EQUIVALENCE 

{LTMIN 

, LQS  ( 

1 > ) 

VCNTRL 

124 

00111 

EQUIVALENCE 

{LTMAX 

, LQS  ( 

2)  ) 

VCNTRL 

125 

00112 

EQUIVALENCE 

(LPREACC 

, LQS  ( 

3)  > 

VCNTRL 

126 

00113 

EQUIVALENCE 

< LPRECON 

. LQS  ( 

4 > ) 

VCNTRL 

127 

00114 

EQUIVALENCE 

( LHFLUX 

, LQS  ( 

5)  ) 

VCNTRL 

1 28 

001  15 

EQUIVALENCE 

( LEFLUX 

, LQS  ( 

6)  ) 

VCNTRL 

129 

001  15 

EQUIVALENCE 

(LFUSION 

. LQS  ( 

7)  > 

VCNTRL 

130 

001  17 

EQUIVALENCE 

{ LRADSWG 

, LQS  ( 

B)) 

VCNTRL 

131 

00  1 18 

EQUIVALENCE 

(LRADLWG 

, LQS  I 

9>  > 

VCNTRL 

132 

001  19 

EQUIVALENCE 

(LICLOUD 

, LQS  ( 

10)  ) 

VCNTRL 

133 

00120 

EQUIVALENCE 

(LUFLUX 

. LQ5  ( AIM 

VCNTRL 

134 

00121 

EQUIVALENCE 

I LVFLUK 

, LQS  < 

12)  ) 

VCNTRL 

135 

c 

VCNTRL 

136 

00122 

EQUIVALENCE 

(LOMEGA 

, LQU  t 

1 ) ) 

VCNTRL 

137 

00123 

EQUIVALENCE 

( LD I ABA  T 

. LQU  < 

2)  > 

VCNTRL 

138 

00124 

EQUIVALENCE 

(LRADSW 

, LQU  ( 

3)  ) 

VCNTRL 

1 39 

00  1 25 

EQUIVALENCE 

(LRADLW 

, LQU  ( 

4)  ) 

VCNTRL 

140 

c 

VCNTRL 

141 

00126 

LOGICAL 

QALT 

VCNTRL 

142 

00127 

LOGICAL 

QBEG 

VCNTRL 

143 

00128 

LOGICAL 

QDAY 

VCNTRL 

1 44 

00129 

LOGICAL 

QEND 

VCNTRL 

145 

00130 

LOGICAL 

qOUT 

VCNTRL 

146 

00131 

LOGICAL 

QPHV 

VCNTRL 

147 

00132 

LOGICAL 

QSHF 

VCNTRL 

148 

00133 

LOGICAL 

SN2FLG 

VCNTRL 

149 

00134 

LOGICAL 

QRSW 

VCNTRL 

150 

00135 

LOG! CAL 

QRSH 

VCNTRL 

151 

c 

VCNTRL 

152 

00136 

LOGICAL 

LQS 

VCNTRL 

153 

00137 

LOGICAL 

LQU 

VCNTRL 

154 

00138 

LOGICAL 

LTMIN 

VCNTRL 

1 55 

00139 

LOGICAL 

LTMAX 

VCNTRL 

156 

00140 

LOGICAL 

LPREACC 

VCNTRL 

157 

00141 

LOGICAL 

LPRECON 

VCNTRL 

158 

00142 

LOGICAL 

LHFLUX 

VCNTRL 

159 

00143 

LOGICAL 

LEFLUX 

VCNTRL 

160 

00144 

LOGICAL 

LFUSION 

VCNTRL 

16  1 

00145 

LOGICAL 

LRADSWG 

VCNTRL 

162 

00146 

LOGICAL 

LRADLWG 

VCNTRL 

163 

00147 

LOGICAL 

LICLOUD 

VCNTRL 

1G4 

00148 

LOGICAL 

LUFLUX 

VCNTRL 

165 

00  149 

LOGICAL 

LVFLUX 

VCNTRL 

1 66 

c 

VCNTRL 

167 

00150 

LOGICAL 

LOMEGA 

VCNTRL 

158 

00  151 

LOGICAL 

LDIABAT 

VCNTRL 

169 

00152 

LOGICAL 

LRADSW 

VCNTRL 

170 

00  153 

LOGICAL 

LRADLW 

VCNTRL 

171 

c 

VCNTRL 

172 

00154 

EQUIVALENCE 

f LCOfLC< 

1 ) ) 

VCNTRL 

173 

DEFALT  3 


00155 

LOGICAL 

LCD.  LC 1 200 ) 

VCNTRL 

174 

C 

VCNTRL 

175 

C 

REAL  MODEL 

PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

176 

C 

VCNTRL 

177 

00  155 

COMMON 

/RCNTRL/ 

RCO 

VCNTRL 

178 

00157 

COMMON 

/RCNTRL / 

APHEL 

VCNTRL 

179 

00158 

COMMON 

/RCNTRL/ 

BETA 

VCNTRL 

180 

00  159 

COMMON 

/RCNTRL/ 

COSD 

VCNTRL 

181 

00  1 60 

COMMON 

/ RCNTRL / 

CP 

VCNTRL 

182 

00  161 

COMMON 

/RCNTRL/ 

DAYSPY 

VCNTRL 

183 

00  162 

COMMON 

/RCNTRL/ 

DEC 

VCNTRL 

184 

00  163 

COMMON 

/RCNTRL/ 

DECMAX 

VCNTRL 

185 

00  164 

COMMON 

/RCNTRL/ 

DIST 

VCNTRL 

186 

00165 

COMMON 

/RCNTRL/ 

DLAT 

VCNTRL 

187 

00166 

COMMON 

/RCNTRL/ 

DLON 

VCNTRL 

188 

00167 

COMMON 

/RCNTRL/ 

DT 

VCNTRL 

189 

00165 

COMMON 

/RCNTRL/ 

ECCN 

VCNTRL 

190 

00169 

COMMON 

/RCNTRL/ 

GNU  1 

VCNTRL 

191 

00170 

COMMON 

/RCNTRL/ 

GNU2 

VCNTRL 

192 

00171 

COMMON 

/RCNTRL/ 

GRAV 

VCNTRL 

193 

00172 

COMMON 

/RCNTRL / 

0MEGA2 

VCNTRL 

194 

00  173 

COMMON 

/RCNTRL/ 

PI 

VCNTRL 

195 

00174 

COMMON 

/RCNTRL/ 

PI  180 

VCNTRL 

196 

00175 

COMMON 

/RCNTRL/ 

P I 2 

VCNTRL 

197 

00176 

COMMON 

/RCNTRL/ 

PSTD 

VCNTRL 

198 

00177 

COMMON 

/RCNTRL/ 

PI ME AN 

VCNTRL 

199 

00178 

COMMON 

/RCNTRL/ 

PSMAX 

VCNTRL 

200 

00179 

COMMON 

/RCNTRL/ 

P5MIN 

VCNTRL 

20  1 

00180 

COMMON 

/RCNTRL/ 

PTOP 

VCNTRL 

202 

00  181 

COMMON 

/RCNTRL/ 

RADE 

VCNTRL 

203 

00  182 

COMMON 

/RCNTRL/ 

RGAS 

VCNTRL 

204 

00183 

COMMON 

/RCNTRL/ 

ROCP 

VCNTRL 

205 

00184 

COMMON 

/RCNTRL/ 

RSDIST 

VCNTRL 

206 

00185 

COMMON 

/RCNTRL/ 

5DAY 

VCNTRL 

207 

00  186 

COMMON 

/RCNTRL/ 

SEASON 

VCNTRL 

208 

00  187 

COMMON 

/RCNTRL/ 

SIGE 

( 25  ) 

VCNTRL 

209 

00  188 

COMMON 

/RCNTRL/ 

SIND 

VCNTRL 

210 

00  189 

COMMON 

/RCNTRL/ 

SOLS 

VCNTRL 

21  1 

00  190 

COMMON 

/ RCNTRL/ 

VSTO 

VCNTRL 

2 12 

00191 

COMMON 

/RCNTRL/ 

PLEVS 

( 2 5 j 

VCNTRL 

213 

00  192 

COMMON 

/RCNTRL/ 

HEATW 

VCNTRL 

214 

00193 

COMMON 

/RCNTRL/ 

HEATI 

VCNTRL 

215 

00194 

COMMON 

/RCNTRL/ 

EPS 

VCNTRL 

216 

00  195 

COMMON 

/RCNTRL/ 

EPSFAC 

VCNTRL 

217 

00196 

COMMON 

/RCNTRL/ 

CAL  TO J 

VCNTRL 

218 

00197 

COMMON 

/RCNTRL/ 

PZERO 

VCNTRL 

219 

C 

VCNTRL 

220 

001  98 

EQUIVALENCE 

( RCO , RC ( 1 > ) 

VCNTRL 

221 

00  199 

REAL 

RCO.  RC  1200  1 

VCNTRL 

222 

c 

VCNTRL 

223 

C 

INTEGER  MODEL  CONSTANTS 

VCNTRL 

224 

c 

VCNTRL 

225 

00200 

COMMON 

/ I DP ARM/ 

I JUMP 

( 46) 

VCNTRL 

226 

0020  1 

COMMON 

/IDPARM/ 

IDSP02 

VCNTRL 

227 

00202 

COMMON 

/IDPARM/ 

INDEX 

172) 

VCNTRL 

228 

00203 

COMMON 

/IDPARM/ 

IROD 

VCNTRL 

229 

00204 

COMMON 

/IDPARM/ 

JC 

< 46) 

VCNTRL 

230 

00205 

COMMON 

/ IDPARM/ 

JE 

t 2 > 

VCNTRL 

231 

00205 

COMMON 

/IDPARM/ 

JP 

12.2) 

VCNTRL 

232 

0020  7 

common 

/IDPARM/ 

KSTEP 

VCNTRL 

233 

00201* 

COMMON 

/IDPARM/ 

Md 

t 46) 

VCNTRL 

234 

00209 

COMMON 

/IDPARM/ 

NHMS1 

VCNTRL 

235 

00210 

COMMON 

/IDPARM/ 

NYMD  1 

* 

VCNTRL 

236 

c 

VCNTRL 

237 

c 

LOGICAL  MODEL  CONSTANTS 

VCNTRL 

238 

c 

VCNTRL 

239 

0021  1 

COMMON 

/LDPARM/ 

FILTER 

(46) 

VCNTRL 

240 

00212 

COMMON 

/LDPARM/ 

ITAPE 

VCNTRL 

241 

00213 

COMMON 

/LDPARM/ 

START 

VCNTRL 

242 

c 

VCNTRL 

243 

002  14 

LOGICAL 

FILTER 

VCNTRL 

244 
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002  15 

LOGICAL 

ITAPE 

VCNTRL 

245 

00216 

LOGICAL 

START 

VCNTRL 

246 

C 

VCNTRL 

247 

C 

REAL  P/500  EL 

. CONSTANTS 

VCNTRL 

248 

C 

VCNTRL 

249 

00217 

COMMON 

/RDPARM/ 

ADLDP 

VCNTRL 

250 

002  18 

COMMON 

/RDPARM/ 

CONI 

VCNTRL 

25  1 

00219 

COMMON 

/RDPARP  ft/ 

CON  IDT 

VCNTRL 

252 

00220 

COMMON 

/RDPARM/ 

C0N2 

VCNTRL 

253 

00221 

COMMON 

/RDPARM/ 

C0N2DT 

VCNTRL 

254 

00222 

COMMON 

/RDPARM/ 

C0N3 

VCNTRL 

255 

00223 

COMMON 

/RDPARM/ 

C0N3DT 

VCNTRL 

256 

00224 

COMMON 

/RDPARM/ 

C0N4 

VCNTRL 

257 

00225 

COMMON 

/RDPARM/ 

C0N4DT 

VCNTRL 

258 

00226 

COMMON 

/RDPARM/ 

CONS 

VCNTRL 

259 

00227 

COMMON 

/RDPARM/ 

COSL 

(461 

VCNTRL 

260 

0022S 

COMMON 

/RDPARM/ 

COSLON 

(72) 

VCNTRL 

2G1 

00229 

COMMON 

/RDPARM/ 

CPD2 

VCNTRL 

262 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

VCNTRL 

263 

00231 

COMMON 

/RDPARM/ 

DXYP 

(46) 

VCNTRL 

264 

00232 

COP/JMON 

/RDPARM/ 

DYP 

( 46 ) 

VCNTRL 

265 

00233 

COMMON 

/RDPARf  fi/ 

FC0RL3 

(46) 

VCNTRL 

266 

00234 

COMMON 

/RDPARM/ 

F1DT 

VCNTRL 

267 

00235 

COMMON 

/RDPARM/ 

F20T 

VCNTRL 

268 

00236 

COMMON 

/RDPARM/ 

H1DT 

VCNTRL 

269 

00237 

COMMON 

/RDPARM/ 

H2DT 

VCNTRL 

270 

00238 

COMMON 

/RDPARM/ 

PKSTD 

VCNTRL 

27  1 

00239 

common 

/RDPARM/ 

PK  TOP 

VCNTRL 

272 

00240 

COMMON 

/RDPARM/ 

RLAT 

1 46) 

VCNTRL 

273 

00241 

COMMON 

/RDPARM/ 

RLATD 

< 46) 

VCNTRL 

274 

00242 

COMMON 

/RDPARM/ 

ROCPDT 

VCNTRL 

275 

00243 

COMMON 

/RDPARM/ 

R0CPP1 

VCNTRL 

276 

00244 

COMMON 

/RDPARM/ 

SGNP 

< 2 ) 

VCNTRL 

277 

00245 

COMMON 

/RDPARM/ 

SI  NL 

( 46  ) 

VCNTRL 

278 

00246 

COMMON 

/RDPARM/ 

SINLON 

(72) 

VCNTRL 

279 

00247 

COMMON 

/RDPARM/ 

THSTD 

VCNTRL 

230 

00248 

CQP/lfvlON 

/RDPARM/ 

THSTD2 

VCNTRL 

281 

00249 

COMMON 

/RDPARM/ 

V/SAVE 

< 159) 

VCNTRL 

282 

00250 

COMMON 

/RDPARM/ 

DSIG 

(9) 

VCNTRL 

233 

0025  1 

COMMON 

/RDPARM/ 

SIG 

< 9) 

VCNTRL 

284 

00252 

COMMON 

/RDPARM/ 

DSIG I NV 

(9) 

VCNTRL 

285 

c 

VCNTRL 

286 

c 

VCORDER 

2 

c 

IDENTIFYING  LABELS 

OF  MODEL  RESTART  RECORD  QUANTITIES 

VCORDER 

3 

c 

VCORDER 

4 

00253 

COMPTON 

/COROER/ 

KORDSl 24 > t KORDUl  15 1 

VCORDER 

5 

00254 

CHARACTER'S 

XORDS  , XORDU 

VCORDER 

6 

c 

VCORDER 

7 

c 

IDENTIFYING  LABELS 

OF  MODEL  HISTORY  RECORD  QUANTITIES 

VCORDER 

8 

c 

VCORDER 

9 

00255 

COMMON 

/CORDER/ 

XSA  ( 23 ) . XUA  (10) 

VCORDER 

10 

00256 

CHARACTER'S 

XSA  , XUA 

VCORDER 

1 1 

c 

VCORDER 

12 

c 

VOANDOT 

2 

c 

COMDECK  VOANDQT  RESOLUTION 

1 VALUES 

VOANDQT 

3 

c 

VQANDOT 

4 

c 

IM 

”72 

VOANDQT 

5 

c 

NLAY 

= 9 

VOANDOT 

6 

c 

JM*  i 

-46 

VQANDOT 

7 

c 

NLAY*  1 1 

= 99 

VQANDOT 

8 

c 

IM'NLAYM  1 

= 7128 

VOANDQT 

9 

c 

JM/2M 

= 23 

VQANDOT 

10 

c 

VOANDQT 

1 1 

c 

GLOBAL  MODEL  PROGNOSTIC  FIELDS  f NEEDED  IN  COMPO) 

VOANDQT 

12 

c 

VQANDOT 

13 

c 

VQANDOT 

14 

0025* 

COMMON 

/ OANDOT / QPROGI 72 ,9.  11 . 46 ) 

VQANDOT 

15 

c 

VQANDOT 

16 

0025S 

DIMENSION 

PHIS 

(712S . 1 ) 

VQANDQT 

17 

00259 

DIMENSION 

SMTH 

(7)28,23) 

VOANDQT 

18 

00260 

DIMENSION 

ALBEDO 

(7128 , 1 ) 

VOANDOT 

19 

o 

P 

H 


Ln 
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00261 

DIMENSION 

GT  (7128,1) 

VOANDQT 

20 

00262 

DIMENSION 

GW  (7128,1) 

VOANDQT 

2 1 

00263 

DIMENSION 

TS  ( 7 1 28, ft 

VQANDQT 

22 

00264 

DIMENSION 

SHS  (7128,1) 

VOANDQT 

23 

00265 

DIMENSION 

P (72,99,1) 

VQA  rjDOT 

24 

C 

VQANDQT 

25 

00266 

D I MENS I ON 

U (72.9.11,1) 

VQANDOT 

26 

00267 

DIMENSION 

V (72.9.11,1) 

VQANDQT 

27 

00263 

DIMENSION 

T (72,9.11,1) 

VQANDQT 

28 

00269 

DIMENSION 

SH  (72.9.11,1) 

VQANDQT 

29 

00270 

DIMENSION 

PHI  (72,9,11,1) 

VQANDQT 

30 

C 

VQANDOT 

31 

0027  1 

EQUIVALENCE 

( QPROG ( 1 , 1,1,1) .PHIS 

( 1 . 

1 ) ) 

VQANDQT 

32 

00272 

EQUIVALENCE 

( QPROG ( 1 , 2.1,1)  , SMTH 

< 1 , 

1 > ) 

VQANDOT 

33 

00273 

EQUIVALENCE 

( QPROG ( 1 , 3.1,1) , ALB EDO ( 1 , 

1 ) ) 

VOANDQT 

34 

00274 

EQUIVALENCE 

( QPROG  ( 1 , 4,1,1), GT 

< 1 . 

1 ) > 

VQANDQT 

35 

00275 

EQUIVALENCE 

( QPROG ( 1 , 5,1,1), GW 

( 1 . 

1 ) ) 

VQANDQT 

36 

00276 

EQUIVALENCE 

<QPROG(  1 . 6 , 1 , 1 ) , TS 

( 1 . 

1 ) ) 

VOANDQT 

37 

00277 

EQUIVALENCE 

( QPROG ( 1 , 7,1,1), SHS 

< 1 . 

1 ) ) 

VQANDQT 

38 

0 0 278 

EQUIVALENCE 

( Q PROG ( 1 . 8 , 1 , 1 ) , P 

( 1 . 

1,1)) 

VQANDQT 

39 

C 

VQANDOT 

40 

00279 

EQUIVALENCE 

( QPROG ( 1,1.  2 , 1 ) , U ( 1 

,1,1 

, 1 > ) 

VQANDQT 

4 1 

00280 

EQUIVALENCE 

{ QPROG ( 1,1.  4 , 1 > , V < 1 

,1,1 

, 1 ) > 

VQANDQT 

42 

00281 

EQUIVALENCE 

( QPROG ( 1,1.  6.  1 ) , T ( 1 

,1,1 

, 1 ) ) 

VQANDQT 

43 

00282 

EQUIVALENCE 

( QPROG ( 1,1,  8, 1 ) , SH  ( 1 

,1,1 

, 1 ) > 

VQANDQT 

44 

00283 

EQUIVALENCE 

< QPROG ( 1,1,10,1). PHI  ( 1 

,1,1 

, 1 > ) 

VQANDQT 

45 

C 

VOANDQT 

46 

C 

SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS 

(NOT 

NEEDED 

IN  COMP 01 

VQANDQT 

47 

u 

V 0 A FJ  U Q T 

48 

C 

VQANDQT 

49 

00284 

COMMON 

/ QANDQT / QSDIAG172 

15,46) 

VQANDQT 

50 

00285 

DIMENSION 

I QSD I AG ( 72 

,15,46) 

VQANDQT 

51 

00286 

EQUIVALENCE 

f QSD I AG , I QSD I AG ) 

VQANDOT 

52 

c 

VQANDQT 

53 

00287 

COMMON 

/QANDQT/  QUO  I AG< 72,9, 

5,46) 

VOANDQT 

54 

c 

VQANDQT 

55 

c 

* ♦ * 

VWORK  TD 

2 

c 

ONE-DIMENSIONAL  WORK  AREAS 

VWOPK ID 

3 

00288 

COMMON 

CARD (10),  DATA*  144),  CA  T A ( 

144  ) 

VWORK  ID 

4 

00289 

CHARACTER  *8 

CARD 

VWORK ID 

5 

c 

VWORK ID 

6 

c 

VDEFALT 

47 

c 

DEFAULT  VALUES 

FOR  XORDS  AND  XCRDU 

vdefalt 

48 

c 

VDEFALT 

49 

00290 

CHARACTER  *8 

YORDS (24 ) 

VDEFALT 

SO 

00291 

DATA  YORDS 

/8HPHIS  . BHSMTH  , BHALBEDO 

,BHGT 

VDEFALT 

51 

<3 

8HGW  . 8HTS  , 8HSHS 

, 8HP 

t ! 

VDEFALT 

52 

& 

8HP  2.15-BH  / 

VDEFALT 

53 

00292 

CHARACTER'S 

YORDU ( 15 ) 

VDEFALT 

54 

00293 

DATA  YORDU 

/ 8HU  1.BHU  2 ♦ 8HV 

1 , 8HV 

2, 

VDEFALT 

55 

a 

8HT  1.8HT  2.8HSH 

1 , 2HSH 

2, 

VDEFALT 

56 

a 

8HPHI  1.8HPHI  2,5*  8H 

VDEFALT 

57 

c 

VDEFALT 

* ▲ a,  a i/n  c f"  ai  t 

58 

c * 

♦ * ♦ * VDfcF  ALT 

59 

c 

VDEFALT 

60 

c 

♦ * • 

VDEFALT 

6 1 

c 

DEBUG 

VBEGDEB 

2 

00294 

10000  CONTINUE 

VBEGDEB 

3 

C 

CYBER 

VECTOR  VERSION  00.001  INPUT 

IOQ 

VBEGDEB 

4 

C 

***♦  CYBER 

VECTOR  VERSION  00 

VBEGDEB 

5 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSVBEGDEB 

6 

c 

VDEFALT 

63 

c 

SET  DEFAULT  VALUES  FOR  CC 

VDEFALT 

64 

c 

VDEFALT 

65 

00295 

cco 

= ' CDC 

VDEFALT 

66 

00296 

ADATE 

r * * 

VDEFALT 

67 

00297 

ATIME 

= ' * 

VDEFALT 

68 

c 

JIC 

- ♦ (VALUE  USED  FROM 

INITIAL  CONDITIONS) 

VDEFALT 

69 

00298 

JIC 

= joe 

VDEFALT 

70 

00299 

JOB 

= ' ' 

VDEFALT 

71 

00300 

CCSP06 

= 'XXXXXXXX' 

VDEFALT 

72 
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0030  1 

00302 

00303 

00304 

00305 

00306 
0030T 
0030S 
00309 
003  10 
003  1 1 
003  1 2 

00313 

00314 

00315 

0031  6 
00317 
003  18 

00319 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 


00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 

00340 
0034  1 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00358 

00359 

00360 

00361 

00362 

00363 


CCSP07 

= 

' XXXXXXXX' 

CCSP08 

- 

* XXXXXXXX' 

VER 

— 

' GV/SGCMOO' 

DO  10  K“  1 . 10 

XL ABEL  < K ) 

' ' 

1 0 

CONTINUE 
00  11  K= 1 f 30 

COS ( K * 

e 

- XXX XX XXX ' 

! 1 

CONTINUE 

COS( 

1 ) 

= 

* TMI  N 

COS( 

2) 

= 

' TMAX 

cost 

3) 

= 

' PREACC  ' 

CQS  ( 

4) 

5 

' PRECON  * 

COS  ( 

5) 

r 

' HFLUX 

CQS  ( 

6) 

* 

' EF  LUX 

cost 

7 ) 

= 

# FUSION  ' 

CQS  < 

8> 

'RADSWG  ' 

CQS  < 

9) 

= 

* RADLWG  ' 

cost 

10) 

s 

' I CLOUD  * 

CQS< 

1 1 > 

' UF  LUX 

cost 

12) 

' VF  LUX 

DO  12  K = 1 . 10 

COU( 

K> 

~ 

' XXXXXXXX ' 

12 

CONTINUE 

cou< 

1 ) 

- 

'OMEGA 

CQU( 

2) 

= 

'DIABAT 

COUf 

3 ) 

s 

' RADSW 

CQU  ( 

4 ) 

' RADLW 

DO  13  K = 60  t 2 

CC  (K) 

s 

' XXXXXXXX' 

13 

CONTINUE 

SET  DEFAULT 

VALUES  FOR  IC 

17 


ICO 

s 

0 

IM 

- 

IM 

r 

IM 

1 MD2 

= 

JMD2P 1 

= 

NDRSW 

=■ 

060000 

JM 

* 

JM 

- 

JM 

JMD2 

JMT2 

JNP 

s 

J04 

0 

JOS 

0 

JSP 

- 

1 

KLI ALB 

* 

1 

KLIGW 

1 

KLI5ST 

1 

KS 

~ 

19 

KU 

- 

14 

LOG8R 

- 

LOG8R 

- 

LOG8R 

MATIN 

= 

1 

MATSNX 

- 

0 

MATSUN 

- 1 

MLF  ( 1 ) 

1 

DO  17  1 

ML  F ( N ) 

0 

CONTINI 

MROD 

= 

32 

NKRSH 

“ 

- 1 

MSM 

5 

NB 

= 

*■  * ♦ ♦ * 

N8 

= 

NB 

ND 

ND 

:= 

ND 

ndalt 

= 

0 

NDAY 

f VALUE  USED  F ROM  INITIAL  CONDITIONS* 


m / 2 

I MD2  * 


(VALUE  USED  FROM  INITIAL  CONDITIONS) 

n / 2 


< JM 
JM  • 
JM  * 


(VALUE  USED  FROM  INITIAL  CONDITIONS) 


(VALUE  USED  FROM  INITIAL  CONDITIONS) 
(VALUE  USED  FROM  INITIAL  CONDITIONS* 

MODYMD(NYMD) 


VDEFALT  73 
VDEFALT  74 
VDEFALT  75 
VDEFALT  76 
VDEFALT  77 
VDEFALT  78 
VDEFALT  79 
VDEFALT  80 
VDEFALT  81 
VDEFALT  82 
VDEFALT  83 
VDEFALT  84 
VDEFALT  85 
VDEFALT  86 
VDEFALT  87 
VDEFALT  88 
VDEFALT  89 
VDEFALT  90 
VDEFALT  91 
VDEFALT  92 
VDEFALT  93 
VDEFALT  94 
VDEFALT  95 
VDEFALT  96 
VDEFALT  97 
VDEFALT  98 
VDEFALT  99 
V0EFALT100 
VDEFALT10 1 
VDEFALT102 
VDEFALT103 
VDEFALT 1 04 
VDEFALT 1 05 
VDEFALT 1 06 
VDEFALT 1 07 
VDEFALT 108 
VDE  F ALT  1 09 
VDEFALT 1 10 
VDEF  ALT  1 1 1 
VDEFALT1 12 
VDEFALT 1 13 
VDEFALT 1 14 
VDEFALT 1 15 
VDEFALT 116 
VDEF  AL  T 1 17 
VDEF  AL  T 1 1 8 
VDEFALT 1 19 
VDEFALT 1 20 
VDEFALT 121 
VDEF ALT122 
VDE  F ALT  1 23 
VDEF  AL  T 1 24 
VDEFALT 1 25 
VDEF  AL  T t 26 
VDEFALT 127 
VDEFALT 128 
VDEFALT  t 29 
VDEFALT 130 
VDEFALT 131 
VDEF  AL  T 1 32 
VDEFALT 1 33 
V0EFALT134 
VDEFALT 1 35 
VDEF  ALT  1 36 
VDEFALT 1 37 
VDEFALT 1 38 
VDEFALT 1 39 
VDEFALT 1 40 
VDEFALT 141 
VDEFALT 142 
VDEF  ALT  1 43 


CJ 

PI 

*3 

F 
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00364 

NDOUT 

= 030000 

00365 

NDPHY 

= 003000 

00366 

NDSHF 

= 023000 

00367 

NDT 

C 

NHMS 

s *•  • ♦ j m { 

00368 

NHMS 

= NHMS 

00369 

NHMSE 

= NHMS 

00370 

NHMSO 

= NHMS 

c 

NLAY 

= * * * * * <1 

0037  1 

NLAY 

“ NLAY 

00372 

NLAYM1 

00373 

ML AYR  1 

- 

00374 

NSDAY 

00375 

NSEQ 

= I 

00376 

ICSP53 

- 999999 

00377 

NSTEP 

= 0 

00378 

ICSP55 

= 999999 

c 

NYMD 

- * ♦ * * ( v 

00379 

NYMD 

- NYMD 

00380 

NVMDE 

0038  1 

NYMDO 

— 

00382 

NZINIT 

- 0 

00383 

NPALEV 

= 0 

00384 

NDHOG 

= 030000 

00385 

DO  18  N“  1 

00386 

IQS(N ) 

- 0 

003B7 

18 

CONTINUE 

00388 

I TWIN 

» 1 

00389 

I TMA  X 

= 2 

00390 

I P RE ACC 

= 3 

00391 

IPRECON 

= 4 

00392 

INFLUX 

= 5 

00393 

ieflux 

= G 

00394 

ifusiom 

= 7 

00395 

IRADSWG 

= 8 

00396 

I RADLVJG 

= 9 

00397 

I I CLOUD 

= 1 0 

00398 

IUFLUX 

= 0 

00399 

I VFLUX 

S 0 

00400 

DO  19  N-1 

0040  1 

IOU(N) 

- 0 

00402 

19 

CONTINUE 

00403 

IOMEGA 

“ 1 

00404 

•ID  I ABAT 

= 2 

00405 

IRADSW 

= 3 

00406 

I RADLW 

- 4 

00407 

DO  21  « s 

00408 

IC  ( K ) 

« 999999 

00409 

21 

CONTINUE 

c 

43200  / IM 


< VALUE  USED  FROM  INITIAL  CONDITIONS) 

NLAY  - 1 

NLA  Y 1 

MODHMSfNHMS, 240000  > 


(VALUE  USED  FROM  INITIAL  CONDITIONS) 

NYMD 
NYMD 


102 . 200 


C 

c 

SET  DEFAULT 

VALUES  FOR  L 

00410 

LCO 

"a 

•FALSE. 

004  1 1 

OALT 

- 

•FALSE. 

004  1 2 

OBEG 

- 

. TRUE . 

004  13 

PDA  Y 

- 

004  14 

OEND 

a 

. TRUE . 

004  15 

POUT 

* 

. TRUE . 

004  16 

QPHY 

a 

. TRUE . 

00417 

P SHF 

a 

• TRUE . 

004  IS 

SN2FLG 

- 

.FALSE. 

004  19 

QRSW 

a 

. TRUE. 

00420 

ORSH 

a 

. TRUE . 

00421 

DO  22  K 

00422 

LOS(K) 

a 

-FALSE . 

00423 

22 

CONTINUE 

00424 

LTMIN 

a 

. TRUE. 

00425 

LTMAX 

r 

. TRUE . 

00426 

LPREACC 

= 

.TRUE. 

00427 

LPRECON 

- 

. TRUE  * 

00428 

LHFLUX 

. TRUE . 

NSDAY.EO . 0 


1 . 30 


VDEFALT144 
VDEFALT  t 45 
VDEFALT  t 46 
VDEFALTT47 
VDE  FALT  1 48 
VDE  F ALT  149 
VDEFALT 150 
VDEFALTI51 
VDEFALT 152 
VDEFALT 1 53 
VDE F ALT  1 54 
VDEFALT 155 
VDEFALT 156 
VDEFALT157 
VDEFALT 1 58 
VDEFALT  159 
VDEFALT 160 
VDEF  ALT 1 6 1 
VDEFALT 1 62 
VDEFALT 163 
VDE  F A LT 1 64 
VDEF  AL  T 1 65 
VDEF  A L T t 66 
VDEFALT 167 
VDEFALT  T 68 
VDEFALT 1 69 
VDEFALT 1 70 
VDEFALT 1 7 t 
VDEF AL  T 1 72 
VDEFALT  1 73 
VDEFALT  t 74 
VDEFALT 1 75 
VDEFALT 176 
VDEFALT 177 
VDEFAL  T 1 78 
VDEFALT 1 79 
VDEFALT 180 
VDEF  ALT  181 
VDEF  ALT  182 
VDEFALT I S3 
VDEFAL  T 1 84 
VDEFALT 1 85 
VDEFALT 186 
VDEFALT 187 
VDE  FALT 1 88 
VDEFALT  1 89 
VDEFALT 1 90 
VDEFALT 1 9 1 
VDEFAL  T1 92 
VDEFALT 1 93 
VDEFAL  T 194 
VDEFALT 195 
VDEFALT I 96 
VDEFALT 197 
VDEFALT 1 98 
VDEFALT 1 99 
VDEFALT200 
VDEFALT20 1 
VDEF  ALT202 
VDEF ALT203 
VDEFALT204 
VDEFALT205 
VDEFALT206 
VDEFALT207 
VDEFALT208 
VDE  F ALT209 
VDEFALT2  10 
VDEFALT21  1 
VDEF ALT2 I 2 
VDEFALT21 3 
VDEF  AL  T2 1 4 
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00429 

00430 
0043  1 

00432 

00433 

00434 

00435 

00436 

00437 

00438 

00439 

00440 

00441 

00442 

00443 

00444 

00445 


00446 

00447 

00448 

00449 

00450 
0045  1 

00452 

00453 

00454 

00455 

00456 

00457 

00458 

00459 

00460 

00461 

00462 

00463 

00464 

00465 

00466 

00467 

00468 

00469 

00470 
0047  1 

00472 

00473 

00474 

00475 

00476 

00477 

00478 

00479 
00430 

00481 

00482 

00483 

00484 

00485 

00486 

00487 

00488 

00489 

00490 

00491 

00492 

00493 


LEFLUX 

=r 

. TRUE  . 

LFUSION 

a 

. TRUE. 

LRADSWG 

a 

. TRUE  . 

lradlwg 

C 

- TRUE  . 

L 1 CLOUD 

a 

.TRUE. 

LUFLUX 

a 

.FALSE. 

L VF  LUX 

9 

- FALSE . 

DO  23  K a 1.10 

LOU < K ) 

t 

.FALSE, 

CONTINUE 

L OMEGA 

- 

. TRUE  . 

LDI A8AT 

a 

. TRUE. 

LRADSW 

a 

. TRUE  . 

LRADLW 

= 

. TRUE  . 

DO  24  K = 52.200 

LC  < K ) 

.FALSE . 
CONTINUE 

T DEFAULT 

VALUES  FOR  RC 

rr  zz  2?  'X 

RCO 

s 

999999 . 9999 

AFHEL 

a 

183 . 0000 

BETA 

=! 

0 . 0065 

C* 

= 

1 003 .5000 

DAYSPY 

365 . 0000 

PI 

= 

A COS  < -1.00) 

PI  2 

a 

2.0  ♦ PI 

PI  180 

- 

PI  / 180.00 

DECMA  X 

- 

23.5000  * PM  30 

SOLS 

a 

173 . 0000 

DEC 

= 

DECMA  X ♦ COS < P 1 2 * (NDA  V -SOLS  ? /DA YSP' 

COSO 

= 

COS  ( DEC  > 

SIND 

= 

S I N < DEC  > 

DIST 

INDAY  - APHEL)  / DAYSPY 

DLAT 

= 

PI  / JM 

DLON 

= 

PI  2 / IM 

DT 

NOT 

ECCW 

= 

0.0178 

GNU  1 

r 

1 , 0000 

GNU  2 

a 

0 . 0000 

GRAV 

= 

9.8100 

SDAY 

- 

86400 . 0000 

OMEGA2 

a 

2.0  * P I 2 / SDAY 

PSTD 

a 

1000. 00C9 

PIMEAN 

= 

PME  * fi  ( N0  ) 

PSMAX 

a 

1200 . 0000 

PSMIN 

= 

300 . 0000 

PTOP 

a 

(VALUE  USED  FROM  INITIAL  CONDITIONS) 

PTOP 

= 

PTOP 

RAOE 

a 

5375. OE03 

RGAS 

a 

2Q7 . 0000 

ROCP 

a 

RGAS  / CP 

RSDIST 

a 

<1.0  * ECCN  * COS  < P I 2 *DI ST  > I*  * 2 

SEASON 

= 

< NDA  Y - SOLS  > / DAYSPY 

SI GE < 1 ; 25 ) = 

999999 . 9999 
DO  30  L-1  . NLA YP 1 

SIGE  <L> 

= 

FLOAT< L- 1) /NLAY 

CONTINUE 

TSTD 

a 

280.0000 

PLEVS  t 1 ; 25 ) = 

999999. 99gg 

HE  A TW 

= 

597.2000 

HEAT! 

a 

680.0000 

EPS 

a 

0 . 6220 

CA  L TO J 

a 

4 186 . 0000 

EPSFAC 

= 

EPS  * HEATW  / RGAS  * CALTOd 

P2ERO 

= 

1013. 2500 
DO  31  K*92,200 

RC<  K) 

“ 

999999 . 9999 
CONTINUE 

r DEFAULT 

VALUES  FOR  XORDS  AND  XORDU 

VDEFALT21S 

VDEFALT21G 

VDEFALT217 

VDEFALT218 

VDEFALT2 19 

VDEF  ALT220 

VDEFALT22 1 

VDEFALT222 

VDEFALT223 

VDEFALT224 

VDEF ALT225 

VDEFALT226 

VDEFA1.T227 

VDEFALT228 

VDEF  ALT229 

VDEF ALT230 

VDEFALT231 

VPEFALT232 

VDEFALT233 

VDEFALT234 

VDEF  ALT  235 

VDEFALT236 

VDEFALT237 

VDEF  ALT238 

VDEFALT239 

VDEFALT240 

VDEFALT241 

VDEF  ALT242 

VDEFALT243 

VDEFALT244 

VDEF  A L T245 

VDEF  A LT246 

VDEFALT247 

VDEF  AL  T 248 

VDEFALT249 

VDEFALT250 

VDEFALT251 

VDEFALTZ52 

VDEF  ALT253 

VDEFALT254 

VDEF  ALT255 

VCEFALT256 

VDEF  ALT257 

VDEFALT258 

VDEF ALT259 

VDEF AL  T 260 

VDEF  ALT  26 1 

VDEF  ALT2G2 

VDEFALT263 

VDEF  ALT264 

VDEFALT265 

VDEF  ALT266 

VDEFALT267 

VDEF  ALT268 

VDEFALT269 

VDEFALT270 

VDEFALT27 1 

VDEFA  LT272 

VDSFALT273 

VDEFALT274 

VDEFALT275 

VDEFALT276 

VDEF  ALT277 

VDEFALT273 

VDEFALT279 

VDEF  ALT280 

VDEFALT281 

VDEF  ALT282 

VDEF ALT283 

VDEFALT284 

VDEFALT285 


ORIGINAL  ra 
OF  POOR  QUAUTV 


c 


00494 

DO  40  K= 1 . 24 

00495 

XORDSIK) 

YORDS ( K ) 

00496 

40 

CONTINUE 

00497 

DO  42  K*1 ,15 

00498 

XORDU  < K > 

=; 

YOROU1 K ) 

00499 

42 

CONTINUE 

C 

SET  DEFAULT 

VALUES  FOR  SMTH 

00500 

DNORM 

= 

2.0  * JM  / IM 

00501 

DO  60  1 = 1 , IMD2 

00502 

SMTH< I . 1 

) 

= 1 . 

00503 

SMTH ( I t JNP ) 

= 1 , 

00504 

DATA  1 I ) 

18. 'SIN< I ♦DLON ) 

00505 

60 

CONTINUE 

00506 

D 

= 

-0.5  ♦ PI 

00507 

DO  70  J = 2 ( «JM 

00508 

D 

= 

D +■  DLAT 

00509 

COSo 

= 

COSfD) 

00510 

DO  70  1=1, IMD2 

0051  1 

SMTH  U.di 

AMIN 1 t COS J /DATA 

005  1 2 

70 

CONTINUE 

005  13 

u 

R E T U R 

N 

005  14 

END 

= = = = VDEFALT286 

VDEFALT287 
VDEFALTZ88 
VDEFALT289 
VDEF  ALT290 
VDEFALT29  1 
VDEFALT292 
VDEFALT293 
VDEFALT294 
VOEFA  LT295 
VDEF  ALT296 
VDEF ALT297 
VDEFALT29S 
VDEFALT299 

5 IN  f I 'DLON ♦ 2 . ) > /<S. -DNORM)  VDEF ALT300 

VDEFALT30 1 
VDEFALT302 
VDEFA.  T303 
VDE  F A L T3CM 
VDEF ALT30S 
VDEF ALT306 

,1.0)  VDEF  ALT307 

VDEF ALT308 
VDEFALT309 
VDEF  ALT3 1 0 
VDEFALT31 1 


I-* 

O 


statement  label  map 

--LABEL DEFINED--  REFERENCES 


10 

305 

10000 

294 

1 1 

309 

12 

324 

13 

33  1 

17 

356 

18 

387 

19 

402 

21 

409 

22 

423 

23 

438 

24 

445 

30 

482 

31 

493 

40 

496 

42 

499 

60 

505 

70 

512 

30  A 

307 

322 

329 

354 

385 

400 

407 

421 

436 

443 

400 

491 

494 

497 

501 

507  510 


VARIABLE  MAP 


NAME 

BLOCK 

•--TYPE 

--CLASS 

--REFERENCES 

A 

ADATE 

CCNTRL 

CHAR'S 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

2 1 7 

ALBEDO 

QANDOT 

REAL 

ARRAY 

260 

273 

APHEL 

RCNTRL 

REAL 

SIMPLE 

157 

447/S 

ATIME 

CCNTRL 

CHAR'S 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

1 58 

44B/S 

CAL  TO J 

RCNTRL 

REAL 

SIMPLE 

196 

488  /S 

CARD 

/ / 

CHARTS 

ARRAY 

288 

289 

CATA 

// 

REAL 

ARRAY 

2B8 

CC 

CCNTRL 

CHAR'S 

ARRAY 

1 4 

15 

CCO 

CCNTRL 

CHAR  * B 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

CCSP06 

CCNTRL 

CHAR '8 

SIMPLE 

1 J 

7 

20 

CCSP07 

CCNTRL 

CHAR'S 

SIMPLE 

8 

2 1 

CCSP08 

CCNTRL 

CHAR  * 8 

SIMPLE 

9 

22 

CONI 

RDPA  RM 

REAL 

SIMPLE 

2 18 

CONI DT 

RDPARM 

REAL 

SIMPLE 

219 

C0N2 

RDPARM 

REAL 

SIMPLE 

220 

ARGLIST,  C=CTRL  OF  DO.  I =D  AT  A JNIT,  R - READ , S=ST0RF . W=WRITE 
296/S 


459 
297 /S 

489 


330/S 

15  295'5 

4 5 6 7 8 9 10  1 1 

300/S 
30  1 /S 
302 /S 


12 
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C0N2DT 

COM3 

C0N3DT 

C0N4 

C0N4DT 

CONS 

CORDER 

COSD 

COSJ 

COSL 

COSLON 

CP 

CPD2 

CQS 


CQU 

D 

DATA 

DAYSPY 

DEC 

DECMA X 

DEFALT 

DIST 

DLAT 

DLON 

DNORM 

DSIG 

DSIGINV 

DT 

DXP 

DXYP 

DYP 

ECCN 

EPS 

EPSFAC 

F 1 DT 

F2DT 

FCORLS 

FILTER 

GNU  1 

GNU2 

GRAV 

GT 

GW 

H IDT 

H2DT 

HEATI 

HEATW 

I 

I BLKSI Z 

IC 

ICO 

ICNTRL 


ICSPS3 

ICSP55 

IDIABAT 

IDPARM 

I DSP 02 

IEFLUX 

I F US ION 

IHFLUX 

I ICLOUD 

I JUMP 

IM 

IMD2 
1MD2P  1 


RDPARM 

ROPARM 

RDPARM 

RDPARM 

ROPARM 

ROPARM 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

CCNTRL 


CCNTRL 

// 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 
RDPARM 
RCNTRL 
RDPARM 
RDPARM 
RDPARM 
RCNTRL 
RCNTRL 
RCNTRL 
RDPARM 
RDPARM 
RDPARM 
L DP ARM 
RCNTRL 
RCNTRL 
RCNTRL 
QANDQT 
QANDQT 
RDPARM 
RDPARM 
RCNTRL 
RCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


ICNTRL 

ICNTRL 

I DP ARM 
ICNTRL 
ICNTRL 
ICNTRL 
ICNTRL 
IDPARM 
ICNTRL 
ICNTRL 
ICNTRL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

CHARTS 


CHAR  *8 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


SIMPLE 

221 

SIMPLE 

222 

SIMPLE 

223 

SIMPLE 

224 

SIMPLE 

225 

SIMPLE 

226 

UNKNOWN 

253 

255 

SIMPLE 

159 

457/S 

SIMPLE 

509/S 

5 1 1 

ARRAY 

227 

ARRAY 

228 

SIMPLE 

160 

449/S 

SIMPLE 

229 

ARRAY 

12 

25 

318/S 

319/S 

ARRAY 

13 

26 

SIMPLE 

50G/S 

508/S 

ARRAY 

288 

504/S 

SIMPLE 

16  1 

450/S 

SIMPLE 

162 

456/S 

SIMPLE 

163 

454/5 

SUBROUTINE 

1 

SIMPLE 

164 

459/S 

SIMPLE 

165 

460/S 

SIMPLE 

166 

461/S 

SIMPLE 

SOO/S 

504 

ARRAY 

250 

ARRAY 

252 

SIMPLE 

167 

4G2/S 

ARRAY 

230 

ARRAY 

231 

ARRAY 

232 

SIMPLE 

168 

463/S 

SIMPLE 

194 

487/S 

SIMPLE 

195 

489/S 

SIMPLE 

234 

SIMPLE 

235 

AFiRAY 

233 

ARRAY 

2 1 1 

214 

SIMPLE 

169 

464  /S 

SIMPLE 

170 

465/5 

SIMPLE 

171 

466/S 

ARRAY 

261 

274 

ARRAY 

262 

275 

SIMPLE 

236 

SIMPLE 

237 

SIMPLE 

193 

486/S 

SIMPLE 

192 

485 /S 

SIMPLE 

50T/C 

502 

SIMPLE 

70 

ARRAY 

95 

96 

SIMPLE 

27 

95 

UNKNOWN 

27 

28 

38 

39 

49 

50 

60 

61 

71 

72 

SIMPLE 

68 

37G/S 

SIMPLE 

378/S 

SIMPLE 

92 

404/S 

UNKNOWN 

200 

20  1 

SIMPLE 

201 

SIMPLE 

84 

393/S 

SIMPLE 

85 

394/S 

SIMPLE 

83 

392/S 

SIMPLE 

88 

397/S 

ARRAY 

200 

SIMPLE 

28 

333/S 

SIMPLE 

29 

334/S 

SIMPLE 

30 

335/S 

476 


308/S 

310/S 

31  1/S 

312/S 

313/S 

314/S 

315  'S 

316/S 

317 

320/  S 
323/S 
508 
51  1 

456 

457 

321  'S 
325 /S 
509 

459 

458 

326/S 

478 

327/S 

328/S 

456 

477 

508 

504  504 


477 

489 


489 


503 

504 

504 

504 

510/C 

5 1 1 

5 1 1 

408/S 

96 

332/S 

29 

30 

31 

32 

33 

34 

35 

36 

37 

40 

4 1 

42 

43 

44 

45 

46 

47 

48 

5 1 

52 

53 

54 

55 

56 

57 

58 

59 

62 

63 

64 

65 

66 

67 

68 

69 

70 

73 

74 

75 

76 

77 

78 

202 

203 

204 

205 

206 

207 

208 

209 

210 

333  334  367  461  500 

335  501  510 


jcawcrc:**  ■ 


DEFALT  11 


1 

I 


INDEX 

IDPARM 

IOMEGA 

ICNTRL 

IPREACC 

ICNTRL 

IPRECON 

ICNTRL 

IQS 

ICNTRL 

IQSDIAG 

QANDQT 

IQU 

ICNTRL 

IRADLW 

ICNTRL 

IRAOLWG 

ICNTRL 

IRADSW 

ICNTRL 

IRADSWG 

icntrl 

I ROD 

IDPARM 

I TAPE 

L DP ARM 

ITMAX 

ICNTRL 

ITMIN 

ICNTRL 

IUFLUX 

ICNTRL 

I VP  LUX 

ICNTRL 

d 

JC 

IDPARM 

JE 

IDPARM 

JIC 

CCNTRL 

dM 

ICNTRL 

JMD2 

ICNTRL 

dMT2 

ICNTRL 

JNP 

ICNTRL 

d04 

ICNTRL 

job 

ICNTRL 

dOB 

CCNTRL 

dp 

IDPARM 

JSP 

icntrl 

K 


klialb  icntrl 

KLIGW  ICNTRL 
KLISST  ICNTRL 
KS  ICNTRL 
KSTEP  I DP ARM 
KU  ICNTRL 

*-C  • LCNTRL 
LCO  LCNTRL 
LCNTRL 


LDIABAT 

LDPARM 

LCNTRL 

LEFLUX 

LCNTRL 

LFUSION 

LCNTRL 

LHFLUX 

LCNTRL 

LICLOUD 

LCNTRL 

LOGSR 

ICNTRL 

LOMEGA 

LCNTRL 

LPREACC 

LCNTRL 

LPRECON 

LCNTRL 

LQS 

LCNTRL 

LQU 

LCNTRL 

LRADLW 

LCNTRL 

LRADLWG 

LCNTRL 

LRADSW 

LCNTRL 

LRADSWG 

LCNTRL 

LTMAX 

LCNTRL 

LTMIN 

LCNTRL 

LUFLUX 

LCNTRL 

LVFLUX 

LCNTRL 

MATIN 

ICNTRL 

MATSNX 

ICNTRL 

MATSUN 

ICNTRL 

INTEGER  ARRAY 
INTEGER  SIMPLE 
INTEGER  SIMPLE 

INTEGER  SIMPLE 
INTEGER  ARRAY 

INTEGER  ARRAY 
INTEGER  ARRAY 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
LOGICAL  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  ARRAY 
INTEGER  ARRAY 
CHARTS  SIMPLE 

INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
CHAR'S  SIMPLE 

INTEGER  ARRAY 
INTEGER  SIMPLE 
INTEGER  SIMPLE 


INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
LOGICAL  ARRAY 
LOGICAL  SIMPLE 
INTEGER  UNKNOWN 

LOGICAL  SIMPLE 
INTEGER  UNKNOWN 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
INTEGER  SIMPLE 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
LOGICAL  ARRAY 

LOGICAL  ARRAY 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 

LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
LOGICAL  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 


202 

9 1 

403/S 

St 

390/S 

S2 

391/S 

77 

79 

89 

90 

285 

286 

78 

91 

94 

406/S 

B7 

395  'S 

93 

405/S 

86 

395 /S 

203 

2 t 2 

2 15 

BO 

3B9/S 

79 

388/S 

89 

398/S 

90 

399/S 

507/C 

511 

204 

205 


5 

18 

298/S 

32 

337/S 

337 

33 

338/S 

34 

339/S 

35 

340/S 

503 

36 

341/S 

37 

342/S 

6 

19 

298 

206 

38 

343/S 

304/C 

305 

307/C 

422 

436/C 

437 

498 

498 

39 

344/5 

40 

345/5 

4 1 

3*6  /S 

42 

347/S 

207 

43 

348/S 

480/ C 

48  1 

481 

154 

155 

444/S 

97 

154 

155 

97 

98 

99 

108 

109 

123 

151 

440/S 

2 1 1 

2 1 2 

213 

1 15 

143 

429/S 

1 16 

144 

430/S 

1 14 

142 

428/S 

1 19 

147 

433/S 

44 

349/S 

349 

122 

150 

439/S 

1 12 

140 

426/S 

1 13 

14  1 

427/S 

108 

1 10 

1 1 1 

120 

121 

136 

109 

122 

123 

125 

153 

442/S 

I 18 

146 

432/S 

124 

152 

441/S 

1 17 

145 

431/S 

1 f 1 

139 

425/S 

1 10 

138 

424/S 

120 

148 

434  /S 

121 

149 

435/S 

45 

350/S 

46 

351/S 

47 

3S2/S 

83  84 


299/S 


3°®  3Z2/C  323  3Z9/C  330  407/ 

<143/c  444  491/C  492  494/C  495 


4 tO/S 
100 


437/S 
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MJ 

I DP ARM 

INTEGER 

ARRAY 

208 

MLF 

ICNTRL 

INTEGER 

ARRAY 

48 

353/S 

355/S 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

49 

3S7/S 

P/ISM 

ICNTRL 

INTEGER 

SIMPLE 

51 

359  /S 

N 

INTEGER 

SIMPLE 

354/C 

355 

385/C 

386 

NB 

ICNTRL 

INTEGER 

SIMPLE 

52 

360/S 

360 

470 

PJD 

ICNTRL 

INTEGER 

SIMPLE 

53 

361/S 

361 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

54 

362/S 

NOAY 

ICNTRL 

INTEGER 

SIMPLE 

55 

363/S 

456 

459 

NOHOG 

ICNTRL 

INTEGER 

SIPAPLE 

76 

384/S 

NOOUT 

ICNTRL 

INTEGER 

SIMPLE 

56 

364/S 

NDFHY 

ICNTRL 

INTEGER 

SIMPLE 

57 

365/S 

NORSW 

ICNTRL 

INTEGER 

SIMPLE 

31 

336/S 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

58 

36G/S 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

59 

367/S 

462 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

60 

368  /S 

368 

369 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

62 

370/S 

NHMS1 

I DP  ARP/) 

INTEGER 

SIMPLE 

209 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

61 

369/S 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

SO 

358/S 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

63 

371/S 

37  1 

372 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

64 

372/S 

NLA YP 1 

ICNTRL 

INTEGER 

SIMPLE 

65 

373/S 

480 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

75 

383/S 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

66 

374/S 

413 

N5E0 

ICNTRL 

INTEGER 

SIPAPLE 

67 

375/S 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

69 

377/S 

NYMO 

ICNTRL 

INTEGER 

SIMPLE 

71 

363 

379/  S 

379 

NYW1D0 

ICNTRL 

INTEGER 

SIMPLE 

73 

381  /S 

NYMD  t 

IDPARM 

INTEGER 

SIMPLE 

210 

NYPADE 

ICNTRL 

INTEGER 

SIPAPLE 

72 

380/S 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

74 

382/  S 

0MEGA2 

RCNTRL 

REAL 

SIMPLE 

172 

468/S 

P 

QANDOT 

REAL 

ARRAY 

265 

278 

PHI 

QANDOT 

REAL 

ARRAY 

270 

2£3 

PHIS 

QANDOT 

REAL 

ARRAY 

258 

271 

PI 

RCNTRL 

REAL 

SIMPLE 

173 

451/S 

452 

453 

PI  180 

RCNTRL 

REAL 

SIMPLE 

174 

453/S 

454 

P 1 2 

RCNTRL 

REAL 

SIMPLE 

175 

452/S 

456 

461 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

177 

470/S 

PKSTD 

RDPARM 

REAL 

SIMPLE 

238 

PKTOP 

RDPARM 

REAL 

SIMPLE 

239 

PLEVS 

RCNTRL 

REAL 

ARRAY 

191 

484/S 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

178 

471/S 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

179 

472/S 

PSTD 

RCNTRL 

REAL 

SIPAPLE 

176 

469/S 

PTOP 

RCNTRL 

REAL 

SIMPLE 

180 

473/S 

473 

PZERO 

RCNTRL 

REAL 

SIMPLE 

197 

490/5 

QALT 

LCNTRL 

LOGICAL 

SITAPLE 

S3 

126 

411/5 

QANDOT 

REAL 

UNKNOWN 

257 

284 

287 

OB  EG 

LCNTRL 

LOGICAL 

SIPAPLE 

99 

127 

412/S 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

100 

128 

413/S 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

101 

129 

414/S 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

102 

130 

415/S 

OPHY 

LCNTRL 

LOGICAL 

SIMPLE 

103 

131 

416/S 

OPROG 

QANDOT 

REAL 

ARRAY 

257 

271 

272 

273 

281 

282 

283 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

107 

135 

420/S 

QR5W 

LCNTRL 

LOGICAL 

SIMPLE 

106 

134 

419/S 

QSDIAG 

QANDOT 

REAL 

ARRAY 

284 

206 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

104 

132 

417/S 

QUO I AG 

QANDOT 

REAL 

ARRAY 

287 

RAOE 

RCNTRL 

REAL 

SIMPLE 

181 

474/S 

RC 

RCNTRL 

REAL 

ARRAY 

198 

199 

492/S 

RCO 

RCNTRL 

REAL 

SIMPLE 

156 

198 

199 

446/S 

RCNTRL 

REAL 

UNKNOWN 

156 

157 

158 

159 

167 

168 

169 

170 

178 

179 

180 

181 

189 

190 

191 

192 

RDPARM 

REAL 

UNKNOWN 

217 

218 

219 

220 

400/C  4 0 t 


473 


370  374 


373  481 


380  381 


274 


275 


276 


277 


278 


279 


280 


160 
171 
1B2 
193 
22  1 


161 

172 

183 

194 

222 


162 

173 

184 

195 

223 


163 

174 

185 

196 

224 


164 

175 

186 

197 

225 


165 

176 

187 

226 


166 

177 

18B 

227  § 
> 
r* 


CO 


Miwno  aood  do 

M TONE9RJQ 


23  1 
242 


RGAS 

RLAT 

RLATD 

ROCP 

ROCPDT 

R0CPP1 

RSDIST 

SDA  V 

SEASON 

SGMP 

SH 

SHS 

S1G 

SIGE 

SIND 

SI  NL 

SINLON 

SMTH 

SN2FLG 

SOUS 

START 

T 

THSTD 

THSTD2 

TS 

TSTD 

U 

V 

VER 

V/  SAVE 

XLABEL 

XORDS 

XORDU 

XSA 

XUA 

VORDS 

YORDU 

PROCEDURE 

- -NAME 

ACOS 

AM  INI* 

COS 

FLOAT 

MODHMS 

MODYMD 

PMEAN 

SIN 


RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

QANOQT 

QANDQT 

RDPARM 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

OANDQT 

LCNTRL 

RCNTRL 

LDP ARM 

QANDQT 

RDPARM 

RDPARM 

OANDQT 

RCNTRL 

OANDQT 

OANDQT 

CCNTRL 

RDPARM 

CCNTRL 

CORDER 

CORDER 

CORDER 

CORDER 


MAP 

TYPE 

REAL 

REAL 

REAL 

REAL 

INTEGER 

INTEGER 

REAL 

REAL 


REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SJMPl E 

REAL 

array 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

array 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

LOGICAL 

SIMPLE 

REAL 

SIMPLE 

LOGICAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

real 

SIMPLE 

real 

ARRAY 

REAL 

SIMPLE 

REAL 

array 

REAL 

array 

CHAR-B 

SIMPLE 

REAL 

ARRAY 

CHAR-8 

ARRAY 

CHAR-8 

array 

CHAR-8 

ARRAY 

CHAR-8 

array 

CHAR-8 

array 

CHAR-8 

array 

CHAR-8 

ARRAY 

228 

229 

230 

239 

240 

24  1 

250 

251 

252 

182 

475/S 

476 

240 

241 
183 

476/S 

242 

243 
184 

477/s 

185 

467/S 

468 

186 

478/S 

244 

269 

282 

264 

277 

251 

187 

479/S 

48  1 /S 

188 

458/S 

245 

246 
2*59 

272 

502/S 

105 

133 

4 18/S 

189 

455/S 

456 

213 

216 

268 

281 

247 

248 
263 

276 

190 

483/S 

266 

279 

267 

280 

10 

23 

303/S 

249 
1 1 

24 

305/S 

252 

254 

495/S 

253 

254 

498/S 

255 

256 

255 

256 

290 

291/1 

495 

292 

293/1 

498 

489 


503  / S 
478 


232 

Z<3 


5 t t/S 


•CLASS 

intrinsic 

INTRINSIC 

INTRINSIC 

INTRINSIC 

FUNCTION 

FUNCTION 

FUNCTION 

INTRINSIC 


REFERENCES  * D=STMT  FN  DEF,  A=ARGL 1ST 


451 
61  I 
456 
481 
374 
363 
470 
458 


457  477  509 


504  504 


233 

244 


234 

245 


235 

246 


236  237 

247  248 


> 

(T* 

238  1-3 
249  W 
-C> 


ORIGINAL  Pmt  li 
OF  POOR  QUALITY 


00001 


00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 
0001  1 
00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 
00026 
00026 


PURPOSES 

1)  ADJUST  THE  VARIABLES  IN  /CCNTRL/ f / ICNTRL/ , /LCNTRL/  AND 
/RCNTRL/  TO  REFLECT  CHANGES  REQUESTED  VIA  NAMELIST  &INPUTZ. 

2)  COMPUTE  PARAMETERS  AND  CONSTANTS  WHICH  CAN  BE  DERIVED  FROM 
THE  VARIABLES  IN  THE  CONTROL  COMMON  BLOCKS.  BLOCKS  /IMdM/ 

/ I FAX/ » /IDPARM/ , /LDPARM/,  /RDPARM/ , /IFAX/  AND  /BITCM1 / 

ARE  INITIALIZED  BY  THIS  ROUTINE.  THE  ARRAY  OF  FOURIER  DAMPING 
FACTORS  fSMTH  IN  /QANDQT/ ) IS  ALSO  FORCED  TO  HAVE  NORTH-SOUTH 
SYMMETRY  8Y  THIS  ROUTINE . 

USAGE 

CALLEO  BY  SUBROUTINE  INPUT  AFTER  READING  NAMELIST  SINPUTZ 

INPUT/OUTPUT  FILES  USED 
NONE 

DESCRIPTION  OF  PARAMETERS 
NO  ARGUMENTS 

SUBPROGRAMS  NEEDED 

SETF I L » SI N , COS ,EXPBYK,  COTAN 


Q************************************* 

c 

C SUBROUTINE  DEPEND 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

Q********************************************************************** 

C*  M/A-COM  SIGMA  DATA  INC.  NASA  - GSFC 
q********************************************************************** 

c 

SUBROUTINE  DEPEND 
C 

£**********************************************  * ***♦ ********** *** ****** 
c 
c 

C CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON" /CCNTRL/ ~CCO~~ 

COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  JIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  (10) 

COMMON  /CCNTRL/  CQS  (30) 

COMMON  /CCNTRL/  CQU  (10) 


RECORD  OF  MODIFICATIONS 
7DATE7  7PROG^AMMER? 
09JUN83  JIM  PF 
21JUL83  d IM ♦ PF 


7DESCR I PTION  OF  -MODIFICATIONS? 
RE-ORGANIZATION  OF  CONSTANT  INITIALIZATION 
ADDING  CHOICE  OF  DIAGNOSTICS 


C 

C 

c 


EQUIVALENCE 

CHARACTERS 

CHARACTER'S 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTERS 

CHARACTERS 


(cco.ccd)) 

CCO,  CC ( 200  > 

ADATE 

ATIME 

JIC 

JOB 

CCSP06 

CCSP07 

CCSPOB 

VER 

XLABEL 

CQS 

CQU 


INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


VDEPEND 
VOEPEND 
VDEPEND 
VDEPEND 
VDEPEND 
VDEPEND 
VDEPEND 
VDEPEND 
VDEPEND  10 
VDEPEND  11 
VDEPEND  12 
VDEPEND  13 
VOEPEND  14 
VDEPEND  15 
VOEPEND  16 
VDEPEND  17 
VDEPEND  IE 
VDEPEND  19 
VDEPEND  20 
VDEPEND  21 
VDEPEND  22 
VDEPEND  23 
VDEPEND  24 
VDEPEND  25 
VDEPEND  26 
VDEPEND  27 
VDEPEND  2B 
VDEPEND  29 
VDEPEND  30 
VDEPEND  31 
VDEPEND  32 
♦VDEPEND  33 
♦VDEPEND  34 
VDEPEND  35 
VDEPEND  36 
VDEPEND  37 
VDEPEND  3B 
♦VDEPEND  39 
VDEPEND  40 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 


2 

3 

4 

5 

6 
7 
B 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 


o 

pi 

►x) 

pi 

s; 

o 


ORIGINAL  PAQE  fi 
OF  POOR  QUALITY 


' TT 


.1  V'll/'U. 


. •* 


00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 
00067 
000G8 
00089 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
00081 
00082 

00083 

00084 

00085 

00086 
00087 
0OO8S 

00089 

00090 

00091 

00092 

00093 

00094 


COMMON  /ICNTRL/  ICO 
COMMON  /ICNTRL/  IM 
COMMON  /ICNTRL/  IMD2 
COMMON  /ICNTRL/  IMD2P1 
COMMON  /ICNTRL/  NDRSW 
COMMON  /ICNTRL/  dM 
COMMON  /ICNTRL/  «JMD2 
COMMON  /ICNTRL/  dMT2 
COMMON  /ICNTRL/  dNP 
COMMON  /ICNTRL/  dQ4 
COMMON  /ICNTRL/  d08 
COMMON  /ICNTRL/  JSP 
COMMON  /ICN  ~*L/  KHALB 
COMMON  /ICNTRL/  KLIGW 
COMMON  /ICNTRL/  KLISST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KU 
COMMON  /ICNTRL/  LOCBR 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MATSUN 
COMMON  /ICNTRL/  NILF  <12) 
COMMON  /ICNTRL/  MROD 
COMMON  /ICNTRL/  NKRSH 
COMMON  /ICNTRL/  MSM 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  ND 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDAY 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NOT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHMSE 
COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLA Y 
COMMON  /ICNTRL/  NLAVM1 
COMMON  /ICNTRL/  NLA YP 1 
COMMON  /ICNTRL/  NSDAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  IC5P55 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINIT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDHOG 
COMMON  /ICNTRL/  IQS  (30) 
COMMON  /ICNTRL/  IQU  (10) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(ITMIN  * IQS ( 1>) 
( ITMAX  ,IQS<  2)) 
(IPREACC  , I QS{  3)) 
(IPRECON  t I QS<  4)) 
(INFLUX  i I QS ( 5 } ) 
(IEFLUX  , I QS ( 6 ) ) 
( I FUSION  , IQS ( 7)) 
(IRADSWG  » IQS ( 8)) 
(IRADLWG  , IQ5(  9)) 
( I ICLOUD  (IQ5MO>) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(IOMEGA  t I QU ( l)> 
(IDIABAT  ,IQU(  2)) 
URADSW  ,IQU<  3)) 
(IRAOLW  , I QU ( 4)) 


EQUIVALENCE 

INTEGER 


<IC0,IC(1) ) 
ICO,  ICC  200 ) 


VCNTRL 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

38 

VCNTRL 

39 

VCNTRL 

40 

VCNTRL 

41 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

46 

VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

51 

VCNTRL 

52 

VCNTRL 

S3 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

VCNTRL 

58 

VCNTRL 

59 

VCNTRL 

60 

VCNTRL 

61 

o o 

50 

VCNTRL 

62 

VCNTRL 

63 

VCNTRL 

64 

3 - 

VCNTRL 

65 

VCNTRL 

66 

VCNTRL 

67 

O 3a 

VCNTRL 

68 

S3  r" 

VCNTRL 

69 

«o 

VCNTRL 

70 

VCNTRL 

71 

c g 

VCNTRL 

72 

VCNTRL 

73 

£ FE 

VCNTRL 

VCNTRL 

74 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRL 

79 

VCNTRL 

80 

VCNTRL 

81 

VCNTRL 

82 

VCNTRL 

83 

VCNTRL 

84 

VCNTRL 

85 

VCNTRL 

86 

VCNTRL 

87 

VCNTRL 

Q8 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

91 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

98 

VCNTRL 

99 

VCNTRL 

100 

VCNTRL 

101 

VCNTRL 

102 

VCNTRL 

103 

VCNTRL 

104 

DEPEND  2 


C LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

00095  COMMON  / LCNTRL/ ~LCO 

00096  COMMON  /LCNTRL/  QALT 

00097  COMMON  /LCNTRL/  QBEG 

00098  COMMON  /LCNTRL/  QDAY 

00099  COMMON  /LCNTRL/  OEND 

00  too  COMMON  /LCNTRL/  QOUT 

00  tot  COMMON  /LCNTRL/  QPHY 

00102  COMMON  /LCNTRL/  QSHF 

00103  COMMON  /LCNTRL/  SN2FLG 

00104  COMMON  /LCNTRL/  QRSW 

00105  COMMON  /LCNTRL/  QRSH 

00106  COMMON  /LCNTRL/  LQS<30> 

00 107  COMMON  /LCNTRL/  LQUMO) 


00108 
00  109 
00110 
001  it 
00  1 12 
00113 
001  14 
001  15 
001  16 
001  17 

00118 

00119 

00120 
00121 

00122 

00123 

00124 
00126 
00126 
00127 
00  128 
00  129 

00130 

00131 

00132 

00133 

00134 

00135 
00  136 

00137 

00138 

00139 

00140 

00141 

00142 

00143 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


(LTMIN 

(LTMAX 

< LPREACC 
{ LPRECON 
UHFLUX 
(LEFLUX 

< LFUSION 
(LRADSWG 
< LRADLWG 
(LICLOUD 

(LOMEGA 

(LDIABAT 

(LRADSW 

(LRADLW 

QALT 

Q6EG 

QDAY 

QEND 

QOUT 

QPHY 

QSHF 

SN2FLG 

QRSW 

QRSH 

LQS 

LQU 

LTMIN 

LTMAX 

LPREACC 

LPRECON 

LHFLUX 

LEFLUX 

LFUklON 

LRADSWG 

LRADLWG 

LICLOUD 


i LQS ( 1>> 
, LQS(  2)) 
.LQS<  3 > ) 
,LQS(  4)) 
, LQS ( 5)) 
, LQS ( 6)) 
• LQS  < 7)) 
,LQS<  8)) 
, LQS ( 9)) 
, LQS ( 10) ) 

i LQU 1 1)) 
♦ LQU ( 2)) 
.LQU<  3) ) 
• LQU<  4 ) > 


00144 

00146 

00146 

00147 


LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


LOMEGA 

LDIABAT 

LRADSW 

LRADLW 


00148 

00149 


00150 

00151 

00152 

00153 


EQUIVALENCE 

LOGICAL 


(LCO.LCt 1 ) ) 
LCO . LC ( 200 ) 


REAL  MODEL  PARAMETERS  SAVEO  ON  HISTORY  RECORD 

COMMON  /RCNTRL / ~RC0  ~ ~ ” 

COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSD 


VCNTRL 

105 

VCNTRL 

106 

VCNTRL 

107 

VCNTRL 

108 

VCNTRL 

109 

VCNTRL 

1 10 

VCNTRL 

1 1 1 

VCNTRL 

1 12 

VCNTRL 

1 13 

VCNTRL 

1 14 

VCNTRL 

1 15 

VCNTRL 

1 16 

VCNTRL 

1 17 

VCNTRL 

1 18 

VCNTRL 

1 19 

VCNTRL 

120 

VCNTRL 

121 

VCNTRL 

122 

VCNTRL 

123 

VCNTRL 

124 

VCNTRL 

125 

VCNTRL 

126 

VCNTRL 

127 

VCNTRL 

128 

VCNTRL 

129 

VCNTRL 

130 

VCNTRL 

131 

VCNTRL 

132 

VCNTRL 

133 

VCNTRL 

134 

VCNTRL 

135 

VCNTRL 

136 

VCNTRL 

137 

VCNTRL 

138 

9 o 

VCNTRL 

139 

VCNTRL 

140 

VCNTRL 

141 

VCNTRL 

142 

O 5^ 

gf 

VCNTRL 

143 

VCNTRL 

144 

VCNTRL 

145 

VCNTRL 

146 

fO  "^3 

c:  * i 

VCNTRL 

147 

VCNTRL 

148 

VCNTRL 

149 

VCNTRL 

150 

VCNTRL 

151 

VCNTRL 

152 

VCNTRL 

153 

VCNTRL 

154 

VCNTRL 

155 

VCNTRL 

156 

VCNTRL 

157 

VCNTRL 

158 

VCNTRL 

159 

VCNTRL 

160 

VCNTRL 

161 

VCNTRL 

162 

VCNTRL 

163 

VCNTRL 

164 

VCNTRL 

165 

VCNTRL 

TBS 

VCNTRL 

167 

VCNTRL 

168 

VCNTRL 

169 

VCNTRL 

170 

VCNTRL 

171 

VCNTRL 

172 

VCNTRL 

173 

VCMTRL 

t74 

VCNTRL 

175 

DEPEND  3 


il 


l 


00154 

COMMON 

/RCNTRL/ 

CP 

00155 

COMMON 

/RCNTRL/ 

DAYSPY 

00156 

COMMON 

/RCNTRL/ 

DEC 

00157 

COMMON 

/RCNTRL/ 

DECMAX 

00158 

COMMON 

/RCNTRL/ 

DIST 

00159 

COMMON 

/RCNTRL/ 

DLAT 

00160 

COMMON 

/RCNTRL/ 

DLON 

00161 

COMMON 

/RCNTRL/ 

DT 

00162 

COMMON 

/RCNTRL/ 

ECCN 

00  * 63 

COMMON 

/RCNTRL/ 

GNU  1 

00164 

COMMON 

/RCNTRL/ 

GNU2 

00165 

COMMON 

/RCNTRL/ 

GRAV 

001SS 

COMMON 

/RCNTRL/ 

0MEGA2 

00167 

COMMON 

/RCNTRL/ 

PI 

00168 

COMMON 

/RCNTRL/ 

Pit  80 

00  169 

COMMON 

/RCNTRL/ 

P I 2 

00170 

COMMON 

/RCNTRL/ 

PSTD 

00171 

COMMON 

/RCNTRL/ 

PIMEAN 

00172 

COMMON 

/RCNTRL/ 

PSMAX 

00173 

COMMON 

/RCNTRL/ 

PSMIN 

00174 

COMMON 

/RCNTRL/ 

PTOP 

00175 

COMMON 

/RCNTRL/ 

RADE 

00176 

COMMON 

/RCNTRL/ 

RGAS 

00177 

COMMON 

/RCNTRL/ 

ROCP 

00178 

COMMON 

/RCNTRL/ 

RSDIST 

00179 

COMMON 

/RCNTRL/ 

SDAY 

00180 

COMMON 

/RCNTRL/ 

SEASON 

00181 

COMMON 

/RCNTRL/ 

SIGE 

(25) 

0Q 182 

COMMON 

/RCNTRL/ 

SIND 

00183 

COMMON 

/RCNTRL/ 

SOLS 

00184 

COMMON 

/RCNTRL/ 

TSTD 

00185 

COMMON 

/RCNTRu/ 

PLEVS 

(25) 

00186 

COMMON 

/RCNTRL/ 

HE  A TV/ 

00187 

COMMON 

/RCNTRL/ 

HEATI 

00  188 

COMMON 

/RCNTRL/ 

EPS 

00189 

COM?, ION 

/RCNTRL/ 

EPSFAC 

00  190 

COMMON 

/RCNTRL/ 

CALTOd 

00  191 

Q 

COMMON 

/RCNTRL/ 

PZERO 

00192 

EQUIVALENCE 

(RCO,RC( 1) ) 

00193 

c 

REAL 

RCO,  RC ( 200 ) 

c 

c 

INTEGER  MODEL  CONSTANTS 

00194 

COMMON 

/IDPARM/ 

I JUMP 

(46) 

00195 

COMMON 

/IDPARM/ 

IDSP02 

00196 

COMMON 

/ I DPARM/ 

INDEX 

(72) 

00197 

COMMON 

/IDPARM/ 

IROD 

00198 

COMMON 

/IDPARM/ 

JC 

(46) 

00199 

COMMON 

/IDPARM/ 

JE 

(2) 

00200 

COMMON 

/IDPARM/ 

dP 

(2,2) 

00201 

COMMON 

/IDPARM/ 

KSTEP 

00202 

COMMON 

/IDPARM/ 

MJ 

(46) 

00203 

COMMON 

/IDPARM/ 

NHMS1 

00204 

Q 

COMMON 

/IDPARM/ 

NYMD1 

C 

c 

LOGICAL  MODEL  CONSTANTS 

00205 

COMMON 

/LDPARM/ 

FILTER 

(46) 

00206 

COMMON 

/LDPARM/ 

ITAPE 

00207 

Q 

COMMON 

/LDPARM/ 

START 

00208 

LOGICAL 

FILTER 

00209 

LOGICAL 

ITAPE 

00210 

0 

LOGICAL 

START 

0 

REAL  MODEL 

CONSTANTS 

c 

•2 

0021  1 

COMMON 

/RDPARM/ 

ADLDP 

00212 

COMMON 

/RDPAHM/ 

CONI 

00213 

COMMON 

/RDPARM/ 

C0N1DT 

VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  130 
VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  189 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCNTRL  199 
VCNTRL  200 
VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 
VCNTRL  207 
VCNTRL  208 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
vC!r,RL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 


O 

PJ 

m 

22 

o 


•O 


ORIGINAL  PAGE  Si 
OF  POOR  QUALITY 


00214 

00215 

00216 
00217 
0021  B 

00219 

00220 
00221 
00222 

00223 

00224 

00225 

00226 

00227 

00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 

00241 

00242 

00243 

00244 

00245 

00246 


00247 

00248 

00249 

00250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 

00261 

00262 

00263 

00264 

00265 

00266 
00267 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/R^ARM/ 

/fifj*v>ARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 


CON  2 

CDN2DT 

C0N3 

CON 3D T 

C0N4 

C0N40T 

CONS 

COSL  (46) 
COSLON  (72) 
CPD2 

DXP  (46) 

DXYP  (46) 
DYP  (46) 

FCORLS  (46) 

F IDT 

F2DT 

H1DT 

H2DT 

PKSTD 

PKTOP 

RLAT  (46) 
RLATO  (46) 
ROCPOT 
R0CPP1 
SGNP  (2) 

51 NL  (46> 
SINLON  (72) 
THSTD 
THSTD2 
WSAVE  (159) 
DSIG  (9) 
SIG  (9) 
DSIGINV  (9) 


COMDECK  VQANDQT  RESOLUTION  VALUES 


IM  =72 

NLAY  =9 

JM+1  =46 

NLAY* 1 1 =99 

IM*NLAY* 1 1 =7128 

dM/2+1  =23 


GLOBAL  MODEL  PROGNOSTIC  F I ELDS_  <[  NEEDED^  I N_COMPO) 


COMMON 


/QANDQT/  QPR0G(72,9, 1 1 ,46) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PHIS  (7  128.1) 

SMTH  (7128,23) 

ALBEDO  (7128, 1 ) 

GT  (7128,1) 

GW  (7128,1) 

TS  (7128,1) 

SHS  (7128,1) 

P (72,99,1) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


U 

V 

T 

SH 

PHI 


<72,9,1 1.1) 

(72.9.1 1.1) 

(72.9.11.1) 

(72.9. 11.1) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( QPROG ( 1 
{ QPROG ( 1 
(QPROG< 1 
(QPROG< 1 
(QPROG< 1 
( QPROG( 1 
( QPROG ( 1 


1.1.1)  .PHIS  ( 1 , 1 > 

2. 1.1) , SMTH  (1,1)) 

3.1.1)  ,ALBEOO(1 , 1)> 


4. 1 

5.1 

6.1 


1)  ,GT 
1 ) , GW 
, 1 ) . TS 


7,1,1), SHS 


( 1 , 1>> 
(1.D) 
(1,U) 
(1,1)) 


VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VQANDQT  2 
VQANDQT  3 
VQANDQT  4 
VQANDQT  5 
VQANDQT  6 
VQANDQT  7 
VQANDQT  8 
VQANDQT  0 
VQANDQT  10 
VQANDQT  1 1 
VQANDQT  12 
VQANDQT  13 
VQANDQT  14 
VQANDQT  15 
VQANDQT  16 
VQANDQT  17 
VQANDQT  18 
VQANDQT  19 
VQANDQT  20 
VQANDQT  21 
VQANDQT  22 
VQANDQT  23 
VQANDQT  24 
VQANDQT  25 
VQANDQT  26 
VQANDQT  27 
VQANDQT  28 
VQANDQT  29 
VQANDQT  30 
VQANDQT  31 
VQANDQT  32 
VQANDQT  33 
VQANDQT  34 
VQANDQT  35 
VQANDQT  36 
VQANDQT  37 
VQANDQT  38 


a 

CO 

no 

CO 

2! 

O 


Ui 


ORIGINAL  pm g m 
OF  POOR  QUALITY 


00268 


00269 

00270 

00271 

00272 

00273 


00274 

00276 
00276 

00277 


00278 

00279 

00280 
00281 
00282 
00233 

00284 

00285 

00286 

00287 

00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 

00310 
0031  1 

00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320 


00321 


00322 


EQUIVALENCE 

(QPROGU,  8 , 1 , 1 ) , P 

(1 

, 1 

, D) 

VQANDQT 

39 

VQANDQT 

40 

EQUIVALENCE 

( QPROG (1,1,  2 , 1 ) , U 

(1.1, 

1 ) ) 

VQANDQT 

41 

EQUIVALENCE 

( QPROG ( 1 , 1 , 4, 1 ) tV 

(1,1, 

U) 

VQANDQT 

42 

EQUIVALENCE 

(QPROGU.  1,  G.D.T 

(1.1. 

1 ) ) 

VQANDQT 

43 

EQUIVALENCE 

( QPROG ( 1,1,  8,1), SH  (1,1, 

1 ) ) 

VQANDQT 

44 

EQUIVALENCE 

( QPROG  < 1,1,10.1), PHI <1,1, 

1 ) ) 

VQANDQT 

45 

VQANDQT 

46 

SPACE  FOR 

GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT 

NEEDED  IN 

COMPO) 

VQANDQT 

47 

VQANDQT 

48 

VQANDQT 

49 

COMMON 

/QANDQT/  QSDI AG (72 

. 15,46) 

VQANDQT 

50 

DIMENSION 

I QSDI AG ( 72 

15,46) 

VQANDQT 

51 

EQUIVALENCE 

( QSDI AG , I QSDI AG) 

VQANDQT 

52 

VQANDQT 

53 

COMMON 

/QANDQT/  QUD I AG (72 

,9,  5,46) 

VQANDQT 

54 

VQANDQT 

55 

A * 

VCNTRLP 

2 

PHYSICS  PARAMETERS 

ANO  CONSTANTS 

VCNTRLP 

3 

COMMON 

/CNTRLP / 

CDFR 

VCNTRLP 

4 

COMMON 

/CNTRLP / 

CDXL 

VCNTRLP 

5 

COMMON 

/CNTRLP/ 

CDXO 

VCNTRLP 

6 

COMMON 

/CNTRLP/ 

CLH 

VCNTRLP 

7 

COMMON 

/CNTRLP/ 

COE  ( 9 ) 

VCNTRLP 

8 

COMMON 

/CNTRLP/ 

COEF 

VCNTRLP 

9 

COMMON 

/CNTRLP/ 

COEFS 

VCNTRLP 

10 

COMMON 

/CNTRLP/ 

COSROT 

VCNTRLP 

1 1 

COMMON 

/CNTRLP/ 

CPP 

VCNTRLP 

12 

COMMON 

/CNTRLP/ 

CT£D 

VCNTRLP 

13 

COMMON 

/CNTRLP/ 

CUMDAY 

VCNTRLP 

14 

COMMON 

/CNTRLP/ 

CUMRAT 

VCNTRLP 

15 

COMMON 

/CNTRLP/ 

CIO 

VCNTRLP 

16 

COMMON 

/CNTRLP/ 

C100 

VCNTRLP 

17 

COMMON 

/CNTRLP/ 

C40 

VCNTRLP 

18 

COMMON 

/CNTRLP/ 

DELTA 

VCNTRLP 

19 

COMMON 

/CNTRLP/ 

DTC3 

VCNTRLP 

20 

COMMON 

/CNTRLP/ 

DTOUT 

VCNTRLP 

21 

COMMON 

/CNTRLP/ 

ED 

VCNTRLP 

22 

COMMON 

/CNTRLP/ 

EDNM 

VCNTRLP 

23 

COMMON 

/CNTRLP/ 

FCOEF 

VCNTRLP 

24 

COMMON 

/CNTRLP/ 

FMU 

VCNTRLP 

25 

COMMON 

/CNTRLP/ 

FWET 

VCNTRLP 

26 

COMMON 

/CNTRLP/ 

GAMFAC 

VCNTRLP 

27 

COMMON 

/CNTRLP/ 

GTOPO 

VCNTRLP 

28 

COMMON 

/CNTRLP/ 

NICE 

VCNTRLP 

29 

COMMON 

/CNTRLP/ 

NDTC3 

VCNTRLP 

30 

COMMON 

/CNTRLP/ 

NFLW 

VCNTRLP 

31 

COMMON 

/CNTRLP/ 

P1M 

VCNTRLP 

32 

COMMON 

/CNTRLP/ 

QHOG 

VCNTRLP 

33 

COMMON 

/CNTRLP/ 

SHLTOP 

VCNTRLP 

34 

COMMON 

/CNTRLP/ 

SINROT 

VCNTRLP 

35 

COMMON 

/CNTRLP/ 

SNOV/N 

VCNTRLP 

36 

COMMON 

/CNTRLP/ 

SNOWS 

VCNTRLP 

37 

COMMON 

/CNTRLP/ 

STBO 

VCNTRLP 

38 

COMMON 

/CNTRLP/ 

STERP1 

VCNTRLP 

39 

COMMON 

/CNTRLP/ 

STERP2 

VCNTRLP 

40 

COMMON 

/CNTRLP/ 

TICE 

VCNTRLP 

41 

COMMON 

/CNTRLP/ 

TLTOP 

VCNTRLP 

42 

COMMON 

/CNTRLP/ 

XDAY 

VCNTRLP 

43 

COMMON 

/CNTRLP/ 

ZLNCO 

VCNTRLP 

44 

LOGICAL 

QHOG 

VCNTRLP 

45 

VCNTRLP 

46 

COMMON 

/IMJM/ 

IMM1,  I MM2 , 

I MM3, 

2 MM4 , 

IMM5, 

VIMJM 

2 

$ 

IMT2,  IMT4 , 

VIMJM 

3 

$ 

IMNLAY 

IMNLAY1 9 IMNLAY2, 

IMNLAY3, 

IMNLAY4, 

IMNLAY5, 

VIMJM 

4 

$ 

IMD2M1 

VIMJM 

5 

$ 

NLA YT2 

NLAYT3,  NLAYT4, 

NLAYT6 . 

NLAYT6 , 

NLAYT7 

VIMJM 

6 

COMMON 

/ I FAX / I FAX ( 10) , TRIGS(72>, 

NLAYT4P1 

, NLAYTQP2 

VIFAX 

2 

* * 

VRADCOM 

2 

RADIATION 

AND  SOURCE  TERM  FIELDS 

VRADCOM 

3 

COMMON 

/RADCOM/ 

AS(72 , 9) , RE(72, 10) 

VRADCOM 

4 

O 

W 

»-a 

Cd 

u 

c* 
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OF  POOR  QUALITY 


00323 

00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 

00340 

00341 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 


00354 

00355 


00356 

00357 


00358 

00359 

00360 

00361 

00362 

00363 

00364 

00365 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

LOGICAL 


/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 

/RADCOM/ 


PL ( 72 , 9 ) , PLE  < 72  , 10) 

PLK  <72,9)  . PLKE(IO) 

TL  <72,91  t TLE ( 72 , 10) 

TG ( 72 ) , TH  <72,9) 

SHL (72,9) , SHLE  < 72 , 10) 
SHG<72) , CLOUD  < 72 , 12) 

SHSAT (72,9) , GAM (72,9) 

RH (72,9) 

SSS (72,9) , SSSE ( 72 , t 0 ) 

HH (72,9) t HHE  < 72  . 10) 

HHS ( 72 , 9 > 

CVT (72,9) , CVO (72,9) 

CXDE (9) 

SWALE  (72,  10)  , SWIL<72,9> 

AL<72, 10) 

TAUL  <72, 10)  , 02ALE (72 , 10) 


TOPABS  < 72) 

RN { 9 ) , TN ( 9 ) , SRS ( 9 ) , STN(9) 

TCOND ( 9 ) , TPENE  < 9 ) 

TLOWL , TMI DL  , NLAYOZ 
FK<5).  XK  ( 5 ) . NFK 

OLdAN  (19),  OL  APR  (19),  OLJL’LdS),  0L0CT<19) 
OCM22 ( 23 ) , OCM30 ( 23 ) ♦ 0CM38(23)r  OCM46(23> 
PROCM ( 23 ) , OCMX  X ( 23 ) , NOZ,  TOTOZ<4>,  CDATE ( 6 ) 
CZH < 72 ) , WET ( 72 ) , EVAP . PREP172*,  WII72) 
COSZ<72>,  SO,  RAOTRM (72),  CXL 

cr*  < 75  1 Qp (79  1 

RSURF  < 72 ) , RCLOUD ( 72  ) , JALB 
LAND { 72 ) , OCEAN (72) , ICE<72) 

SNOW (72),  MI XWJ { 72 ) , FROST (72) 

LAND,  OCEAN,  ICE,  SNOW,  MIKWI,  FROST 


IDENTIFYING  LABELS  OF  MODEL  RESTART  RECORD  QUANTITIES 


COMMON 

CHARACTERS 


/CORDER/  XORDS ( 24 ) , XORDU (15) 
XORDS  , XORDU 


IDENTIFYING  LABELS  OF  MODEL  HISTORY  RECORD  QUANTITIES 


COMMON 

CHARACTERS 


/CORDER/  XSA  (23),XUA  (10) 

XSA  , XUA 


DATA  TO  BE  TRAN5FERED  TO  /RADCOM/ 


DIMENSION 

DATA 

DIMENSION 

DATA 

DIMENSION 

DATA 

DIMENSION 

DATA 

DIMENSION 


YCOND ( 9 ) 

YCONO  /O . 0,1, 0,2. 0,4, 0,6. 0,6, 0,8. 0,8. 0,8.0/ 
YPENEI 9) 

YPENE  /O. 0.0, 0,8. 0,8. 0,8. 0,8. 0,8. 0,8. 0,8.0/ 
YFK(S) 

YFK  /O. 107,0. 104,0.073,0.044,  0.025/ 

YXK (5 ) 

YXK  /O. 005, 0.041 ,0.416,4.752,72.459/ 


DLJAN( 19) , 


, DL JUL { 1 


VRADCOM  5 
VRADCOM  6 
VRADCOM  7 
VRADCOM  8 
VRADCOM  9 
VRADCOM  10 
VRADCOM  1 1 
VRADCOM  12 
VRADCOM  13 
VRADCOM  14 
VRADCOM  15 
VRADCOM  16 
VRADCOM  17 
VRADCOM  18 
VRADCOM  19 
VRADCOM  20 
VRADCOM  21 
VRADCOM  22 
VRADCOM  23 
VRADCOM  24 
VRADCOM  25 
VRADCOM  26 
VRADCOM  27 
VRADCOM  28 
VRADCOM  29 
VRADCOM  30 
VRADCOM  31 
VRADCOM  32 
VRAOCOM  33 
VRADCOM  34 
VRADCOM  35 
VRADCOM  36 
VCOROER  2 
VCORDER  3 
VCORDER  4 
VCORDER  5 
VCORDER  6 
VCORDER  7 
VCORDER  8 
VCORDER  9 
VCORDER  10 
VCORDER  11 
VCORDER  12 
VDEPEND  48 
VDEPEND  49 
VDEPEND  50 
VDEPEND  51 
VDEPEND  52 
VDEPEND  53 
VDEPEND  54 
VDEPEND  65 
VDEPEND  56 
VDEPEND  57 
VDEPEND  58 
VDEPEND  59 
VDEPEND  60 


00367 

DATA 

DLJAN/. 2292, 

.2308, 

.2354, 

.2417. 

, 2521 , 

.2646, 

. 2783, 

.2942, 

.3042, 

VDEPEND 

61 

1 

.3121 , 

.3204, 

.3292, 

.3404, 

,3496, 

.3542, 

.3375, 

.3579, 

.3567, 

.3658/ 

VDEPEND 

62 

00368 

DATA 

DLAPR/.2375, 

.2408, 

.2475, 

. 2583 , 

.2725, 

.2879, 

.3062, 

.3250, 

.3429, 

VDEPEND 

63 

1 

. 3608 , 

.3762, 

.3925, 

.4075, 

.4200, 

.4287. 

.4333, 

.4342, 

.4329, 

.4312/ 

VDEPEND 

64 

00369 

DATA 

DL JUL/ . 2387 , 

.2454, 

.2508, 

.2583, 

.2658, 

. 2746, 

.2837, 

. 2950 , 

.3067  , 

VDEPEND 

65 

1 

,3187, 

.3275, 

.3329. 

.3354, 

.3358 , 

.3337. 

.3321  . 

.3283, 

.3229, 

.3175/ 

VDEPEND 

66 

00370 

DATA 

DLOCT / . 2346 , 

.2358, 

.2383, 

.2425, 

.2479, 

.2525, 

.2567, 

.2608, 

. 2646, 

VDEPEND 

67 

1 

. 2679, 

. 2717 , 

.2754, 

. 2792, 

. 2829 , 

. 2867 , 

.2883, 

.2896, 

.2896, 

.2883/ 

VDEPEND 

68 

00371 

00372 


DIMENSION  0CM22  < 23 ) . 0CM30 ( 23 ) , DCM38 ( 23 ) ,DCM46<23) 

DATA  DCM22/. 00008, .00657, .01830, .03353, .05614, .08685 , . 10930, 
1 . 14029, . 16624, . 17797, . 18492, . 18867, . 19120, . 19384, .19645, 

1 . 19844, .20262, . 20601 , .20907, .21198, .21473, .21728, .21992/ 

DATA  DCM30/. 00008, .00657, .01837, .03496, .06280, . 10410, . 13398, 
1 . 17521 , .21079, .22947, .24222, . 24927, .26410, .2591 1 , .26396, 


VDEPEND  69 
VDEPEND  70 
VDEPEND  71 
VDEPEND  72 
VDEPEND  73 
VDEPEND  74 
VDEPEND  75 


DEPEND  7 


00374 

00375 

00376 

00377 


00378 


00379 

00380 

00381 

00382 

00383 

00384 

00385 

00386 

00387 

00388 

00389 


00390 


00391 

00392 

00393 

00394 


Vata  * 2£503,  . 2806  1 , . 28528r  . 28937  , . 29307.  . 29646  29996/ 

DATA  &CM38/ . 00008 , . 00657 , .01869,  . 03923 , . 07442 . . 1 2224 ' 1 5686 

1 * 225Z** * * 24695 , . 27 1 45 , . 29 1 38 , . 304 1 0 . 3 1 297  . 32208  ' 33066 ’ 

a t a * » • 34802  , . 35563  , .36162,  . 36673  ,.371  34  * 37559  ' * 37998/ 

DATA  DCM46/.00008.  .00657,  .01889;  .04 170  I! 07906!  * ? ' * ^7998/ 

] * * * 28619 ,.31 2B4 , . 33246 , . 34793 , 

1 . 39675 ,.41 902 , . 43025 , . 43784 , , 4440 1 , .44958 , 


C 

C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DIMENSION  DROCM  f 23 ) 

DATA  DROCM/ t . ,3. ,5. ,7. , 10. , 15. 

1 190 . , 230 . ,340.  , 450  , 


. 12844, . 16345 , 
.36555, .38344 , 
.45471 , .46000/ 


, 20 . , 30 . , 45 , , 60  . , 80 . , 1 00  . , 1 20 . , 1 50 
, 560 . ,670. , 780 . ,890 . , 10 13. 25/ 


PHYSICS  INPUT  NAMELIST 


NAMELIST  / I NPHY5/ 


LOC 


X 
S 
s 
u 

VAR 

CDXL 
CDXO 
ED 
PMU 
FWET 
NDHOG 
NFLW 
LTMIN 
LTMAX  , 

LPREACC  /ICNTRL/ 
LPRECON  /ICNTRL/ 
LHFLUX  /ICNTRL/ 
LEFLUX  /ICNTRL/ 
LFUSION  /ICNTRL/ 
LRADSV/G  /ICNTRL/ 
LICLOUD  /ICNTRL/ 
LOMEGA  /ICNTRL/ 
LDIABAT  /ICNTRL/ 
LRADSW  /ICNTRL/ 


CDXL,  CDXO, 
FWET,  NDHOG, 
LTMIN,  LTMAX, 
LEFLUX,  LFUSION, 
LOMEGA, LDIABAT, 


ED, 

NFLW, 

LPRECON, 

LRADSWG, 

LRADSW 


FMU, 

LHFLUX, 

LICLOUD, 


/ICNTRL/ 

/ICNTRL/ 


DEFAULT 

0.5 

0.5 

0.5 

0 . 00067 
0.5 

030000 

5 

.TRUE. 
.TRUE. 
-TRUE . 

. TRUE . 
.TRUE. 
■TRUE. 

. TRUE . 
.TRUE. 

. TRUE . 

, TRUE. 

. TRUE. 
.TRUE. 


DESCRIPTION 


MINIMUM  DAILY  SURFACE  TEMPERATURE 
MAXIMUM  DAILY  SURFACE  TEMPERATURi 
TOTAL  ACCUMULATED  PRECIPITATION 
CONVECTIVE  PRECIPITATION 
SENSIBLE  HEAT  FLUX 
EVAPORATIVE  FLUX 

H£?T~ST0RE0  IN  FREEZING  AT  GROUND 
SOLAR  RADIATION  AT  GROUND 
CLOUD  FLAGS 

velocity  (all  levels) 

2i^!5Ti?^HEATING  <ALL  LEVELS) 
SOLAR  RADIATION  (ALL  LEVELS) 


DIMENSION  BIT1 (648) ,BIT2(648) ,BIT3{643) 

S t BIT4{648) ,BIT5(648) 

BIT1,  BIT2,  BIT3,  BIT4,  BITS 

descriptor  i$Ti8:8IJiS:8iJi8:8?«8'S{B8 

ASSIGN  BIT1D.BIT1 { 1 ;648) 

ASSIGN  BIT2D,BIT2( 1 ;S48> 

ASSIGN  BIT3fJ,BIT3(  1 ;648> 

ASSIGN  BIT40 , B I T4 ( 1 j S48 ) 

ASSIGN  BI !SD , BITS ( t ; 64S ) 
c 
c 

C DEBUG 
10000  CONTINUE 

C ****  CYBER  VECTOR  VERSION  00.001 

° .****  CYBER  VECTOR  VERSION  00 


INPUT  IOQ 


3 

4 

5 

6 

7 

8 
9 

10 
1 1 


14 

15 

16 

17 

18 
19 


C ****  CYBER  VECTOR  VERSION  00  v VBEGDEB  4 

c$$$$$$$$$$$$$$$$s$$$s$$s$$$s$$$$ss$$$$$$s$$$$$$$$$s$s$$$£$$s$sss$$$ss$svbIgdIb  | 

+ + + + * + * + + + + + + + + + + VDEPEND  32 


VDEPEND  76 
VDEPEND  77 
VDEPEND  78 
VDEPEND  79 
VDEPEND  80 
VDEPEND  81 
VDEPEND  82 
VDEPEND  83 
VDEPEND  84 
..VDEPEND  85 
VDEPEND  86 
VDEPEND  87 
VINPHYS  2 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS  . . 
VINPHYS  12 
VINPHYS  13 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS 
VINPHYS  20 
VINPHYS  21 
VINPHYS  22 
VINPHYS  23 
VINPHYS  24 
VINPHYS  25 
VINPHYS  26 
VINPHYS  27 
VINPHYS  28 
VINPHYS  29 
VINPHYS  30 
VINPHYS  31 
VINPHYS  32 
VBITCM1  2 
VB1TCM1 
VB I TCM 1 
VBITCM1 
V8ITCM1 
VBITCM1 
VBITCM1 
VBITCM1 
VBITCM1 
VBITCM1 
VBITCM1 
VBITCM1 
VBITCM1 
VDEPEND  90 
VBEGDEB  2 
VBEGDEB  3 
VBEGDEB  4 
VBEGDEB  5 


3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


COMMON  BLOCK  /IMJM/ 


IMM1 
I MM2 
I MM3 
IMM4 


= IM  - 1 
= IM  - 2 
- IM  - 3 
= I M - 4 


VDEPEND  92 

*****  *******  *******\/DEPEND  ga 

VDEPEND  94 
VDEPEND  95 
VDEPEND  96 
VDEPEND  97 
VDEPEND  98 
VDEPEND  99 
VDEPEND 1 00 


o o 

-n ;» 

•a  S 
o 2 

O *B» 

& r* 

•o  -o 
c 

7>  ® 

r* 


4 


m 


DEPEND  8 


00395 

00396 

00397 

00398 

00399 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00408 

00409 

00410 


0041 1 

00412 

00413 


00414 

00415 


00416 

00417 

00418 

00419 


00420 

0042! 

00422 

00423 

00424 

00425 

00426 

00427 

00428 

00429 

00430 

00431 

00432 

00433 

00434 

00435 

00436 

00437 

00438 
00433 
00440 


00441 

00442 

00443 

00444 

00445 

00446 

00447 


C 

C 

C 


C 

C 

C 


IMM5 

IMT2 

IMT4 

IMNLAY 

IMNLAY1 

IMMLAY2 

IMNLAY3 

IMNLAY4 

IMNLAY5 

IMD2M1 

NLAYT2 

NLAYT3 

NLAYT4 

NLAVT6 

NLAYT6 

NLAYT7 


IM 

IM 

IM 

IM 


IMNLAY 
IMNLAY 
IMNLAY 
IMNLAY 
IMNLAY 
IMD2  - 
NLA Y*2 
NL AY*3 
NLA Y*4 
NLA Y*5 
NLAY*G 
NLA Y*7 


5 
2 
4 

NLAY 


1 

2 

3 

4 
6 


COMMON  BLOCK  / IFAK/ 

* IFAX  - IM) 

NLAYT4P 1 = NLAYT4  + 1 

NLA YT8P2=  NLAYT4P1  + NLAYT4P1 

COMMON  BLOCK  /BITCM1 / 


BlTTWiSi  } ! ” Q8VMKO{IMM1  . IMjBITIMMI  < 1 ; IMNLAY)  ) 

BITIMM2( 1 t IMNLAY)  - QBVMKO ( IMM2 , IM : BI TIMM2 < 1 ; IMNLAY > ) 

COMMON  BLOCK  /RCNTRL/ 

QNU 1 ~ 1 « 0 - 2 . 0 * GNU2 

„ DO  8 L “ 1 . NLAV 

IF  (SN2FLG)  SIGE<L+1>  = SIN ( . 5*P I /NLA V*L ) **2 
a CONTINUE 

COMMON  BLOCK  / IDPARM/ 


10 


Do  10  1 = 1,  IMD2 
INDEX ( I ) s I + IMD2 
INDEX { I +IMD2 ) * I 

CONTINUE 


IdUMP(d) 

- 

1 

JC<  d) 

a 

MOD ( d- 

Md(d) 

- 

0 

12 

CONTIN1 

IdUMP(dSP) 

s 

IM 

Z JUMP ( JNP ) 

s 

IM 

Md(dSP) 

— 

1 

Md(dNP) 

2 

JE<  1) 

r 

dSP 

dE  { 2 ) 

= 

dNP 

UP<  1 , 1 ) 

= 

asp  + 

dP  ( 2 , 1 ) 

= 

jsp  + : 

JPC1 , 2 ) 

s 

dNP  *- 

dP{2, 2) 

s 

dNP  - ! 

NHMS! 

= 

NHMS 

NYMD1 

» 

NYMD 

= = = COEFS  FOR  HIGH  LATITUDE  FILTEF 

, . _ DO  14  J=dSP, JNP  -aoesaaBsaasss.trsat 

FILTER(d)  = .FALSE. 

, . DO  13  1 = 1, I MD2 

F?LTPn?ndMD2L.  " SMTHM.dM-d+21 

! 3 FILTEn(J>  - -OR.  SMTK  { I , J ) . NE  . 1 . O 

k t4  CONTINUE 

; COMMON  BLOCK  /RDPARM/ 


VDEPEND 1 0 1 
VOEPEND 102 
VDEPEND1 03 
VDEPEND 1 04 
VDEPEND 10B 
VDEPEND 1 06 
VDEPEND  1 07 
VDEPEND 1 08 
VDEPEND 109 
VDEPEND! 10 
VDEPEND! 11 
VDEPEND 112 
VDEPEND 1 13 
VDEPEND 1 14 
VDEPEND 115 
VDEPEND 116 
VDEPEND! 17 
VDEPEND! 18 
VDEPEND 119 
VDEPEND 1 20 
VDEPEND 12! 
VDEPEND! 22 
VDEPEND! 23 
VDEPEND! 24 
VDEPEND 125 
VDEPEND 1 26 
VDEPEND 127 
VDEPEND 1 28 
VDEPEND! 29 
VDEPEND130 
VDEPEND 1 3 ! 
VDEPEND 1 32 
VDEPEND 133 
VDEPEND 134 
VDEPEND 1 35 
VDEPEND136 
VDEPEND 137 
VDEPEND 1 38 
VDEPEND 1 39 
VDEPEND 140 
VDEPEND 1 4 1 
VDEPEND 142 
VDEPEND 143 
VDEPEND 144 
VDEPEND1 45 
VDEPEND 146 
VDEPEND 147 
VDEPEND 1 48 
VDEPEND149 
VDEPEND 1 50 
VDEPEND 1 5 1 
V0EPEND1 52 
VDEPEND 153 
VDEPEND  T54 
VDEPEND  1 55 
VDEPEND 156 
VDEPEND 157 
VDEPEND 158 
VDEPEND  159 
VDEPEND1 60 
VDEPEND 161 
VDEPEND 162 
VDEPEND 163 
VDEPEND! 64 
VDEPEND 165 
VDEPEND 1 66 
VDEPEND 167 
VDEPEND 168 
VDEPEND 169 
VDEPEND 1 70 
VDEPEND 1 7 1 


o o 

aj 

3 55 

o fS 

o| 

33  |»** 

> o 

n^t 


1 


£3 


DEPEND  9 


00448 

00449 

00450 

00451 

00452 

00453 

00454 
00453 
00456 
00467 

00458 

00459 

00460 

00461 

00462 

00463 

00464 

00465 

00466 

00467 

00468 

00469 

00470 

00471 

00472 

00473 

00474 

00475 

00476 

00477 

00478 

00479 

00480 

00481 

00482 

00483 

00484 


00486 

00486 

00487 

00488 
004B9 

00490 

00491 

00492 

00493 

00494 

00495 

00496 

00497 

00498 

00499 

00500 

00501 

00502 

00503 

00504 

00505 

00506 

00507 

00508 

00509 

00510 
0051  1 

00512 

00513 

00514 

00515 


C 

C 

C 


PKSTD  - EXPBYK ( PSTD ) 

ROCPP1  = ROCP  + 1 

THSTD  - TSTD  / PKSTD 

DO  15  L=1 , NLAY 

DSIG(L)  = SIGH ( L + 1 ) - SIGE(L) 
DSIGINV(L)  *1.0/  DSIG(L) 

SIG(  L ) * 0.5  * < 5IGE  ( L+ 1 ) + SIGE(L)) 

IS  CONTINUE 

DO  20  1=1, IMD2 

COSLON(I)  = -COS  ( < I - 1 ) *DLON  ) 

COSLON( I+IMD2)  * -COSLONO) 

SINLON(I)  = -SIN((I-1)  *DLON> 

S I NLON ( I + IMD2 ) = -SINLON< I ) 

20  CONTINUE 

PdEQ  = 0.5  * (dSP  + JNP) 

DO  30  d = dSP  , JNP 
RLAT  (d ) = DLAT  * <J  - FdEQ } 

RLATD<  d ) = RLAT (d ) / PI  180 

COSL(d)  = COS { RLAT ( d ) ) 

SI NL Id)  = SIN ( RLAT  < d ) ) 

DXP(d)  = RADE  * DLOft!  * COSL(d) 

D YP  < d > = RADE  * DLAT 

DXYP(d)  = 12.0  * DXP<d)  * DYP(d) 

FCORLS(d)  * 0WIEGA2  * SINL(d) 

30  CONTINUE 

-1.0 
1 . 0 

12.0  * RACE  * DLAT  * DLON 

3.0  * RADE  * XM 

4.0  * COTAN( .5*DLAT) 


SGNP  < 1 ) 
SGNP (2) 
ADLDP 
RADIM3 
CONI 
C0N2 
C0N3 
C0N4 
C0N5 
CPD2 
PKTOP 
THSTD2 

COMMON  BLOCK 

2S£ ==B=SSS£== 


= -COTAN < 

= CONI 
* -CON2 

= 1,0/  (RADIM3 
= CP  * 0.5 
= PTOP  * *ROCPP 1 
= THSTD  * 2.0 

/CNTRLP/ 


DLAT) 


RADIM3 

RADIM3 


* DLAT) 


CDFR 

CPP 

CIO 

C100 

C40 

DELTA 

EDNM 

HICE 

SHLTOP 

STBO 

TICE 

TLTOP 

NDTC3 

DTC3 

□ TOUT 

CUMRAT 

CUMDAY 

CLH 

GAMFAC 

GTOPO 

CTID 

PIM 

STERP1 

STERP2 

ZLNCO 

COEF 
COEFS 
DO  45 
COE(L) 

45  CONTINUE 


* 1.00 
= 0.24 

= 60.00 
= 100.00 
= 8.00 
= 0.0001 
= 2.00 
“ 300.00 
* 0.00002 
= 1 . 17  IE-07 

= 273.16 

= 220.00 

= MODHMS(NDPHY.O) 

= NDTC3 

= MODHMS(NDOUT, 0) 

= DTC3  / DTOUT 
= SDAY  / DTOUT 
= HEATW  / CPP 
= CLH  * EPSFAC 

s (2.0  * GRAV  * PZERO  / SORT(TICF>)  / 10,0 
= SDAY  * 0.0052 

* PSTD  - PTOP 

* ( SIGE { NLA YP 1 ) “ SIG(NLAYMI) > / { SI G ( NLAY ) -SIG < NL A YM  1 ) ) 
= ( SIG(NLAY)  -SIGECNLAVPI ) > / (SIG(NLAV > -SIG (NLAYM1 ) > 

* 0.5  * DSIG(NLAY)  » RGAS  / GRAV 
CMASS  = PIM  * 10.0  / GRAV 

= DTC3  / (CPP  * CMASS  * SDAY) 

= GRAV  * DTC3  / DSIG(NLAY) 

L = 1 , NLAY 

* COEF  / DSIG(L) 


VDEPEND 172 

VDEPEND 1 73 

VDEPEND 174 

VDEPEND 1 75 

VDEPEND 176 

VDEPEND1 77 

VOEFEND 1 78 

V0EPEND179 

VDEPEND 180 

VDEPEND 181 

VDEPEND 182 

VDEPEND 1 83 

VDEPEND 1 84 

VDEPEND 1 85 

VDEPEND 186 

VDEPEND 187 

VDEPEND 18Q 

VDEPEND 189 

VDEPEND 1 90 

VDEPEND 1 9 1 

VDEPEND 1 92 

VDEPEND1 93 

VDEPEND 1 94 

VDEPEND 195 

VOEPEND 1 96 

VDEPEND 1 97 

VDEPEND 198 

VDEPEND 199 

V0EPEND200 

VDEPEND201 

VDEPEND202 

VDEPEND203 

VDEPEND204 

VDEPEND205 

VDEPEND206 

VDEPEND207 

VDEPEND208 

VDEPEND209 

VDEPEND2 1 0 

VDEPEND2 1 1 

VDEPEND2 1 2 

VDEPEND2 1 3 

VDEPEND2  1 4 

VDEPEND215 

VDEPEND2 1 6 

VDEPEND21 7 

VDEPEND218 

VDEPEND219 

VDEPEND220 

VDEPEND221 

VDEPEND222 

VDEPEND223 

VDEPEND224 

VDEPEND226 

VDEPEND226 

VDEPEND227 

VDEPEND228 

VDEPEND229 

VDEPEND230 

VDEPEND23! 

VDEPEND232 

VDEPEND233 

VDEPEND234 

VDEPEND235 

VDEPEND236 

V0EPEND237 

VDEPEND23S 

V0EPEND239 

VDEPEND240 

VDEPEND241 

VDEPEND242 


DEPEND  10 


C 

C DEFAULT  AND  READ  NAMELIST  INPHYS 


005  16 

CDXL 

c 

0.50 

005  17 

CDXO 

s 

0.50 

005  18 

ED 

r 

0.50 

00519 

FMU 

r 

.00067 

00520 

FWET 

s 

0.50 

00521 

NFLW 

= • 

5 

C 

THE  SWITCHES 

FOR  THE  DIAGNOSTIC 

QUANTITIES  WERE 

SET 

TO  DEFAULT 

C 

VALUES  IN  SUBROUTINE  DEFALT 

c 

00522 

READ  <11 

, I NPHYS , END=4B ) 

00523 

48 

CONTINUE 

00524 

WRITE13, 

INPHYS) 

00525 

FCOEF 

- 

258.0  * GRAV**2 

* FMU  + DTC3  / 

o 

o 

in 

,0  * RGAS) 

c 

e 

REMOVE  OLD 

MIXWI  CONDITION  FROM 

GT  ARRAY 

00526 

DO  49 

JJ 

- 

JSP , JNP 

00527 

DO  49 

II 

= 

1 . IM 

00528 

IF  <GT< 1 1 

. JJ) 

. LE  .1.1)  GT ( 1 1 , i 

JJ)  * TICE 

00529 

49 

CONTINUE 

C 

C 

COMMON  BLOCK 

/RADCOM/ 

00530 

DO  50 

L 

- 

1 * NLAY 

00531 

TCDND ( L > 

YCOND(L) 

00532 

TPENE(L) 

= 

YPENE(L) 

00533 

50 

CONTINUE 

00534 

TLOWL 

a 

16.00 

00535 

TMIOL 

= 

8.00 

00536 

NLAYOZ 

a 

5 

00537 

NFK 

3 

5 

00538 

DO  SI 

I 

S 

1 . 5 

00539 

fkci) 

= 

VFK ( I ) 

00540 

XK  ( I ) 

= 

YXK ( I > 

00541 

51 

CONTINUE 

00642 

DO  53 

I 

s 

t , 19 

00543 

DLJANCU 

= 

DL JAN  < I ) 

00544 

OLAPR ( I ) 

- 

DLAPR ( I ) 

00545 

QLJUL < I ) 

» 

DL JUL ( I ) 

00546 

OLOCT  < I ) 

a 

DLOCT { I ) 

00547 

53 

CONTINUE 

00548 

NOZ 

s 

23 

00549 

DO  54 

I 

s 

1 ,23 

00550 

PROCM(I) 

- 

DROCMU  > 

00651 

0CM22 ( I ) 

a 

DCM22U  ) 

00562 

0CM30 ( I ) 

3 

DCM30  < I > 

00553 

OCM38U  ) 

= 

0CM3S ( I ) 

00554 

OCM46 ( I ) 

n 

DCM46 ( I ) 

00556 

54 

CONTINUE 

00556 

CDATE ( 1 > 

3 

-77  * 00 

00557 

CDATE ( 2} 

3 

15.00 

00558 

CDATE (3) 

3 

105.00 

00559 

CDATE  < 4) 

3 

196.00 

00560 

CDATE (5) 

a 

288.00 

0056  1 

CDATE { 6 ) 

= 

380.00 

00562 

T0T02 ( 1 ) 

3 

0.22 

00563 

TOTOZ{ 2) 

n 

0.30 

00564 

TOTOZ<3) 

3 

0.38 

00565 

TOTOZ ( 4 ) 

3 

0.46 

00566 

c 

SO 

= 

2880.0  / RSDIST 

C DETERMINE  KS  AND  KU  AND  SET  POINTERS  AND  LABELS  FOR  DIAGNOSTICS 


00567 

KS  ~ 9 

0056B 

DO  GO  K =1,30 

00563 

IF < .NOT . LOS ( K ) ) GO  TO  60 

00570 

KS  = KS  + 1 

00571 

XORDS(KS)  = CQS(K) 

00572 

IQS ( K)  = KS  - 9 

VDEPEND243 
VDEPEND244 
VDEPEND245 
V0EPEND246 
VDEPEND247 
VDEPEND248 
VDEPEND249 
VDEPEND250 
VDEPGND2S  t 
VDEPEND252 
VDEPEND253 
VDEPEND254 
VDEPEND255 
VDEPEND256 
VOEPEND257 
VDEPEND258 
VDEPEND259 
VDEPEND260 
VDEPEND26 1 
VDEPEND262 
VDEPEND263 
VDEPEND264 
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CONTINUE 

00574 

I F ( KS,GT . 24)  STOP  77 

00575 

KU  =10 

00576 

DO  62  K =1,10 

00577 

I F ( ♦ NOT „ LQU  < K ) ) GO  TO 

00578 

KU  = KU  + 1 

00579 

XORDU  < KU ) = CQU ( K > 

00580 

IQU(K)  = KU  - 10 

00581 

62 

CONTINUE 

00582 

C 

1 F ( KU . GT « 15)  STOP  77 

00583 

RETURN 

00584 

END 
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CCNTRL 
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3 

16 

ADLOP 

R DP  ARM 

REAL 

SIMPLE 

21  1 

475/S 

AL 

RADCOM 

REAL 

ARRAY 

337 

263 

ALBEDO 

QANDQT 

REAL 

ARRAY 

250 

APHEL 

RCNTRL 

REAL 

SIMPLE 

151 

AS 

RADCOM 

REAL 

ARRAY 

322 

17 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

4 

BETA 

RCNTRL 

REAL 

SIMPLE 

152 

385 

BIT1 

BIT 

ARRAY 

379 

3B0 

BIT  ID 

BIT 

DESCRIPTOR 

381 

382 

385 

BIT2 

BIT 

ARRAY 

379 

380 

386 

BIT2D 

BIT 

DESCRIPTOR 

381 

382 

386 

BIT3 

BIT 

ARRAY 

379 

3B0 

387 

BIT3D 

BIT 

DESCRIPTOR 

381 

382 

3B7 

BIT4 

BIT 

ARRAY 

379 

380 

388 

BIT4D 

BIT 

DESCRIPTOR 

381 

382 

388 

BITS 

BIT 

ARRAY 

379 

380 

3a9 

BIT5D 

BIT 

DESCRIPTOR 

381 

382 

389 

BITCOMP1 

REAL 

UNKNOWN 

383 

414/S 

BITIMM1 

BITCOMP1 

BIT 

ARRAY 

383 

384 

BITIMM2 

BITCOMP1 

BIT 

ARRAY 

3B3 

384 

415/S 

CIO 

CNTRLP 

REAL 

SIMPLE 

290 

487/S 

Cl  00 

CNTRLP 

REAL 

SIMPLE 

291 

488/S 

C40 

CNTRLP 

REAL 

SIMPLE 

292 

489/S 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

190 

15 

CC 

CCNTRL 

CHAR *8 

ARRAY 

14 

15 

CCO 

CCNTRL 

CHAR*8 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

13 

7 

3 

4 

CCSP06 

CCNTRL 

CHAR*8 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHARTS 

SIMPLE 

8 

21 

CCSP08 

CCNTRL 

CHAR*8 

SIMPLE 

9 

22 
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CDATE 

CDFR 

CDXL 

CDXO 

CLH 

CLOUD 

CM  ASS 


COE 
COEF 
COEFS 
CONI 
CON1DT 
CON2 
CON2DT 
COM3 
CON3DT 
COM4 
CON4DT 


RADCOM 

CNTRLP 

CNTRLP 

CNTRLP 

CNTRLP 

RADCOM 


CNTRLP 

CNTRLP 

CNTRLP 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 


REAL 

REAL 

REAL 

REAl 

REAL 

REAL 

REAL 


ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 


246 

278 

279 

280 
281 
328 
510/S 


5S6/S  557/S  558/S  659/S  560/S  561/S 


485/S 

378 

378 

502/S 

511 


516/S 

517/S 

503 


CNTRLP 

REAL 

UNKNOWN 

278 

279 

280 

2B1 

282 

283 

284 

285 

286 

2Q7 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 
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308 

309 

310 

31  1 

312 

313 

314 

315 

316 

317 

318 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


282 

283 

284 
212 

213 

214 

215 

216 

217 

218 
219 


514/S 
511/S 
5 1 2/S 
477/S 

478/S 

479/S 

480/S 


514 

479 


480 


CONB 

RDPARM 

REAL 

SIMPLE 

220 

481/S 

CORDER 

REAL 

UNKNOWN 

354 

356 

COSD 

RCNTRL 

REAL 

SIMPLE 

153 

COSL 

RDPARM 

REAL 

ARRAY 

221 

466/S 

468 

COSLON 

RDPARM 

REAL 

ARRAY 

222 

457/S 

458/S 

458 

COSROT 

CNTRLP 

REAL 

SIMPLE 

285 

COS2 

RADCOM 

REAL 

ARRAY 

348 

CP 

RCNTRL 

REAL 

SIMPLE 

154 

482 

CPD2 

RDPARM 

REAL 

SIMPLE 

223 

482/S 

CPP 

CNTRLP 

REAL 

SIMPLE 

286 

486/S 

502 

511 

CQS 

CCNTRL 

CHAR*8 

ARRAY 

12 

25 

571 

CQU 

CCNTRL 

CHARTS 

ARRAY 

13 

26 

579 

CTID 

CNTRLP 

REAL 

SIMPLE 

287 

505/S 

CUMDAY 

CNTRLP 

REAL 

SIMPLE 

288 

501/S 

cumrat 

CNTRLP 

REAL 

SIMPLE 

289 

500/S 

CVQ 

RADCOM 

REAL 

ARRAY 

334 

CUT 

RADCOM 

REAL 

ARRAY 

334 

CXDE 

RADCOM 

REAL 

ARRAY 

335 

CXL 

RADCOM 

REAL 

SIMPLE 

348 

CZH 

RADCOM 

REAL 

ARRAY 

347 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

155 

DCM22 

REAL 

ARRAY 

371 

372/1 

551 

DCM30 

REAL 

ARRAY 

371 

373/1 

552 

DCM3S 

REAL 

ARRAY 

371 

374/1 

553 

DCM46 

REAL 

ARRAY 

371 

375/1 

554 

DEC 

RCNTRL 

REAL 

SIMPLE 

158 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

157 

DELTA 

CNTRLP 

REAL 

SIMPLE 

293 

490/S 

DEPEND 

SUBROUTINE 

1 

DIST 

RCNTRL 

REAL 

SIMPLE 

158 

DLAPR 

REAL 

ARRAY 

366 

368/1 

544 

DLAT 

RCNTRL 

REAL 

SIMPLE 

159 

464 

469 

475 

477 

478 

DLJAN 

REAL 

ARRAY 

266 

367/1 

543 

DLJUL 

REAL 

ARRAY 

266 

369/1 

545 

DLOCT 

REAL 

ARRAY 

366 

370/1 

546 

DLON 

RCNTRL 

REAL 

SIMPLE 

160 

457 

459 

468 

475 

DROCM 

REAL 

ARRAY 

376 

377/1 

550 

DS1Q 

RDPARM 

REAL 

ARRAY 

244 

452/S 

453 

509 

512 

514 

DSIGINV 

RDPARM 

REAL 

ARRAY 

246 

453/S 

DT 

RCNTRL 

REAL 

SIMPLE 

161 

DTC3 

CNTRLP 

REAL 

SIMPLE 

294 

498/S 

500 

511 

512 

525 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

295 

499/S 

500 

501 

DXP 

RDPARM 

REAL 

ARRAY 

224 

468/S 

470 

DXYP 

RDPARM 

REAL 

ARRAY 

225 

470/S 

DYP 

RDPARM 

REAL 

ARRAY 

226 

469/S 

470 

ECCN 

RCNTRL 

REAL 

SIMPLE 

162 

ED 

CNTRLP 

REAL 

SIMPLE 

296 

378 
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O 
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EDNM 

CNTRLP 

REAL 

SIMPLE 

EPS 

RCNTRL 

REAL 

SIMPLE 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

EVAP 

RADCOM 

REAL 

SIMPLE 

F IDT 

RDPARM 

REAL 

SIMPLE 

F2DT 

RDPARM 

REAL 

SIMPLE 

FCOEF 

CNTRLP 

REAL 

SIMPLE 

FCORLS 

RDPARM 

REAL 

ARRAY 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

F dEQ 

REAL 

SIMPLE 

FK 

RADCOM 

REAL 

ARRAY 

FMU 

CNTRLP 

REAL 

SIMPLE 

FRGST 

RADCOM 

LOGICAL 

ARRAY 

FWET 

CNTRLP 

REAL 

SIMPLE 

GAM 

RADCOM 

REAL 

ARRAY 

GAMFAC 

CNTRLP 

REAL 

SIMPLE 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

GNU  2 

RCNTRL 

REAL 

SIMPLE 

GRAV 

RCNTRL 

REAL 

SIMPLE 

GT 

QANDQT 

REAL 

ARRAY 

GTOPO 

CNTRLP 

REAL 

SIMPLE 

GW 

QANDQT 

REAL 

ARRAY 

H1DT 

RDPARM 

REAL 

SIMPLE 

H2DT 

RDPARM 

REAL 

SIMPLE 

HEAT  I 

RCNTRL 

REAL 

SIMPLE 

HEATW 

RCNTRL 

REAL 

SIMPLE 

HH 

RADCOM 

REAL 

ARRAY 

HUE 

RADCOM 

REAL 

ARRAY 

HHS 

RADCOM 

REAL 

ARRAY 

NICE 

CNTRLP 

REAL 

SIMPLE 

I 

INTEGER 

SIMPLE 

IC 

ICO 

ICE 

ICNTRL 


ICNTRL 

ICNTRL 

RADCOM 


INTEGER 

INTEGER 

LOGICAL 

INTEGER 


ARRAY 

SIMPLE 

ARRAY 

UNKNOWN 


ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

ICSP55 

ICNTRL 

INTEGER 

SIMPLE 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

I DP ARM 

INTEGER 

UNKNOWN 

IDSP02 

I DP ARM 

INTEGER 

SIMPLE 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

I FAX 

IFAX 

INTEGER 

ARRAY 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

IHFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

II 

INTEGER 

SIMPLE 

IICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

IdUMP 

IDPARM 

INTEGER 

ARRAY 

IM 

ICNTRL 

INTEGER 

SIMPLE 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

IMD2M1 

IMUM 

INTEGER 

SIMPLE 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

XMdM 

INTEGER 

UNKNOWN 

IMM1 

IMJM 

INTEGER 

SIMPLE 

IMM2 

IMdM 

INTEGER 

SIMPLE 

I MM3 

IMJM 

INTEGER 

SIMPLE 

IMM4 

IMdM 

INTEGER 

SIMPLE 

IMM5 

IMdM 

INTEGER 

SIMPLE 

IMNLAY 

IMdM 

INTEGER 

SIMPLE 

IMNLAY1 

IMdM 

INTEGER 

SIMPLE 

IMNLAY2 

IMdM 

INTEGER 

SIMPLE 

IMNLAY3 

IMdM 

INTEGER 

SIMPLE 

IMNLAY4 

IMdM 

INTEGER 

SIMPLE 
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93 

27 
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85 

83 
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88 
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471/S 
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464 

539/S 

378 

353 
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416/S 
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504 

264 
604/S 

265 


502 


492/S 


321 


528 
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391 

429 

404 

404/S 


391/S 

392/S 

393/S 

394/S 

395/S 

39S/S 

399/S 

400/S 

401/S 

402/S 


442/S 

519/S 

520/S 


509 

528 


445/S  445 

525 


510 

528/S 


512 


525 


421 

421 

422 

422 

443/C 

444 

444 

445 

456/C 

457 

458 

458 

459 

459 

460 

460 

538/C 

539 

539 
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642/C 

543 
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94 
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62 

63 
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67 

68 

69 

70 

72 

73 

74 

75 

76 

77 

78 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 
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429/S 
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392 

393 

394 

395 

396 

397 

398 

430 

476 
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420 

421 
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443 

456 

458 

460 
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415 

399 

400 
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414 

414 
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415 


415 


ORIGINAL  PAGE  li 
DEPEND  14  OF  POOR  QUALITY 


IMNLAYS 
IMT2 
IMT4 
INDEX 
INPHYS 
IOMEGA 
I PREACC 
I PRECON 
I QS 

IQSDIAG 

IQU 

IRADLW 

IRADLWG 

IRADSW 

IRADSWG 

I ROD 

I TAPE 

UMAX 

ITMIN 

d 


dALB 

dC 

iIE 

JIC 

Jd 

dM 

dMD2 

dMT2 

JNP 

J04 

dOB 

JOB 

dp 

dSP 

K 

KLIALB 

KLIGW 

KLISST 

KS 

K5TEP 

KU 

L 

LAND 

LC 

LCD 

LCNTRL 

LDIABAT 

LDPARM 

LEFLUX 

LFUSION 

LHFLUX 

LI CLOUD 

L0G8R 

LOMEGA 

LPREACC 

LPRECON 

LQS 

LQU 

LRADLW 

LRADLWG 

LRADSW 

LRADSWG 

LTMAX 

LTMIN 


IMdM 

IMJM 

IMdM 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

QANOQT 
ICNTRL 
ICNTRL 
ICNTRL 
ICNTRL 
ICNTRL 
I DP ARM 
LDPARM 
ICNTRL 
ICNTRL 


RADCOM 

IDPARM 

IDPARM 

CCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

CCNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 


RADCOM 

LCNTRL 

LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

ICNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

INTEGER 

INTEGER 

INTEGER 


INTEGER 

INTEGER 

INTEGER 

CHAR  *8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR*8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

ARRAY 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

SIMPLE 

UNKNOWN 

UNKNOWN 

SIMPLE 


SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

UNKNOWN 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 

ARRAY 

ARRAY 

UNKNOWN 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


320  403/S 

320  396/S 

320  397/S 

796  421/S  422/S 

378  522  524 

89 
81 
82 


77 

79 

80 

81 

82 

572/S 

275 

276 

78 

89 

90 

91 

92 

92 

87 

91 

86 

197 

206 

209 

80 

79 

424/C 

425 

426 

426 

427 

445 

445 

463/C 

464 

464 

468 

350 

46B 

469 

470 

470 

198 

426/S 

199 

433/S 

434/S 

5 

18 

526/C 

528 

528 

32 

444 

33 

444 

34 

35 

424 

430 

432 

434 

36 

37 

6 

19 

200 

435 /S 

436/S 

437/S 

438/S 

38 

424 

429 

431 

433 

565/C 

569 

571 

572 

576/C 

39 

40 

41 

42 

567/S 

570/S 

570 

671 

201 

43 

575/S 

578/S 

578 

579 

417/C 

418 

418 

451/C 

452 

454 

513/C 

514 

514 

530/C 

351 

353 

148 

149 

95 

148 

149 

96 

96 

97 

98 

99 

106 

107 

119 

146 

37a 

205 

206 

207 

1 13 

139 

378 

1 14 

140 

378 

112 

138 

378 

1 17 

143 

378 

44 

1 18 

144 

378 

110 

136 

1 1 1 

137 

378 

106 

108 

109 

1 10 

1 1 1 

132 

569 

107 

1 18 

1 19 

120 

121 

121 

147 

1 16 

142 

120 

146 

378 

1 15 

141 

378 

109 

135 

378 

108 

134 

378 
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465  465  466  466  467 
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88 
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MATSNX 

MATSUN 

M1XWI 

MJ 

MLF 

MROD 

MSM 

NB 

ND 

NDALT 

NDAY 

NDHOG 

NDOUT 

NDPHY 

NDRSW 

NDSHF 

NDT 

NDTC3 

NFK 

NFLW 

NHMS 

NHMSO 

NHMS  1 

NHMSE 

NKRSH 

NLA  Y 


ICNTRL 

ICNTRL 

ICNTRL 

RAOCOM 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

CNTRLP 

RADCOM 

CNTRLP 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 


INTEGER 

INTEGER 

INTEGER 

LOGICAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


NLAYM1 

ICNTRL 

NLAYOZ 

radcom 

NLAYP1 

ICNTRL 

NLAYT2 

IMJM 

NLAVT3 

IMJM 

NLAYT4 

IMJM 

NLAYT4P1 

I F AX 

NLAYT5 

IMJM 

NLAYT6 

IMJM 

NLAYT7 

IMJM 

NLAYT8P2 

I FAX 

NMLEV 

ICNTRL 

NOZ 

RADCOM 

NSDAY 

ICNTRL 

NSEQ 

ICNTRL 

NSTEP 

ICNTRL 

NYMD 

ICNTRL 

NYMDO 

ICNTRL 

NYMD  1 

IDPARM 

NYMDE 

ICNTRL 

NZINIT 

ICNTRL 

OCEAN 

RADCOM 

OCM22 

RADCOM 

OCM30 

RADCOM 

OCM38 

RADCOM 

OCM46 

RADCOM 

OCMXX 

RADCOM 

OLAPR 

RADCOM 

OL  JAN 

RADCOM 

OLJUL 

RADCOM 

OLOCT 

RADCOM 

0MEGA2 

RCNTRL 

OZALE 

RADCOM 

P 

QANDQT 

PHI 

QANDQT 

PHIS 

QANDQT 

PI 

RCNTRL 

PI  ISO 

RCNTRL 

P 12 

RCNTRL 

PIM 

CNTRLP 

PIMEAN 

RCNTRL 

PKSTD 

RDPARM 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 
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ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


45 

46 

47 
352 

353 

431/S 

202 

427/S 

48 

49 
51 

426 

52 

53 

54 

55 
76 

378 

56 

499 

57 

497 

31 

5B 


304 

497/S 

498 

343 

537/S 

521/S 

305 

378 

60 

439 

62 

203 

439/S 

61 

50 

63 

398 

405 

507 

508 

508 

64 

507 

507 

342 

536/S 

65 

507 

508 

320 

405/S 

320 

406/S 

320 

407/S 

412 

321 

412/S 

413 

320 

408/S 

320 

409/S 
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410/S 

321 

75 

346 

413/S 

548/S 

66 

67 

69 

71 

73 

204 

440 

440/S 

72 

74 

35! 

353 

345 

551  /S 

345 

552/S 

345 

553/S 

345 

554/S 

346 

344 

544/S 

344 

543/S 

344 

545/S 

344 

546/S 

166 

471 

338 

255 

268 

260 

273 

248 

261 

167 

418 

168 

465 

169 

306 

506/S 

510 

171 

232 

44B/S 

450 

432/S 


406  407  408 

509  512  513 
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413 
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PKTOP 

PL 

PLE 

PLEVS 

PLK 

PLKE 

PREP 

PROCM 

PSMAX 

PSMIM 

PSTD 

PTOP 

PZERO 

QALT 

QANDQT 

QBEG 

QDAY 

QEND 

QHOG 

QOUT 

QPHY 

QPROG 

QRSH 
QRSW 
QSDIAG 
QSHF 


RE 

RGAS 

RH 

RLAT 

RLATD 

RN 

ROCP 

ROCPDT 

ROCPP1 

RSDIST 

RSURF 

SO 

SDAY 

SEASON 

SG 

SGNP 

SH 

SHG 

SHL 

SHLE 

SHLTOP 

SHS 

SHSAT 

SIG 

SIGE 


RDPARM 

RADCOM 

RAOCOM 

RCNTRL 

RADCOM 

RADCOM 

RADCOM 

RADCOM 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

CNTRLP 

LCNTRL 

LCNTRL 

QANDQT 

LCNTRL 

LCNTRL 

QANDQT 

LCNTRL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

REAL 

LOGICAL 

LOGICAL 

REAL 


QUO I AG 

QANDQT 

REAL 

RADCOM 

REAL 

HADE 

RCNTRL 

REAL 

RADIM3 

REAL 

RADTRM 

RADCOM 

REAL 

RC 

RCNTRL 

REAL 

RCO 

RCNTRL 

REAL 

RCLOUD 

RADCOM 

REAL 

RCNTRL 

REAL 

RDPARM 

REAL 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 
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SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 
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RADCOM 

REAL 

ARRAY 

RCNTRL 

REAL 

SIMPLE 

RADCOM 

REAL 

ARRAY 

RDPARM 

REAL 

ARRAY 

RDPARM 

REAL 

ARRAY 

RADCOM 

REAL 

ARRAY 

RCNTRL 

REAL 

SIMPLE 
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SIMPLE 
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SIMPLE 
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SIMPLE 
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CNTRLP 

REAL 

SIMPLE 
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ARRAY 

RADCOM 

REAL 

ARRAY 

RDPARM 

REAL 

ARRAY 

RCNTRL 

REAL 

ARRAY 

233 

323 

323 
185 

324 
324 

347 
346 

172 

173 
170 

174 

191 

96 
247 

97 
99 

99 
307 
100 
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247 
271 
105 
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274 
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333 
3 44 

175 
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348 
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150 
350 

150 

151 
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330 

234 
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340 

177 

236 

237 

178 
350 

348 

179 

180 

349 

238 
259 

328 
327 
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308 
254 

329 

245 
181 


483/S 


550/S 


448 

483 

504 
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274 

123 

124 

125 
319 
126 

127 
261 
272 
131 
130 
276 

128 

323 

334 

345 

468 

477 

193 

192 

151 

162 

173 

184 

212 

223 

234 

245 

509 

464/S 

465/S 

449 

449/S 

566 

566/S 

501 


473/S 

272 


493/S 

267 

454/S 

418/S 


506 

506 


277 
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324 

335 

346 

469 

478 


193 

152 

163 

174 

185 

213 

224 

235 

246 
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465 


483 

505 

474/S 


507 

452 
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264 


265 


266 


267 


268 


325 

326 

327 

326 

329 

330 

336 

337 

338 

339 

340 

341 

347 

475 
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348 

476 

349 

350 

351 

352 
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170 
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SOS 
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SIND 

RCNTRL 

REAL 

SIMPLE 

182 

SINL 

RDPARM 

REAL 

ARRAY 

239 

467/S 

SINLON 

RDPARM 

REAL 

ARRAY 

240 

459/S 

SINROT 

CNTRLP 

REAL 

SIMPLE 

309 

SMTH 

QANDQT 

REAL 

ARRAY 

249 

262 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

103 

129 

SNOW 

RADCOM 

LOGICAL 

ARRAY 

352 

353 

SNOWN 

CNTRLP 

REAL 

SIMPLE 

310 

SNOWS 

CNTRLP 

REAL 

SIMPLE 

31  1 

SOLS 

RCNTRL 

REAL 

SIMPLE 

183 

SP 

RADCOM 

REAL 

ARRAY 

349 

SRS 

RADCOM 

REAL 

ARRAY 

340 

SSS 

RADCOM 

REAL 

ARRAY 

331 

SSSF 

RADCOM 

REAL 

ARRAY 

331 

START 

LDPARM 

LOGICAL 

SIMPLE 

207 

210 

STBO 

CNTRLP 

REAL 

SIMPLE 

312 

494/S 

STERP1 

CNTRLP 

REAL 

SIMPLE 

313 

507/S 

STERP2 

CNTRLP 

REAL 

SIMPLE 

314 

508/S 

STN 

RADCOM 

REAL 

ARRAY 

340 

SWALE 

RADCOM 

REAL 

ARRAY 

336 

SWIL 

RADCOM 

REAL 

ARRAY 

336 

T 

QANDQT 

REAL 

ARRAY 

258 

271 

TAUL 

RADCOM 

REAL 

ARRAY 

338 

TCOND 

RADCOM 

REAL 

ARRAY 

341 

631  /S 

TG 

RADCOM 

REAL 

ARRAY 

326 

TH 

RADCOM 

REAL 

ARRAY 

326 

THSTD 

RDPARM 

REAL 

SIMPLE 

241 

450/S 

THSTD2 

RDPARM 

REAL 

SIMPLE 

242 

484 /S 

TICE 

CNTRLP 

REAL 

SIMPLE 

315 

493 /S 

TL 

RADCOM 

REAL 

ARRAY 

325 

Tl-E 

RADCOM 

REAL 

ARRAY 

325 

TLOWL 

RADCOM 

REAL 

SIMPLE 

342 

B3*/S 

TLTOP 

CNTRLP 

REAL 

SIMPLE 

316 

496/S 

TMIDL 

RADCOM 

REAL 

SIMPLE 

342 

535/S 

TN 

RADCOM 

REAL 

ARRAY 

340 

TOPABS 

RADCOM 

REAL 

ARRAY 

339 

TOTOZ 

RADCOM 

REAL 

ARRAY 

346 

562/S 

TPENE 

RADCOM 

REAL 

ARRAY 

341 

532/S 

TRIGS 

IFAX 

REAL 

ARRAY 

321 

41  1 

TS 

QANDQT 

REAL 

ARRAY 

253 

265 

TSTD 

RCNTRL 

REAL 

SIMPLE 

184 

450 

U 

QANDQT 

REAL 

ARRAY 

256 

269 

V 

QANDQT 

REAL 

ARRAY 

257 

270 

VER 

CCNTRL 

CHAR*8 

SIMPLE 

10 

23 

VJET 

RADCOM 

REAL 

ARRAY 

347 

WI 

RADCOM 

REAL 

ARRAY 

347 

WSAVE 

RDPARM 

REAL 

ARRAY 

243 

XDAY 

CNTRLP 

REAL 

SIMPLE 

317 

XK 

RADCOM 

REAL 

ARRAY 

343 

640/S 

XLABEL 

CCNTRL 

CHAR *8 

ARRAY 

1 1 

24 

XORDS 

CORDER 

CHAR*8 

ARRAY 

354 

356 

XORDU 

COnDER 

CHAR*8 

ARRAY 

354 

355 

XSA 

CORDER 

CHAR*8 

ARRAY 

356 

357 

XUA 

CORDER 

CHAR*8 

ARRAY 

356 

337 

YCOND 

REAL 

ARRAY 

358 

359/1 

YFK 

REAL 

ARRAY 

362 

363/1 

YPENE 

REAL 

ARRAY 

360 

361/1 

YXK 

REAL 

ARRAY 

364 

365/1 

ZLNCO 

CNTRLP 

REAL 

SIMPLE 

318 

509/S 

PROCEDURE 

MAP 

Tvnc 

M ACO^ 

44  CTRf  T 

O LA  o o 

"RcrtRcr 

D-5TIWT 

COS 

REAL 

INTRINSIC 

457 

466 

COTAN 

REAL 

INTRINSIC 

477 

478 

EXPBYK 

REAL 

FUNCTION 

448 

MOD 

INTEGER 

INTRINSIC 

426 

M0DHM5 

INTEGER 

FUNCTION 

497 

499 

08VMKO 

BIT 

INTRINSIC 

414 

415 

471 

4G0/S  460 


C3 

W 

ns 
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484 
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SUBROUTINE  OIFFQ  <N1,  M2.  Jl 


VDIFFQ  2 

C VDIFFQ  3 
C UTILITY  SUBROUTINE  TO  SUBTRACT  4TH-0RDER  MODEL  VALUES  VDIFFQ  4 
C VDIFFQ  5 
C ARGUMENTS  DESCRIPTION  VDIFFQ  6 
C N 1 TIME  STEP  POINTER  OF  VALUES  FROM  WHICH  TO  SUBTRACT  VDIFFQ  7 


C N2  TIME  STEP  POINTER  OF  VALUES  TO  SUBTRACT 

C d LATITUDE  GRID  BAND 

C 

c 

c CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00002 

COMMON  /CCNTRL / 

CCO 

00003 

COMMON  / CCNTRL/ 

ADATE 

00004 

COMMON  /CCNTRL/ 

ATIME 

00005 

COMMON  /CCNTRL/ 

JIC 

00006 

COMMON  /CCNTRL/ 

JOB 

00007 

COMMON  /CCNTRL/ 

CCSP06 

coooa 

COMMON  /CCNTRL/ 

CCSP07 

00009 

COMMON  /CCNTRL/ 

CCSP08 

00010 

COMMON  /CCNTRL/ 

VER 

0001  1 

COMMON  /CCNTRL/ 

XLABEL  (10) 

00012 

COMMON  /CCNTRL/ 

COS  <301 

000  13 

COMMON  /CCNTRL/ 

COU  < 10 ) 

00014 

EQUIVALENCE 

<CCO,CC { 1 ) ) 

00015 

CHA RACTER  * 8 

CCO,  CC  < 200 ) 

000  16 

CHARACTER'S 

ADATE 

00017 

CHARACTER'8 

ATIME 

000  IS 

CHARACTER'S 

JIC 

00019 

CHARACTER'S 

JOB 

00020 

CHARACTER'S 

CCSP06 

00021 

CHARACTER'S 

CCSP07 

00022 

CHARACTER'S 

CCSP08 

00023 

CHARACTER '8 

VER 

00024 

CHARACTER'S 

KLABEL 

00025 

CHARACTER'S 

CQS 

00026 

CHARACTER'S 

CQU 

C 

C INTEGER  MODEL  PARAMETERS  SAVED  ON. HISTORY  RECORD 


00027 

COMMON 

/ ICNTRL/ 

ICO 

00028 

COMMON 

/ ICNTRL/ 

IM 

00029 

COMMON 

/ICNTRL/ 

IMD2 

00030 

COMMON 

/ICNTRL/ 

IMD2P 1 

00031 

COMMON 

/ICNTRL/ 

NDRSW 

00032 

COMMON 

/ ICNTRL/ 

JM 

00033 

COMMON 

/ICNTRL/ 

jr, ID  2 

00034 

COMMON 

/ICNTRL/ 

JMT2 

00035 

COMMON 

/ICNTRL/ 

dNP 

00036 

COMMON 

/ICNTRL/ 

d04 

00037 

COMMON 

/ICNTRL/ 

dOS 

0003S 

COMMON 

/ICNTRL/ 

dSP 

00039 

COMMON 

/ICNTRL/ 

KL 1 ALB 

00040 

COMMON 

/ICNTRL/ 

KLIGW 

0004  1 

COMMON 

/ICNTRL/ 

KLI5ST 

00042 

COMMON 

/ICNTRL/ 

KS 

00043 

COMMON 

/ICNTRL/ 

KU 

00044 

COMMON 

/ICNTRL/ 

LOGSR 

00045 

COMMON 

/ICNTRL/ 

MATIN 

00046 

COMMON 

/ICNTRL/ 

MATGN# 

00047 

COMMON 

/ICNTRL/ 

MATSUN 

00043 

COMMON 

/ICNTRL/ 

MLF  (12) 

00049 

COMMON 

/ICNTRL/ 

MROD 

00050 

COMMON 

/ICNTRL/ 

NKRSH 

00051 

COMMON 

/ICNTRL/ 

MSM 

00052 

COMMON 

/ICNTRL/ 

NB 

00053 

COMMON 

/ICNTRL/ 

ND 

00054 

COMMON 

/ICNTRL/ 

NDALT 

00055 

COMMON 

/ICNTRL/ 

NDA  V 

00056 

COMPTON 

/ICNTRL/ 

NDOUT 

VDIFFQ  B 
VDIFFQ  9 
VDIFFQ  10 
VCNTRL  2 
VCNTRL  3 
VCNTRL  4 
VCNTRL  5 
VCNTRL  6 
VCNTRL  7 
VCNTRL  8 
VCNTRL  9 
VCNTRL  10 
VCNTRL  11 
VCNTRL  12 
VCNTRL  13 
VCNTRL  14 
VCNTRL  15 
VCNTRL  IS 
VCNTRL  17 
VCNTRL  18 
VCNTRL  19 
VCNTRL  20 
VCNTRL  21 
VCNTRL  22 
VCNTRL  23 
VCNTRL  24 
VCNTRL  25 
VCNTRL  26 
VCNTRL  27 
VCNTRL  28 
VCNTRL  29 
VCNTRL  30 
VCNTRL  31 
VCNTRL  32 
VCNTRL  33 
VCNTRL  14 
VCNTRL 
VCNTRt 
VCNTlil.  37 
VCNTRL  38 
VCNTRL  39 
VCNTRL  40 
VCNTRL  41 
VCNTRL  42 
VCNTRL  43 
VCNTRL  44 
VCNTRL  45 
VCNTRL  46 
VCNTRL  47 
VCNTRL  48 
VCNTRL  49 
VCNTRL  50 
VCNTRL  51 
VCNTRL  52 
VCNTRL  53 
VCNTRL  54 
VCNTRL  55 
VCNTRL  56 
VCNTRL  57 
VCNTRL  58 
VCNTRL  59 
VCNTRL  6C 
VCNTRL  61 
VCNTRL  62 

VCNTRL  63  C? 
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00057 

00058 

00059 
00050 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
0008  1 
00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 


00097 

00098 

00099 

00100 
0010T 
00102 

00103 

00104 
00  1 05 
00106 

00107 

00108 

00109 

00110 
00111 
00112 
00113 

00  114 

00115 

00116 
00117 

001  18 
00  119 
00120 


COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSKF 
COMMON  /ICNTRL/  NOT 
COMMON  / I CNTRL  / NHM5 
COMMON  /I CNTRL/  NHMSE 
COMMON  / I CNTRL/  NHMSO 
COMMON  /I CNTRL''  NLAY 
COMMON  / I CNTRL / NLA YM 1 
COMMON  / ICNTRL / NLA YP 1 
COMMON  /ICNTRL/  NSOAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  IBLKSIZ 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINIT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDHOG 
COMMON  /ICNTRL/  IQS  <301 
COMMON  /ICNTRL/  IOU  (10) 

° EQUIVALENCE  (ITMIN  .ios<  in 

EQUIVALENCE  (UMAX  .IQS<  2 ) 

EQUIVALENCE  (IPREACC  . IQS(  3) 

EQUIVALENCE  UPRECON  . IOS<  4)) 

EQUIVALENCE  11HFLUX  .IQSj  5j) 

EQUIVALENCE  <IEFLUX  .IQS  6 

EQUIVALENCE  (IFUSION  .IOS<  7 1 

EQUIVALENCE  (IRADSV/G  . IQS1  8> 

EQUIVALENCE  (IRADLV/G  . I QS  i 9[) 

EQUIVALENCE  {I1CLOUD  .I0S11O 

EQUIVALENCE  (IUFLUX  .IQS(ID) 

EQUIVALENCE  (IVFLUX  .IQSM2)) 

C EQUIVALENCE  (IOMEGA  . IQUJ  1j| 

EQUIVALENCE  (IDIABAT  . I QU ( 21 

EQUIVALENCE  (1BADSW  . I QU ( 3)1 

EQUIVALENCE  ( I RADLW  , 1 QU  < 4)) 

(j 

equivalence  uco.ion)) 

INTEGER  ICO.  IC<200) 

C LOGICAL  MODEL  PARAMETERS  SAVED  ON_H I STORY  RECORD 

° COMMON  /LCNTRL/  LCO 

COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL/  QBEG 
COMMON  /LCNTRL/  QDAY 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMMON  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 
COMMON  /LCNTRL/  QRSW 
COMMON  /LCNTRL/  QRSH 
COMMON  /LCNTRL/  LQS<30> 

COMMON  /LCNTRL/  LQUMO) 

C EQUIVALENCE  (LTMIN  ,LQS<  1)J 

EQUIVALENCE  (LTMAX  ,LQ5<  2)) 

EQUIVALENCE  (LPREACC  « LQSt  3> 

EQUIVALENCE  ( LPRECON  «LQS(  4)1 

EQUIVALENCE  (LHFLUX  ,LQS(  5)) 

EQUIVALENCE  1LEFLUX  ,LQS(  6)) 

EQUIVALENCE  (LFUSlON  ,LQS(  7)) 

EQUIVALENCE  (LRADSWG  ,LQS(  8)) 

EQUIVALENCE  (LRADLWG  ,LQS<  9M 

EQUIVALENCE  (LICLOUD  .LQS(IO)) 

EQUIVALENCE  (LUFLUX  ,LOS(llM 


VCNTRL  64 
VCNTRL  65 
VCNTRL  66 
VCNTRL  67 
VCNTRL  68 
VCNTRL  69 
VCNTRL  70 
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VCNTRL  88 
VCNTRL  89 
VCNTRL  90 
VCNTRL  91 
VCNTRL  92 
VCNTRL  93 
VCNTRL  94 
VCNTRL  95 
VCNTRL  96 
VCNTRL  97 
VCNTRL  98 
VCNTRL  99 
VCNTRL  100 
VCNTRL  101 
VCNTRL  102 
VCNTRL  103 
VCNTRL  104 
VCNTRL  105 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  110 
VCNTRL  l 1 1 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  115 
VCNTRL  116 
VCNTRL  117 
VCNTRL  118 
VCNTRL  119 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 
VCNTRL  128 
VCNTRL  129 
VCNTRL  130 
VCNTRL  131 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
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00  121 

00  1 22 
00  1 23 

00124 

00125 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 
00  134 
00135 

00  136 
00  137 

00138 

00139 

00140 

00141 
00  142 
00  143 
00  144 
00  145 
00  146 
00147 
00143 
00  149 

00  150 

00151 

00152 

00153 

00154 

00155 


00  156 
00  157 
00  15B 

00  159 
00160 
00161 
00162 

00163 

00164 

00165 

00166 
00167 

001  68 
00169 
00  170 

00171 

00172 

00173 
00  174 

00175 

00176 
00  177 
00  1 78 
00  179 
00  180 
00  IS  1 
00  1 82 
00  183 


EQUIVALENCE 

< LVFLUX 

, LQS 1 12) ) 

equivalence 

( LOMEGA 

, LQU  ( in 

equivalence 

1LDIABAT 

♦ LQU ( 2)) 

EQUIVALENCE 

(LRAOSW 

, LQU < 3)) 

EQUIVALENCE 

( LRADLW 

. LOU'  4 > ) 

LOGICAL 

QALT 

LOGICAL 

QBEG 

LOGICAL 

QDAY 

LOGICAL 

QEND 

LOGICAL 

QOUT 

LOGICAL 

QPHY 

LOGICAL 

QSHF 

LOGICAL 

SN2FLG 

LOGICAL 

QRSW 

LOGICAL 

QRSH 

LOGICAL 

LQS 

LOGICAL 

LQU 

LOGICAL 

LTMIN 

LOGICAL 

LTMAX 

LOGICAL 

LPREACC 

LOGICAL 

LPRECON 

LOGICAL 

LHFLUX 

LOGICAL 

LEFLUX 

LOGICAL 

LFUSION 

LOGICAL 

LRADSWG 

LOGICAL 

LRADLWG 

LOGICAL 

LICLOUD 

LOGICAL 

LUFLUX 

LOGICAL 

LVFLUX 

LOGICAL 

LOMEGA 

LOGICAL 

LDIABAT 

LOGICAL 

LRAOSW 

LOGICAL 

LRADLW 

EQUIVALENCE 

( LCO . LC  ( 1 > > 

LOGICAL 

LCD.  LC ( 200  ) 

REAL  MODEL  PARAMETERS  SAVED 

ON  HISTORY 

COMMON  /RCNTRL/  RCO 
COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSO 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYSPY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  DECMAX 
COMMON  /RCNTRL/  D1ST 
COMMON  /RCNTRL/  DLAT 
COMMON  /RCNTRL/  DLON 
COMMON  /RCNTRL/  OT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNU1 
COMMON  /RCNTRL/  GNU 2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  0MEGA2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PIMEAN 
COMMON  /RCNTRL/  PSMAX 
COMMON  /RCNTRL/  PSMIN 
COMMON  /RCNTRL/  PTOP 
COMMON  /RCNTRL/  RADE 
COMMON  /RCNTRL/  RGAS 
COMMON  /RCNTRL/  ROCP 


VCNTRL  135 
VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  141 
VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  ISO 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  180 
VCNTRL  1 B 1 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  189 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCNTRL  199 
VCNTRL  200 
VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 


a 

M 


£ 
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V -v,-,  

U 


, 

00  184 

COMMON 

/ RCNTRL / 

RSDIST 

1 

00  185 

COMMON 

/ RCNTRL / 

SDAY 

00  186 

COMMON 

/RCNTRL/ 

SEASON 

00187 

COMMON 

/RCNTRL/ 

SIGE 

( 25  > 

00188 

COMMON 

/RCNTRL/ 

SIND 

00  183 

COMMON 

/RCNTRL/ 

SOLS 

00190 

COMMON 

/RCNTRL/ 

TSTD 

00191 

COMMON 

/RCNTRL/ 

PLEVS 

(25) 

L 

00192 

COMMON 

/RCNTRL/ 

HE  A TV/ 

00193 

COMMON 

/RCNTRL/ 

HEAT! 

5 

00194 

COMMON 

/RCNTRL/ 

EPS 

i 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

i 

00196 

COMMON 

/RCNTRL/ 

CALTOJ 

i 

00197 

COMMON 

/RCNTRL/ 

PZERO 

00  198 

EQUIVALENCE 

( RCO , RC( 1 ) ) 

! '! 

00199 

REAL 

RCO , RC  f 200 ) 

C 

INTEGER  MODEL  CONSTANTS 

00200 

COMMON 

/ IDPARM/ 

I JUMP 

(46  ) 

00201 

COMMON 

/ IDPARM/ 

IDSP02 

00202 

COMMON 

/IDPARM/ 

INDEX 

(72  > 

00203 

COMMON 

/IDPARM/ 

tROD 

00204 

COMMON 

/IDPARM/ 

JC 

( 46  ► 

1 

00205 

COMMON 

/IDPARM/ 

JE 

(21 

A;  0 0206 

COMMON 

/IDPARM/ 

JP 

(2,21 

■V-  00207 

COMMON 

/IDPARM/ 

KSTEP 

4 

00208 

COMMON 

/IDPARM/ 

Md 

(46) 

* 

00209 

COMMON 

/IDPARM/ 

NHMS1 

> 

00210 

Q 

COMMON 

/IDPARM/ 

NYMD  1 

i 

c 

LOGICAL  MODEL  CONSTANTS 

: J 

c 

0021  1 

COMMON 

/LDPARM/ 

FILTER 

(46) 

i 

00212 

COMMON 

/ LDPARM/ 

I TAPE 

00213 

p 

COMMON 

/LDPARM/ 

START 

00214 

U 

LOGICAL 

FILTER 

00215 

LOGICAL 

ITAPE 

00216 

p 

LOGICAL 

START 

| 

V 

c 

REAL  MODEL  CONSTANTS 

f - 

c 

a 

l 

00217 

COMMON 

/RDPARM/ 

ADLDP 

i 

00218 

COMMON 

/RDPARM/ 

CONI 

i • 

00219 

COMMON 

/RDPARM/ 

CON IDT 

00220 

COMMON 

/RDPARM/ 

C0N2 

i • 

00221 

COMMON 

/RDPARM/ 

C0N2DT 

00222 

COMMON 

/RDPARM/ 

C0N3 

00223 

COMMON 

/RDPARM/ 

C0N3DT 

00224 

COMMON 

/RDPARM/ 

CON4 

00225 

COMMON 

/RDPARM/ 

CON4DT 

00225 

COMMON 

/RDPARM/ 

CONS 

00227 

COMMON 

/RDPARM/ 

COSL 

(46) 

00  228 

COMMON 

/RDPARM/ 

COSLON 

(72  > 

i 

00229 

COMMON 

/RDPARM/ 

CPD2 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

\ 

00231 

COMMON 

/ROPARM/ 

DXYP 

(46) 

] 

00232 

COMMON 

/RDPARM/ 

DYP 

(46) 

00233 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

r 

00234 

COMMON 

/RDPARM/ 

F1DT 

00235 

COMMON 

/RDPARM/ 

F2DT 

: !! 

00236 

COMMON 

/RDPARM/ 

H1DT 

00237 

COMMON 

/RDPARM/ 

H2DT 

0023S 

COMMON 

/RDPARM/ 

PKSTD 

00239 

COMMON 

/RDPARM/ 

PKTOP 

00240 

COMMON 

/RDPARM/ 

RLAT 

(46) 

*, 

00241 

COMMON 

/RDPARM/ 

RLATD 

(46) 

00242 

COMMON 

/RDPARM/ 

ROCPDT 

?• 

00243 

COMMON 

/RDPARM/ 

R0CPP1 

VCNTRL  206 
VCN  TRL  207 
VCNTRL  206 
VCNTRL  203 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCMTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  243 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 

VCNTRL  265  * 

VCNTRL  266 

VCNTRL  267 

VCNTRL  268 

VCNTRL  269 

VCNTRL  270 

VCNTRL  27 t 

VCNTRL  272 

VCNTRL  273 

VCNTRL  274 

VCNTRL  275 

VCNTRL  276 
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00244 

00245 

00246 
00147 
00248 
002*49 
00250 
JO  25 1 
00252 


00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
0026 1 

00262 

00263 

00264 

00265 

00266 

00267 

0026B 

00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 


00280 

00281 

00282 

00283 


00284 

00285 

00286 

00287 

00288 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 


(2) 

(46) 


SGNP 
SI  NL 
SINLON  (72) 
THSTD 
TH5TD2 
WSAVE 
DSIG 
S1G 


< 159) 
(9) 
(9) 


DSIGINV  (9) 


COMDECK  VQANDQT  RESOLUTION  VALUES 


IM 

NLA  y 
UP/I-  1 
NLAY* 1 1 
IM*  NLAY* 1 1 
JM/2* 1 


= 72 
= 9 
= 46 
= 99 
= 7128 
= 23 


GLOBAL  MODEL  PROGNOSTIC  FIELDS  (NEEDED  IN  COMPO) 


SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COMPO ) 


COMMON 

DIMENSION 

EQUIVALENCE 

COMMON 


/ QANDQT / OSD  I AG (72 
IQSDIAGC72 


( OSD I AG , IQSDIAG) 

/ QANDQT / QUDI AG<  72.  9 , 5 , 46 > 


,15,46) 

, 15,46) 


POLAR  MODEL  PROGNOSTIC  FIELDS 
COMMON  / QPOLES/  PP<2,2> 
COMP/ION  /QPOLES/  UP <9 ,2,2) 
COMMON  /QPOLES/  VP (9, 2, 2) 
COMMON  /QPOLES/  TP(9,2r2> 
COMPAQ N /QPOLES/  SHPf9,2,2) 


VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VQANDOT 
VOANDOT 
VOANDQT 
VOANDOT 
VOANDOT 
VQANDOT 
VQANDOT 
VOANDQT 
VQANDOT  10 
VQANDQT  11 
VQANDQT  12 


= 

= = = 

VOANDQT 

13 

VQANDQT 

14 

COMMON 

/QANDQT/  OPROG (72,9, 1 1 ,46) 

VQANDQT 

15 

VQANDQT 

16 

DIMENSION 

PHIS 

(7128,1) 

VOANDQT 

17 

D 1 MENS  I ON 

SMTH 

(7128,23) 

VQANDQT 

18 

DIMENSION 

ALBEDO 

(7128,1) 

VQANDQT 

19 

DIMENSION 

GT 

(7128,  1 ) 

VQANDQT 

20 

DIMENSION 

GW 

(7128,1) 

VQANDQT 

21 

DIMENSION 

TS 

(7128, 1 ) 

VOANDQT 

22 

DIMENSION 

SHS 

(7128, 1 ) 

VQANDQT 

23 

DIMENSION 

P 

(72,99,1) 

VQANDQT 

24 

VQANDQT 

25 

DIMENSION 

U 

(72.9, 11,1) 

VQANDQT 

26 

DIMENSION 

V 

(72,9,11,1) 

VQANDQT 

27 

DIMENSION 

T 

(72.9,11,1) 

VQANDQT 

28 

DIMENSION 

SH 

(72,9,11,1) 

VQANDQT 

29 

DIMENSION 

PHI 

(72.9, 11,11 

VQANDQT 

30 

VOANDQT 

31 

equivalence 

(QPHOG( 

1 , 1,1,1)  , PHIS  ( 1 

1 ) ) 

VOANDQT 

32 

EQUIVALENCE 

<QPROG( 

1,  2,1*1), SMTH  (1 

1 ) > 

VQANDOT 

33 

EQUIVALENCE 

( QPROG ( 

1 . 3,1,1) , ALBEDO! 1 

1 > ) 

VOANDQT 

34 

EQUIVALENCE 

f QPROG ( 

1 , 4 , 1 , 1 ) ,GT  (1 

1 ) ) 

VQANDOT 

35 

EQUIVALENCE 

(OPROGI 

1 , 5 , 1 , 1 ) , GW  (1 

1 ) > 

VOANDQT 

36 

EQUIVALENCE 

( QPROG  ( 

1 , 6, 1 , 1 > ,TS  ( 1 

1 > ) 

VOANDOT 

37 

EQUIVALENCE 

( QPROG  < 

1 , 7.1,1)  .SHS  < 1 

1 ) > 

VOANDOT 

38 

EQUIVALENCE 

( QPROG ( 

1 , 8. 1 , 1) , P ( T 

1,1)) 

VOANDQT 

39 

VOANDOT 

40 

EQUIVALENCE 

( QPROG ( 

1*1,  2, 1 ) ,U  (1.1, 

, 1 ) > 

VQANDQT 

41 

EQUIVALENCE 

(QPR0G1 

1,1*  4 , 1 ) , V (1,1, 

, 1 ) > 

VQANDQT 

42 

EQUIVALENCE 

( QPROG( 

1,1,  6, 1 ) , T (1.1. 

. 1 ) ) 

VQANDOT 

43 

EQUIVALENCE 

( QPROG( 

1*1,  0 . 1 ) . SH  < 1 . t , 

, 1 ) ) 

VQANDQT 

44 

EQUIVALENCE 

( QPROG ( 

1 , 1 , 10, 1)  , PHI <1  , T , 

, 1 ) ) 

VQANDQT 

45 

VQANDQT  46 
VOANDQT  47 
VOANDQT  48 
VOANDQT  49 
VQANDQT  50 
VOANDOT  51 
VQANDQT  52 
VOANDQT  53 
VOANDQT  54 
VOANDOT  55 
VOPOLES 
VOPOLES 
VOPOLES 
VOPOLES 
VOPOLES 
VOPOLES 
VOPOLES 


O 

M 

<0 

Ul 
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00289 

00290 


0029  1 


00292 

00293 


00294 

00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

STATEMENT 
- -LABEL 

1 0 

10000 

50 

VARIABLE 
--NAME 


COMMON  / QP0LE5/  PHI P <9,2,21 


I MM  1 , 
IMT2, 
IMNLAY1 , 


I mz , 

IMT4  . 
IMNLAY2 , 


I MM3, 


COMMON  /I MUM/ 

S 

S IMNLAY, 

S IMD2M1, 

S NLA YT2 , 

C * * ♦ 

C DEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION  00.001  INPUT  100 

^ CYBER  VECTOR  VERSION  00 


IMM4  , 


I MM5  , 


IMNLAY3,  IMNLAY4,  IMNLAY5. 


NLAYT3,  NLAYT4,  NLAYT5,  NLAYT6.  NLAVT7 


VQPOLES  9 
VOPOLES  10 
VIMJM 
V I M JM 
VIMJM 
VIMJM 
VIMJM 
VDIFFQ 
VBEGDEB 
VBEGDEB 
VBEGDEB 


O 

W 

ON 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSVBEGDEB 


c 

c 


IF  (M.Eq.O)  GO  TO  50 

POLE  POINT 

PP ( N 1 ,MI  = PP  < N 1 , M 1 - PP(N2,M) 

DO  10  L=1 , NLAY 

Up ( L , N 1 ,M)  = UP  f L , N1 ,M)  - UP  < L , N2 , M ) 
VPiUNUMJ  « VP<L.N1,M>  - VP<l;N2:M) 

T P < L , N 1 ,M)  = TP ( L , N 1 , M ) - TP<L,N2,M) 

SHP  < L , N 1 , M J = SHP ( L »N 1 , M ) - SHP<L,N2,M> 
CONTINUE 


10 

50 


CONTINUE 

P< 1 ,N1 t J; IM)  = P< 1 ,N1 . J; IM) 


U< 1 , 1 , N 1 . J; IMNLAY) 
V< 1 , 1 ,N1 , J ; IMNLAY) 
T<1, I ,N1 , J; IMNLAY) 
SH< 1 . 1 ,N1 , J; IMNLAY) 
RETURN 

END 

LABEL  MAP 

DEFINED REFERENCES 


P<  1 * N2 , J ; IM) 

UM  . 1 ,N1  t J;  IMNLAY)  - U(1  , 1 , N2  , J ; IMNLAY ) 
V(  1 , 1 ,N1  . J;  IMNLAY')  - V M t 1 . N2 , J ; IMNLAV | 
T< 1 , 1 ,N1 p J;IMNLAY)  - T ( 1 , 1 . N2 , J ; IMNLAY > 
SHU  , 1 ,N1  , J;  IMNLAY)  - SH < 1 . 1 . N2 , J ; IMNLAY > 


VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 

VDIFFQ 


2 

3 

4 

5 

6 
15 

2 

3 

4 

5 

6 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


300 
291 

301 


295 

293 


MAP 


ADATE 

APLDP 

ALBEDO 

APHEL 

ATIME 

BETA 

CAL  TO J 

CC 

CCO 

CCNTRL 

CCSP06 

CCSP07 

CCSPOB 

CONI 

C0N10T 

COM2 

C0N2DT 

C0N3 

C0N3DT 

COM4 

C0N4DT 

CONS 

COSD 

COSL 

COS L ON 


-BLOCK 

-- - TYPE 

--CLASS 

REFEREi 

CCNTRL 

CHARTS 

SIMPLE 

3 

RDPARM 

REAL 

SIMPLE 

2 1 7 

QANDQT 

REAL 

ARRAY 

256 

RCNTRL 

REAL 

SIMPLE 

157 

CCNTRL 

CHAR*8 

SIMPLE 

4 

RCNTRL 

REAL 

SIMPLE 

158 

RCNTRL 

REAL 

SIMPLE 

1 96 

CCNTRL 

CHAR*8 

ARRAY 

14 

CCNTRL 

CHAR  *8 

SIMPLE 

2 

REAL 

UNKNOWN 

2 

CCNTRL 

CHAR  *8 

SIMPLE 

13 

7 

CCNTRL 

CHAR*8 

SIMPLE 

8 

CCNTRL 

CHAR  *8 

SIMPLE 

9 

RDPARM 

REAL 

SIMPLE 

218 

RDPARM 

REAL 

SIMPLE 

2 1 9 

RDPARM 

REAL 

SIMPLE 

220 

RDPARM 

REAL 

SIMPLE 

221 

RDPARM 

REAL 

SIMPLE 

222 

RDPARM 

REAL 

SIMPLE 

223 

RDPARM 

REAL 

SIMPLE 

224 

RDPARM 

REAL 

SIMPLE 

225 

RDPARM 

REAL 

SIMPLE 

226 

RCNTRL 

REAL 

SIMPLE 

1 59 

RDPARM 

REAL 

ARRAY 

227 

RDPARM 

REAL 

ARRAY 

228 

A^ARGLIST,  C=CTRL  OF  DO,  t=DATA  INIT,  REREAD,  S=STORE,  W=WRITE 


16 

269 

17 


15 

14 

3 

20 

21 

22 


15 

4 


10 


1 1 


12 


ORIGIN/jl  P/\ign?  eg 

OF  POOR  QUALITY 


CP 

RCNTRL 

REAL 

SIMPLE 

160 

CP02 

RDPARM 

REAL 

SIMPLE 

229 

CQS 

CCNTRL 

CHARTS 

ARRAY 

12 

25 

COU 

CCNTRL 

CHAR ♦S 

ARRAY 

13 

26 

DA YSPY 

RCNTRL 

REAL 

SIMPLE 

161 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

163 

DIFFQ 

SUBROUTINE 

1 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

OSIGINV 

RDPARM 

REAL 

ARRAY 

25  2 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

DXP 

RDPARM 

REAL 

ARRAY 

230 

■DX  YP 

RDPARM 

REAL 

ARRAY 

231 

DYP 

RDPARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

E PS  FAC 

RCNTRL 

REAL 

SIMPLE 

195 

F IDT 

RDPARM 

REAL 

SIMPLE 

234 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

FILTER 

LDP ARM 

LOGICAL 

ARRAY 

21  1 

2 14 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU2 

RCNTRL 

REAL 

SIMPLE 

170 

GRAV 

RCNTRL 

REAL 

SIMPLE 

171 

GT 

OANDQT 

REAL 

ARRAY 

257 

270 

GW 

QANDQT 

REAL 

ARRAY 

258 

27  1 

H IDT 

RDPARM 

REAL 

SIMPLE 

236 

H2DT 

RDPARM 

REAL 

SIMPLE 

23  7 

heati 

RCNTRL 

REAL 

SIMPLE 

193 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

29 

30 

3 1 

38 

39 

40 

4 1 

42 

49 

50 

51 

52 

53 

60 

61 

62 

63 

64 

71 

72 

73 

74 

75 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

IDP ARM 

INTEGER 

UNKNOWN 

200 

201 

202 

203 

204 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

201 

I E FLUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

I HF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

83 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

88 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

200 

IM 

ICNTRL 

INTEGER 

SIMPLE 

28 

302 

302 

302 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

29 

IMD2MT 

IMJM 

INTEGER 

SIMPLE 

290 

IMD2P 1 

ICNTRL 

INTEGER 

SIMPLE 

30 

I MUM 

INTEGER 

UNKNOWN 

290 

I MM  1 

IMJM 

INTEGER 

SIMPLE 

290 

I MM2 

IMJM 

INTEGER 

simple 

290 

I MM3 

IMJM 

INTEGER 

SIMPLE 

290 

IMM4 

IMJM 

INTEGER 

SIMPLE 

290 

IMM5 

IMJM 

INTEGER 

SIMPLE 

290 

IMNLAY 

IMJM 

INTEGER 

SIMPLE 

290 

303 

303 

303 

304 

306 

306 

IMNLAY  t 

IMJM 

INTEGER 

SIMPLE 

290 

IMNLAY2 

IMJM 

INTEGER 

SIMPLE 

290 

IMNLAY3 

IMJM 

INTEGER 

SIMPLE 

290 

1MNLAY4 

IMJM 

INTEGER 

SIMPLE 

290 

IMNLAY5 

IMJM 

INTEGER 

SIMPLE 

290 

IMT2 

IMJM 

INTEGER 

SIMPLE 

290 

IMT4 

IMJM 

INTEGER 

SIMPLE 

290 

INDEX 

IDPARM 

INTEGER 

ARRAY 

202 

0 Q 
*n  2 
•B  § 

01 

O 3? 

■o  s 
c s 

•ip  0 

3® 


32 

33 

34 

43 

44 

45 

54 

55 

56 

65 

66 

67 

76 

77 

78 

205 

206 

207 

30d  304  305 


35 

36 

37 

46 

47 

48 

57 

58 

59 

68 

69 

70 

208 

209 

210 

305  305  306 


a 

H 


L 


IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

91 

I P RE ACC 

ICNTRL 

INTEGER 

UNKNOWN 

81 

I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

82 

IOS 

ICNTRL 

INTEGER 

ARRAY 

77 

79 

89 

90 

IOSDI AG 

OANDQT 

INTEGER 

ARRAY 

281 

282 

IQU 

ICNTRL 

INTEGER 

ARRAY 

76 

91 

1RA0LW 

ICNTRL 

INTEGER 

UNKNOWN 

94 

I RADLVJG 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

93 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

203 

I TAPE 

LDPARM 

LOGICAL 

SIMPLE 

212 

215 

UMAX 

ICNTRL 

INTEGER 

UNKNOWN 

80 

I TWIN 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IUFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IVFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

90 

J 

INTEGER 

SIMPLE 

1 

292 

305 

305 

JC 

IDPARM 

INTEGER 

ARRAY 

204 

UE 

IDPARM 

INTEGER 

ARRAY 

205 

JIC 

CCNTRL 

CHAR  *8 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

32 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

33 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

34 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

35 

J04 

ICNTRL 

INTEGER 

SIMPLE 

36 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

37 

JOB 

CCNTRL 

CHAR'S 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

206 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

38 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

39 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

40 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

41 

KS 

ICNTRL 

INTEGER 

SIMPLE 

42 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

207 

ku 

ICNTRL 

INTEGER 

SIMPLE 

43 

L 

INTEGER 

SIMPLE 

295/C 

296 

299 

299 

LC 

LCNTRL 

LOGICAL 

ARRAY 

154 

155 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

97 

154 

LCNTRL 

INTEGER 

UNKNOWN 

97 

98 

108 

109 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

123 

151 

LDPARM 

INTEGER 

UNKNOWN 

21  1 

212 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

143 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

144 

LHFLUX 

LCNTRL 

LOGI CAL 

UNKNOWN 

1 14 

142 

LICLOUO 

LCNTRL 

LOGICAL 

UNKNOWN 

147 

LOGBR 

ICNTRL 

INTEGER 

SIMPLE 

LOWiEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

'22 

150 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

140 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

141 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

108 

1 10 

120 

121 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

109 

122 

LRAOLW 

LCNTRL 

LOGICAL 

UNKNOWN 

125 

153 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 18 

146 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

124 

152 

LRADSVIG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

145 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

139 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

138 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

120 

148 

L VF  LUX 

LCNTRL 

LOGICAL 

UNKNOWN 

121 

149 

M 

INTEGER 

SIMPLE 

292/S 

293 

298 

298 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

46 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

47 

MJ 

IDPARM 

INTEGER 

ARRAY 

208 

292 

1 


80 

81 

82 

83 

84 

85 

86 

87 

88 

92 

93 

94 

302  302  302  303  303  303  304  304 

305  306  306  306 


296  296  297 


155 

99  100  101 


213 


111  112  113 

136 

123  124  125 


294  294  294 

298  299  299 


297  297  298 

102  103  104 

114  115  116 

137 


296  296  296 

299 


298  298  299 

105  106  107 

117  118  119 

297  297  297 


ORIGINAL  P&<2£  53 
DIFFQ  8 OF  POOR  QUALITY 


MLF 

ICNTRL 

INTEGER 

ARRAY 

48 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

49 

MS  M 

ICNTRL 

INTEGER 

SIMPLE 

SI 

N 1 

INTEGER 

SIMPLE 

1 

294 

294 

296 

296 

297 

297 

298 

295 

299 

299 

302 

302 

303 

303 

304 

304 

305 

305 

306 

306 

N2 

INTEGER 

SIMPLE 

1 

294 

296 

297 

298 

299 

302 

303 

304 

305 

306 

NB 

ICNTRL 

INTEGER 

SIMPLE 

52 

NO 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDAV 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

76 

NOOUT 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

57 

NORSW 

ICNTRL 

INTEGER 

SIMPLE 

31 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

58 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

59 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

62 

NHMS1 

IDPARM 

INTEGER 

SIMPLE 

209 

NKM5E 

ICNTRL 

INTEGER 

SIMPLE 

61 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

50 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

63 

295 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

64 

NLA YP  t 

ICNTRL 

INTEGER 

SIMPLE 

65 

NLAYT2 

IMJM 

INTEGER 

SIMPLE 

290 

NLAYT3 

IMJM 

INTEGER 

SIMPLE 

290 

NLAYT4 

IMJM 

INTEGER 

SIMPLE 

290 

NLAYTS 

1 MJM 

INTEGER 

SIMPLE 

290 

NLAYT6 

IMJM 

INTEGER 

SIMPLE 

290 

NLAYT7 

IMJM 

INTEGER 

SIMPLE 

290 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

75 

NSOAY 

ICNTRL 

INTEGER 

SIMPLE 

66 

NSE0 

ICNTRL 

INTEGER 

SIMPLE 

67 

o o 

NS*«P 

ICNTRL 

INTEGER 

SIMPLE 

69 

■n  gj 

NY) sa 

ICNTRL 

INTEGER 

SIMPLE 

71 

NY  MOO 

ICNTRL 

INTEGER 

SIMPLE 

73 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

210 

o § 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

72 

o 35 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

74 

pa? 

0MEGA2 

RCNTRL 

REAL 

SIMPLE 

172 

P 

QANDOT 

REAL 

ARRAY 

261 

274 

302/S 

302 

302 

tO 

PHI 

OANDQT 

REAL 

ARRAY 

2 66 

279 

PHIP 

OPOLES 

REAL 

ARRAY 

289 

V— « ^ 

PHIS 

QANDQT 

REAL 

ARRAY 

254 

267 

im> 

PI 

RCNTRL 

REAL 

SIMPLE 

173 

PI  180 

RCNTRL 

REAL 

SIMPLE 

174 

P I 2 

RCNTRL 

REAL 

SIMPLE 

175 

< es 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

177 

PKSTD 

RDPARM 

REAL 

SIMPLE 

238 

PKTOP 

RDPARM 

REAL 

SIMPLE 

239 

PLEVS 

RCNTRL 

REAL 

ARRAY 

191 

PP 

QPOLES 

REAL 

ARRAY 

284 

294  /S 

294 

294 

psmx 

RCNTRL 

REAL 

SIMPLE 

178 

P5MIN 

RCNTRL 

REAL 

SIMPLE 

179 

PSTD 

RCNTRL 

REAL 

SIMPLE 

176 

PTOP 

RCNTRL 

REAL 

SIMPLE 

180 

PZERO 

RCNTRL 

REAL 

SIMPLE 

197 

QALT 

LCNTRL 

logical 

SIMPLE 

98 

126 

QANDOT 

REAL 

UNKNOWN 

253 

280 

283 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

99 

127 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

100 

128 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

101 

129 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

102 

130 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

103 

131 

QP0LE5 

REAL 

UNKNOWN 

284 

285 

286 

287 

28B 

289 

QPROG 

QANDOT 

REAL 

ARRAY 

253 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

107 

135 

O 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

106 

134 

H 

O 

VO 


OSD I AG 

QSHF 

QUDIAG 

RADE 

RC 

RCO 

RCNTRL 


RDPARM 


RGAS 

RLAT 

RLATD 

ROCP 

ROCPDT 

ROCPP 1 

RSDIST 

SDAY 

SEASON 

SGNP 

SH 

SHP 

SHS 

SIG 

SZGE 

SIND 

SINL 

SINLON 

SMTH 

5N2FLG 

SOLS 

START 

T 

THSTD 

THSTD2 

TP 

TS 

TSTD 

U 

UP 

V 

VER 

VP 

WSAVE 
X LAB EL 


OANDOT 

LCNTRL 

QAfJDQT 

RCNTRL 

RCNTRL 

RCNTRL 


RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

OANDOT 

QPOLES 

OANDOT 

RDPARM 

RCNTRL 

RCNTRL 

RDPARM 

ROPARM 

QANDOT 

LCNTRL 

RCNTRL 

LDPARM 

QANDQT 

RDPARM 

RDPARM 

QPOLES 

QANDQT 

RCNTRL 

OANDOT 

QPOLES 

OANDOT 

CCNTRL 

OPOLES 

RDPARM 

CCNTRL 


REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 


REAL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

real 

REAL 
CHAR  *8 
REAL 
REAL 
CHARTS 


ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 


UNKNOWN 


SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

array 

ARRAY 

SIMPLE 

array 

array 

array 

SIMPLE 

SIMPLE 

SIMPLE 

array 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

array 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 


280 
1 04 
283 
tai 
T 98 
156 
156 
167 
178 
189 
217 
22B 

239 
250 
182 

240 
24  1 

183 

242 

243 

184 

185 

186 

244 


260 

251 

187 

188 

245 

246 
255 
105 
1B9 
213 
264 

247 

248 
287 
259 
190 
262 

285 
263 

10 

286 

249 
1 1 


282 

132 


199 
198 
157 
168 
179 
190 
218 
229 
240 
25  1 


199 
158 
169 
180 
191 
219 
230 
24  1 


159 

170 

181 

192 

220 

231 

242 


160 

171 

182 

193 

221 

232 

243 


278 

299/S 

273 


306/S 

299 


306 

299 


306 


268 

133 


216 


277 

305/S 

305 

305 

298/S 

272 

298 

298 

275 

303/S 

303 

303 

296/S 

296 

296 

276 

23 

304/S 

304 

304 

297/S 

24 

297 

297 

161 

172 

183 

194 

222 

233 

244 


162 

173 

184 

195 

223 

234 

245 


163 

174 

185 

196 

224 

235 

246 


CJ 

tH 

2 

O 


164 

175 

186 

197 

225 

236 

247 


»'35 

176 

187 

226 

237 

248 


166 

177 

188 


227 

238 

249 


Q o 
2 5 

O 5 

si 


«Q  *a 

ess 
> m 
C iq 


ftKOE.  «LiL:JLLLi: 


c 
c 
c 
c 

00001 
00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 
000  1 1 
00012 

00013 

00014 

00015 

00016 

00017 

00018 
00019 

VARIABLE  WAP 


FUNCTION 

VEXPBYK ( XD , L ; * ) 

VEXPBYK 

2 

DESCRIPTOR  VEXPBYK. XD 

VEXPBYK 

3 

VEXPBYK 

= 

XO* * . 286 

VEXPBYK 

4 

RETURN 

VEXPBYK 

5 

FUNCTION 

VEXPBVKIXD.L: * 1 

VEXPBYK 

6 

COMMON/ 

WORKVE  / TMPR 15000) 

VEXPBYK 

7 

DESCRIPTOR  VEXPBYK , TEMP  ID. XD 

VEXPBYK 

a 

ASSIGN 

TEMP  ID , TMPR ( 1 ;L) 

VEXPBYK 

9 

VEXPBYH 

a 

V5QRT { XD;VEKPBYK) 

VEXPBYK 

to 

VEXPBYK 

- 

VSQRT (VEXPBYK ; VEXPBYK ) 

VEXPBYK 

1 1 

TEMP  ID 

= 

VSQRT (VEXPBYK: 

TEMP  ID ) 

VEXPBYK 

12 

TEMP  ID 

t: 

VSQRT ( TEMP  ID: 

TEMP  ID) 

VEXPBYK 

13 

TEMP  ID 

= 

VSQRT  t TEMP  1 D ; 

TEMP  ID) 

VEXPBYK 

14 

VEXPBYK 

VEXPBYK* TEMP  ID 

VEXPBYK 

15 

TEMP  ID 

= 

VSQRT  < TEMP  1 D ; 

TEMP  ID) 

VEXPBYK 

16 

TEMP  ID 

= 

VSQRT ( TEMP  10; 

TEMP  ID) 

VEXPBYK 

17 

TEMP  ID 

= 

VSQRT < TEMP  ID; 

TEMP  ID) 

VEXPBYK 

18 

VEXPBYK 

VEXPBYK*  TEMP  1 D 

VEXPBYK 

19 

TEMP  ID 

= 

VSQRT ( TEMP  ID; 

TEMP  ID) 

VEXPBYK 

20 

TEMP  ID 

- 

VSQRT ( TEMP10; 

TEMP  ID) 

VEXPBYK 

21 

VEXPBYK 

3 

VEXPBYK* TEMP  1 D 

VEXPBYK 

22 

RETURN 

VEXPBYK 

23 

END 

VEXPBYK 

24 

--NAME 

--BLOCK 

---TYPE 

--CLASS 

-REFERENCES 

A = 

ARGLIST. 

C-CTRL  OF 

DO.  I 

"DATA 

INI T * REREAD. 

S^STORE „ Wn 

WRITE 

L 

INTEGER 

SIMPLE 

1 

4 

TEMP  ID 

REAL 

DESCRIPTOR 

3 

4 

7/S 

7 

8/S 

8 

8 

9/S  9 

9 

10 

I 

1 1/S 

1 1 

1 1 

12/S 

12 

12 

13/S 

13  13 

14 

15 

15 

15 

16/S 

16 

16 

17 

TMPR 

WORKVE 

REAL 

ARRAY 

2 

4 

VEXPBYK 

REAL 

DESCP  * TOR 

1 

3 

5/S 

5 

6/S 

6 

6 

7 1 0 / S 

io 

14 

14 

17/S 

17 

WORKVE 

REAL 

UNKNOWN 

2 

XD 

REAL 

DESCRIPTOR 

1 

3 

5 

;! 

»'•! 

JtM 

d 

if 


1 


PROCEDURE  MAP 
--NAME TYPE- 


VSQRT 


REAL 


-CLASS 

INTRI 


N^IC 


-REFERENCES  D=STMT  FN  DEF . A= ARGL 1ST 

5 6 7 8 9 


1 1 


12 


13 


15 


16 


ORIGINAL  PASS  « DIFF<*  11 

OF  POOR  QUAUW 


C 

FUNCTION 

c 

EXPBYK  " 

c 

RETURN 

00001 

FUNCTION 

00002 

EXPBYK  = 

00003 

EXPBYK  = 

00004 

TEMPID  = 

00005 

TEMPID  « 

00006 

TEMPID  = 

00007 

EXPBYK  s 

00008 

TEMPID  = 

00009 

TEMPID  * 

000  10 

TEMPID  = 

0001  1 

EXPBYK  = 

00012 

TEMPID  = 

000  13 

TEMPID  = 

00014 

EXPBYK  =: 

00015 

RETURN 

000  16 

END 

VARIABLE 

MAP 

EXPBYMX) 
X**0. 2B6 

EXPBVK { XD ) 
SORT < XO  ) 

SORT (EXPBVK  > 
SORT  < EXPBVK  I 
SQRT ( TEMP tD) 
SOR  T f TEMP 1 D i 
EXPBVK* TEMP  ID 
SORT ( TEMP  tD  > 
SQRT { TEMP  1 D > 
SORT ( TEMP  ID ) 
EXPBYK*TEMP1D 
SORT  < TEMP  ID  > 
SQRT ( TEMPID) 
EXPBVK* TEMP  ID 


--NAME- 


EXPBVK 
TEMP  ID 


XD 


-BLOCK' TYPE- 

REAL 

REAL 

REAL 


-CLASS- 


FUNCTION 

SIMPLE 

SIMPLE 


-REFERENCES 

1 

4/S 

10 


VEXPBYK  25 
VEXPBYK  2G 
VEXPBYK  27 
VEXPBYK  28 
VEXPBYK  29 
VEXPBYK  30 
VEXPBYK  31 
VEXPBYK  32 
VEXPBYK  33 
VEXPBYK  34 
VEXPBYK  35 
VEXPBYK  36 
VEXPBYK  37 
VEXPBYK  38 
VEXPBYK  39 
VEXPBYK  40 
VEXPBYK  41 
VEXPBYK  42 
VEXPBYK  43 


A=ARGLIST. 

2/S  3/S 

5/S  5 

M 12/S 

2 


C=CTRL  OF  DO, 

3 4 

6 ' S 6 

12  13/S 


I -DATA  INIT 

7/S 

7 

13 


R-READ 

7 

B/S 

14 


S-STQRE , W^WRITE 

11/S  11  14/S 

8 9/S  9 


PROCEDURE  MAP 
--NAME TYPE 

CLASS 

REFERENCES 

D*STMT  FN  DEF  t 

A=ARGL!ST 

SORT  REAL 

INTRINSIC 

2 

3 4 5 

6 

8 

9 10  12  13 


O 

M 


■ad 

«o 

to 


14 

10 


ORIGINAL  PASS  W 
OF  POOR  QUALITY 


W';V\ 


00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 
0001  1 
00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 


00038 

00039 


SUBROUTINE  DUMP  I J (IX.  JIM 

► +■  * + * * r4-+^4r*«%«'*+**  + *-*'-***4-*'fr*'*  **♦*■♦♦  + + 

PURPOSE 

DUMP  GRID  POINT  <dXTIX). 

USAGE 

CALLED  NORMALLY  BY  ( PRD I AG  ) . 

ARGUMENTS  DESCRIPTION 
IX  I POINT 

JX  d POINT 

SUBPROGRAMS  NEEDED 
NONE 

RECORD  OF  MODIFICATIONS 

12/05/83  RAMESH  NEW  PROGRAM 

02/04/B4  JIM.PF  COMMENTS  ♦ MOVED  TO  F400M  207 
REMARKS: 

»fS***»******j*-*'«'****»-*’****+if*r*'*-*«-<***'*'**+**-»'****’*+t*«'****'***  + 

»■  M / t\  - C O M SIGMA  DATA  INC.  NASA 

HALF/FULL  PRECISION 

IMPLICIT  HALF  PRECISION  IA-H.O-Z) 

PARAMETER  STATEMENTS  FOR  DIMENSIONING  RESOLUTION 


CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /CCNTRL/ 

cco 

COMMON  /CCNTRL/ 

ADATE 

COMMON  /CCNTRL/ 

ATIME 

COMMON  /CCNTRL/ 

die 

COMMON  /CCNTRL/ 

dOB 

COMMON  /CCNTRL/ 

CCSP06 

COMMON  /CCNTRL/ 

CCSP07 

COMMON  /CCNTRL/ 

CCSP08 

COMMON  /CCNTRL/ 

VER 

COMMON  /CCNTRL/ 

XLABEL  <10) 

COMMON  /CCNTRL/ 

CQS  ( 30  > 

COMMON  /CCNTRL/ 

CQU  (10) 

COMMON  /CCNTRL/ 

DSTOP ( 4 ) 

COMMON  /CCNTRL/ 

DSLWI (4 ) 

COMMON  /CCNTRL/ 

DSSST ( 4 ) 

COMMON  /CCNTRL/ 

DSALB  t 4 ) 

COMMON  /CCNTRL/ 

DSGWT (4  ) 

EQUIVALENCE 

(CC0,CC( 1 ) ) 

CHARACTER  *B 

CCO,  CC ( 200 ) 

CHARACTER  *8 

ADATE 

CHARACTER'S 

ATIME 

CHARACTER  + 8 

die 

CHARACTER'S 

JOB 

CHARACTER'S 

CCSP06 

CHARACTER'S 

CCSP07 

CHARACTER'S 

CCSP08 

CHARACTER'8 

VER 

CHARACTER '8 

XLABEL 

CHARACTER'S 

CQS 

CHARACTER '8 

CQU 

CHARACTER'S 

DSTOP 

CHARACTER'S 

DSLV/I 

CHARACTER  *8 

DSSST 

CHARACTER'S 

OSALB 

CHARACTER'8 

DSGWT 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /ICNTRL/ 

ICO 

COMMON  /ICNTRL/ 

IM 

VDUMP I J 2 
♦ **♦»♦  ►**-*♦*  VDUMP  Id  3 
VDUMP Id  4 
VDUMP Id  5 
VDUMP Id  6 
VDUMP Id  7 
VDUMP Id  8 
VDUMP Id  9 
VDUMP Id  10 
VDUMP Id  11 
VDUMP Id  12 
VDUMP Id  13 
VDUMP I d 14 
VDUMP Id  IS 
VDUMP Id  16 
♦♦ VDUMP  I J 17 
- G S F C * VDUMP I d 18 
f + fott^totVDUMPIJ  19 
VDUMP Id  20 
VREAL  2 
VREAL  3 
VREAL  4 
VREAL  5 
VRSLV  2 
VRSLV  3 
VRSLV  4 
VRSLV  5 
VRSLV  6 
VCNTRL  2 
VCNTRL  3 
VCNTRL  4 
VCNTRL  5 
VCNTRL  6 
VCNTRL  7 
VCNTRL  8 
VCNTRL  9 
VCNTRL  10 
VCNTRL  1 1 
VCNTRL  12 
VCNTRL  13 
VCNTRL  14 
VCNTRL  15 
VCNTRL  16 
VCNTRL  17 
VCNTRL  18 
VCNTRL  19 
VCNTRL  20 
VCNTRL  21 
VCNTRL  22 
VCNTRL  23 
VCNTRL  24 
VCNTRL  25 
VCNTRL  26 
VCNTRL  27 
VCNTRL  28 
VCNTRL  29 
VCNTRL  30 
VCNTRL  31 
VCNTRL  32 
VCNTRL  33 
VCNTRL  34 
VCNTRL  35 
VCNTRL  36 
VCNTRL  37 
VCNTRL  38 
VCNTRL  39 
VCNTRL  40 
VCNTRL  41 
VCNTRL  42 
VCNTRL  43 
VCNTRL  44 


\ ' 


DUMPIJ  X 


00040 
0004  1 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 
0007  1 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
00081 
000S2 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 
00101 
00102 
00  103 

00  104 
00  105 
00106 
00107 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 


IMD2 

IMD2P1 

NDRSW 

JM 

JMD2 

JMT2 

JNP 

004 

008 

JSP 

KLIALB 

KLIGW 

KLISST 

KS 

KU 

L0G8R 

MATIN 

MATSNX 

MATSUN 

MLF  (12) 

MROD 

NKRSM 

M5M 

NB 

ND 

NDALT 

NDAY 

NDOUT 

NDPHY 

NDSHF 

NOT 

NHM5 

NHMSE 

N HP/50 

NLAY 

NLAYJVM 

NLAYP1 

NSDAY 

NSEQ 

ICSP53 

NSTEP 

IBLKSI Z 

NYMD 

NYMDE 

NYMDO 

NZINIT 

NMLEV 

NDHOG 

IQS  (30) 

IQU  (10) 

KLITOP 

KLILWI 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(ITMIN 
( I TMA  X 
( IPREACC 
( IPRECON 
( INFLUX 
< IEFLUX 
{ IFUSION 
( IRADSWG 
( IRADLWG 
( I I CLOUD 
( IUFLUX 
( I VF  LUX 


♦ I QS ( 1)) 

,IQS{  2)) 
• IQSt  3)) 

• I QS { 4 ) ) 
* IQS(  5) ) 
, I QS ( 6)  ) 
r I QS ( 7>> 
t I QS ( 8)) 

* I QS { 9)) 

♦ IQ5< 10) > 
, I QS ( 1 1 ) > 
, IOS< 12) ) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( IOMEGA 
(ID I ABAT 
( IRADSW 
( I RADLW 


. I QU  ( IM 
* I QU ( 2)  ) 
t I QU ( 3)) 
, I QU ( 4 ) ) 


VCNTRL 

45 

VCNTRL 

46 

VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

51 

VCNTRL 

52 

VCNTRL 

53 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

VCNTRL 

58 

VCNTRL 

59 

VCNTRL 

60 

VCNTRL 

61 

VCNTRL 

62 

VCNTRL 

63 

VCNTRL 

64 

VCNTRL 

65 

VCNTRL 

66 

VCNTRL 

67 

VCNTRL 

68 

VCNTRL 

69 

VCNTRL 

70 

VCNTRL 

71 

VCNTRL 

72 

VCNTRL 

73 

VCNTRL 

74 

VCNTRL 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRL 

79 

VCNTRL 

80 

VCNTRL 

81 

VCNTRL 

82 

VCNTRL 

83 

VCNTRL 

84 

VCNTRL 

85 

VCNTRL 

86 

VCNTRL 

87 

VCNTRL 

88 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

91 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

98 

VCNTRL 

99 

VCNTRL 

100 

VCNTRL 

101 

VCNTRL 

102 

VCNTRL 

103 

VCNTRL  104 
VCNTRL  105 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  110 
VCNTRL  111 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  115 


00108  EQUIVALENCE  <ICO,XC(1>> 

00109  INTEGER  ICO,  ICC200) 

C 

C LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00  1 10 

COMMON  /LCNTRL / 

LCO 

00111 

COMMON  /LCNTRL/ 

QALT 

00  112 

COMMON  /LCNTRL/ 

QBEG 

00113 

COMMON  /LCNTRL/ 

QDAY 

00  114 

COMMON  /LCNTRL/ 

>QEND 

00115 

COMMON  /LCNTRL/ 

QOUT 

00116 

COMMON  /LCNTRL/ 

QPHY 

00  117 

COMMON  /LCNTRL/ 

QSHF 

00118 

COMMON  /LCNTRL/ 

SN2FLG 

00119 

COMMON  /LCNTRL/ 

QRSW 

00  120 

COMMON  /LCNTRL/ 

QRSH 

00121 

COMMON  /LCNTRL/ 

LQ5 ( 30 ) 

00122 

p 

COMMON  /LCNTRL/ 

LQU  f 10) 

00  123 

EQUIVALENCE 

(LTMIN 

, LQS  ( 

1 ) > 

00124 

EQUIVALENCE 

1 LTMAX 

. LQS  t 

2)  ) 

00125 

EQUIVALENCE 

( LPREACC 

, LQS  ( 

3)  ) 

00126 

EQUIVALENCE 

< LPRFCON 

, LQS ( 

4)  ) 

00  127 

EQUIVALENCE 

< LHFLUK 

, LQS  1 

5)) 

00128 

EQUIVALENCE 

(LEFLUK 

, LQS  ( 

6)  ) 

00  1 29 

EQUIVALENCE 

( L FUSION 

, LQS  ( 

7)  ) 

00  130 

EQUIVALENCE 

< LRADSWG 

, LQS  ( 

8)  ) 

00131 

EQUIVALENCE 

( LRADLWG 

. LQS  1 

9)  ) 

00132 

EQUIVALENCE 

(LICLOUD 

, LQS ( 10)  ) 

00133 

EQUIVALENCE 

(LUFLUX 

, LQS ( 11)) 

00  134 

p 

EQUIVALENCE 

1LVFLUX 

, LQS ( 12  ) ) 

00135 

EQUIVALENCE 

{ LOMEG 

,LQU< 

1 ) ) 

00136 

EQUIVALENCE 

(LDIABAT 

» LQU  ( 

2)  ) 

00137 

EQUIVALENCE 

{ LR ADSW 

. LQU  ( 

3)  ) 

00138 

P 

EQUIVALENCE 

(LRADLW 

, LQU  ( 

4)  ) 

00  139 

V 

LOGICAL 

QALT 

00140 

LOGICAL 

QBEG 

0014  1 

LOGICAL 

QDAY 

00142 

LOGICAL 

QEND 

00143 

LOGICAL 

QOUT 

00144 

LOGICAL 

QPHY 

00145 

LOGICAL 

QSHF 

00146 

LOGICAL 

SN2FLG 

00147 

LOGICAL 

QRSW 

00  148 

p 

LOGICAL 

QRSH 

00149 

LOGICAL 

LQ5 

00  150 

LOGICAL 

LQU 

00151 

LOGICAL 

LTMIN 

00152 

LOGICAL 

LTMAX 

00  153 

LOGICAL 

LPREACC 

00154 

LOGICAL 

LPRECON 

00155 

LOGICAL 

LHFLUX 

00  156 

LOGICAL 

LEFLUX 

00157 

LOGICAL 

LFUSION 

00  158 

LOGICAL 

LRADSWG 

00159 

LOGICAL 

LRADLWG 

00160 

LOGICAL 

LICLOUD 

0016  1 

LOGICAL 

LUFLUX 

00)62 

p 

LOGICAL 

LVFLUX 

00163 

V 

LOGICAL 

LOMEGA 

00164 

LOGICAL 

LDIABAT 

00165 

LOGICAL 

LRADSW 

00  166 

p 

LOGICAL 

LRADLW 

00167 

EQUIVALENCE 

( LCO , LC 1 1 ) ) 

00  168 

LOGICAL 

LCO,  LC ( 200 ) 

VCNTRL  11€ 
VCNTRL  117 
VCNTRL  118 
VCNTRL  119 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 
VCNTRL  1 28 
VCNTRL  129 
VCNTRL  130 
VCNTRL  131 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
VCNTRL  135 
VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  141 
VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  1 A 7 
VCNTRL  148 
VCNTRL  149 
VCNTRL  150 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  180 
VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 


o o 

-n  ?o 

•a  M 

os 

o t? 

S3  p 

lO  *0 

c g 

r*  in 


9 


© 


w 

Ch 


C 

REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

187 

C 

= S = = = “ = w = = 

VCNTRL 

188 

OO  169 

COMMON 

/RCNTRL/ 

RCO 

VCNTRL 

189 

00  170 

COMMON 

/ RCNTRL / 

APHEL 

VCNTRL 

190 

00171 

COMMON 

/RCNTRL/ 

BETA 

VCNTRL 

191 

00  172 

COMMON 

/RCNTRL/ 

COSD 

VCNTRL 

192 

00173 

COMMON 

/RCNTRL/ 

CP 

VCNTRL 

193 

00174 

COMMON 

/RCNTRL/ 

DAYSPY 

VCNTRL 

194 

00175 

COMMON 

/RCNTRL/ 

DEC 

VCNTRL 

195 

00  1 76 

COMMON 

/RCNTRL/ 

DECMAX 

VCNTRL 

196 

00177 

COMMON 

/RCNTRL/ 

01  ST 

VCNTRL 

197 

00  178 

COMMON 

/RCNTRL/ 

OLAT 

VCNTRL 

198 

00  179 

COMMON 

/RCNTRL/ 

DLON 

VCNTRL 

199 

00  180 

COMMON 

/RCNTRL/ 

DT 

VCNTRL 

200 

00181 

COMMON 

/RCNTRL/ 

EC  CTO 

VCNTRL 

20  1 

00  182 

COMMON 

/RCNTRL/ 

GNUt 

VCNTRL 

202 

00  183 

COMMON 

/RCNTRL/ 

GNU2 

VCNTRL 

203 

00  184 

COMMON 

/RCNTRL/ 

GRAV 

VCNTRL 

204 

00  185 

COMMON 

/RCNTRL/ 

0MEGA2 

VCNTRL 

205 

00186 

COMMON 

/RCNTRL/ 

PI 

VCNTRL 

206 

00  187 

COMMON 

/RCNTRL/ 

PI  ISO 

VCNTRL 

207 

001S8 

COMMON 

/RCNTRL/ 

P I 2 

VCNTRL 

208 

00  189 

COMMON 

/RCNTRL/ 

PSTD 

VCNTRL 

209 

00  190 

COMMON 

/RCNTRL/ 

PIMEAW 

VCNTRL 

210 

00191 

COMMON 

/RCNTRL/ 

PSMAX 

VCNTRL 

21  1 

00192 

COMMON 

/RCNTRL/ 

PSMIN 

VCNTRL 

212 

00  193 

COMMON 

/RCNTRL/ 

PTOP 

VCNTRL 

213 

00  194 

COMMON 

/RCNTRL/ 

RADE 

VCNTRL 

214 

00195 

COMMON 

/RCNTRL/ 

RGAS 

VCNTRL 

215 

00196 

COMMON 

/RCNTRL/ 

ROCP 

VCNTRL 

216 

00  197 

COMMON 

/RCNTRL/ 

RSDIST 

VCNTRL 

217 

00198 

COMMON 

/RCNTRL/ 

SDAY 

VCNTRL 

218 

00  199 

COMMON 

/RCNTRL/ 

SEASON 

VCNTRL 

219 

0 0 200* 

COMMON 

/RCNTRL/ 

SIGE 

(25) 

VCNTRL 

220 

00201 

COMMON 

/RCNTRL/ 

SIND 

VCNTRL 

221 

00202 

COMMON 

/RCNTRL/ 

SOLS 

VCNTRL 

222 

00203 

COMMON 

/RCNTRL/ 

TSTD 

VCNTRL 

223 

00204 

COMMON 

/RCNTRL/ 

PLEVS 

(25) 

VCNTRL 

224 

00205 

COMMON 

/RCNTRL/ 

HEATW 

VCNTRL 

225 

00206 

COMMON 

/RCNTRL/ 

HEATI 

VCNTRL 

226 

00207 

COMMON 

/RCNTRL/ 

EPS 

VCNTRL 

227 

00208 

COMMON 

/RCNTRL/ 

EPSFAC 

VCNTRL 

228 

00209 

COMMON 

/RCNTRL/ 

CALTOd 

VCNTRL 

229 

002  10 

COMMON 

/RCNTRL/ 

P2ERO 

VCNTRL 

230 

C 

VCNTRL 

231 

0021  1 

EQUIVALENCE 

( RCO  , RC ( 1 ) ) 

VCNTRL 

232 

002  1 2 

HALF  PRECISION 

rco ♦ nc(4ooi 

VCNTRL 

233 

C 

VCNTRL 

234 

c 

INTEGER  MODEL  CONSTANTS 

VCNTRL 

235 

c 

VCNTRL 

236 

00213 

COMMON 

/ I DP ARM/ 

I JUMP 

MS)  1 

VCNTRL 

237 

00214 

COMMON 

/ 1 DP ARM/ 

IDSP02 

VCNTRL 

238 

00215 

COMMON 

/ I DP ARM/ 

INDEX 

(72) 

VCNTRL 

239 

00216 

COMMON 

/ I DPARM/ 

I ROD 

VCNTRL 

240 

00217 

COMMON 

/ 1 DP ARM/ 

JC 

(46) 

VCNTRL 

241 

00218 

COMMON 

/ IDPARM/ 

JE 

(2) 

VCNTRL 

242 

00219 

COMMON 

/ I DPARM/ 

JP 

(2,2) 

VCNTRL 

243 

00220 

COMMON 

/IDPARM/ 

KSTEP 

VCNTRL 

244 

00221 

COMMON 

/IDPARM/ 

Md 

(46) 

VCNTRL 

245 

00222 

COMMON 

/IDPARM/ 

NHMS  1 

VCNTRL 

246 

00223 

COMMON 

/IDPARM/ 

NYMD1 

VCNTRL 

247 

c 

VCNTRL 

248 

c 

LOGICAL  MODEL  CONSTANTS 

VCNTRL 

249 

c 

i = = = = 

VCNTRL 

250 

00224 

COMMON 

/LDP ARM/ 

FILTER 

(46) 

VCNTRL 

25  1 

00225 

COMMON 

/ LDP ARM/ 

I TAPE 

VCNTRL 
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00226 

COMMON 

/LDPARM/ 

START 

VCNTRL 
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c 

VCNTRL 

254 

00227 

LOGICAL 

FILTER 

VCNTRL 
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00228 

LOGICAL 

I TAPE 

VCNTRL 

256 

00229 

LOGICAL 

START 

VCNTRL 
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00230 

COMMON 

/RDPARM/ 

ADLDP 

00231 

comou 

/RDPARM/ 

CONI 

00232 

COMMON 

/RDPARM/ 

CON  IDT 

00233 

COMMON 

/RDPARM/ 

C0N2 

00234 

COMMON 

/RDPARM/ 

CON2DT 

00235 

COMMON 

/RDPARM/ 

COM3 

00236 

COMMON 

/RDPARM/ 

CON3DT 

00237 

COMMON 

/RDPARM/ 

CON4 

00238 

COMMON 

/RDPARM/ 

C0N4DT 

00239 

COMMON 

/RDPARM/ 

CONS 

00240 

COMMON 

/RDPARM/ 

COSL 

(46) 

00241 

COMMON 

/RDPARM/ 

COSLON 

(72) 

00242 

COMMON 

/RDPARM/ 

CPD2 

00243 

COMMON 

/RDPARM/ 

DXP 

(46) 

00244 

COMMON 

/RDPARM/ 

DXYP 

(46) 

00245 

COMMON 

/RDPARM/ 

DYP 

(46) 

00246 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

00247 

COMMON 

/RDPARM/ 

F IDT 

0024S 

COMMON 

/RDPARM/ 

F2DT 

00249 

COMMON 

/RDPARM/ 

H1DT 

00250 

COMMON 

/RDPARM/ 

H2DT 

0025  1 

COMMON 

/RDPARM/ 

PKSTD 

00252 

COMMON 

/RDPARM/ 

PK  TOP 

00253 

COMMON 

/RDPARM/ 

RL  AT 

(46) 

00254 

COMMON 

/ROPARM/ 

RLATD 

(46) 

00255 

COMMON 

/RDPARM/ 

ROCPDT 

00256 

COMMON 

/RDPARM/ 

ROCPP 1 

00257 

COMMON 

/RDPARM/ 

SGNP 

(2) 

00258 

COMMON 

/RDPARM/ 

SINL 

(46) 

00259 

COMMON 

/RDPARM/ 

SINLON 

(72) 

00260 

COMMON 

/RDPARM/ 

THSTD 

00261 

COMMON 

/RDPARM/ 

THSTD2 

00262 

COMMON 

/RDPARM/ 

WSAVE 

< 159 

00263 

COMMON 

/RDPARM/ 

DSIG 

(9) 

00264 

COMMON 

/RDPARM/ 

SIG 

(9) 

00265 

COMMON 

/RDPARM/ 

DSIG1NV  (9) 

C 


C COMDECK  VQANDQT  RESOLUTION  VALUES 


C IM  =72 

C NLAV  =9 

C JM+1  =46 

C NLAV  * 1 t =99 

C IM+NLAV'M  1 =7  128 

C JM/2M  =23 


C 
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C 
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00267 

DIMENSION 

00268 

DIMENSION 

00269 

DIMENSION 

00270 

dimension 

00271 

DIMENSION 

00272 

DIMENSION 

00273 

DIMENSION 

00274 

DIMENSION 

00275 

C 

DIMENSION 

00276 

dimension 

00277 

DIMENSION 

00278 

DIMENSION 

00279 

c 

DIMENSION 

00280 

EQUIVALENCE 

/QANDQT/  QPROG<72,9. 1 1 .46) 

PHIS  (7128, 1 > 

SMTH  (7128,23) 

ALBEDO  (7 128, t ) 

GT  (71 28  t 1 ) 

GW  (7128,1) 

TS  (7128,1) 

SHS  (7128,1) 

p (72.99.H 

U (72,9,11.1) 

V (72,9,11,1) 

T (72,9,11,1) 

SH  (72,9,11,1) 

PHI  (72,9,11,1) 

( QPROG<  1 , 1,1,1)  .PHIS  (1,D) 


-3 


VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 

263 

VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 

27  1 

VCNTRL 

272 

VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 

279 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 
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VCNTRL 

287 

VCNTRL 

288 
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VCNTRL 
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VCNTRL 

290 

73  r 

VCNTRL 
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VCNTRL 
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O 

VCNTRL 

293 

C 7* 

VCNTRL 

294 

VCNTRL 

295 

VCNTRL 

296 

C* 4 * 

VCNTRL 

297 

VQANDQT  2 

VQANDQT  3 

VQANDQT  4 
VQANDQT  5 
VQANDQT  6 
VQANDQT  7 
VQANDQT  8 
VQANDQT  9 
VQANDQT  10 
VQANDQT  1 1 
VQANDQT  12 
VQANDQT  13 
VQANDQT  14 
VQANDQT  15 
VQANDQT  16 
VQANDQT  17 
VQANDQT  18 
VQANDQT  19 
VQANDQT  20 
VQANDQT  21 
VQANDQT  22 
VQANDQT  23 
VQANDQT  24 
VQANDQT  25 
VQANDQT  26 
VQANDQT  27 
VQANDQT  28 
VQANDOT  29 
VQANDQT  30 
VQANDQT  31 
VQANDQT  32 
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00282 

00283 

00284 

00285 

00286 
00287 


00288 

00289 

00290 

00291 

00292 


00293 

00294 

00295 


00296 


00297 

00298 

00299 

00300 
0030  l 
00302 


00303 

00304 

00305 

00306 

00307 

00308 


00309 


00310 

00311 


00312 

00313 

00314 

00315 

00316 
00317 


00324 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


C 

C 

C 

C 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


<QPROG< 1 
( QPROG { 1 
( QPROG1 1 


2 

, 1 

1 ) 

SMTH 

( 1 

. 1 ) 

3 

, 1 

1 > 

.ALBEDO 

( 1 

♦ 1 > 

4 

. 1 

1 ) 

GT 

( 1 

, 1 > 

5 

, 1 

1 ) 

GW 

< 1 

, 1 ) 

6 

, 1 

TS 

( 1 

, 1 ) 

7 

. 1 

1 ) 

SHS 

( 1 

. 1 ) 

8 

, 1 

,P 

( 1 

, 1 , 
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1 . 

2 

1 ) 

,u 

< 1 , 

1 , 

1 . 1 

1 , 

4 
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, V 

< 1 , 

1 , 
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6 

1) 

, T 

< 1 , 

1 , 
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1 . 

8 

1) 

, SH 

( 1 . 
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1 . 1 
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10 

.PHI 

( 1 . 

1 , 

1 . 1 
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COMMON 

BIT 

EQUIVALENCE 


/ QANDQT / QSD I AG ( 7 2 ,15,46) 

BQSD I AG (32 , 72.15,46) 

( QSD I AG , BQSD I AG) 


COMMON 


/QANDQT/  QUD I AG (72,9,  5.46) 


CHARACTER  * 1 3 PRTUNB 1 / 1 3H * * U AT  NB  ♦*  / 
CHARACTER* 1 3 PRTUNB 2 / 1 3H* ♦ W 
CHARACTER* 1 3 PRTVNB 1 / 1 3H* * V W 
CHARACTER  * 1 3 PRTVNB2/ 1 3H ♦ ♦ W 
CHARACTER  * 1 3 PRTTNB 1 / 1 3H*  * T **/ 
CHARACTER* 13  PRTTNB2/ 1 3H**  *♦/ 


CHARACTER* 13  PRTUND 1 / 13H*  * U AT  NO  W 


CHARACTER  + 1 3 PRTUND2/ 13H* ♦ 
CHARACTER  * 1 3 PRTVND 1 / 1 3H*  * 
CHARACTER  * 13  PRTVND2/ 13H+* 
CHARACTER ♦ 1 3 PRTTND 1/1 3H ♦ * 
CHARACTER  * 1 3 PR T TND2 / 1 3H * ♦ 


W 
♦♦/ 
* */ 
♦♦/ 
w 


VQANDQT  33 
VQANDQT  34 
VQANDQT  35 
VQANDQT  36 
VQANDQT  37 
VQANDQT  38 
VQANDQT  39 
VQANDQT  40 
VQANDQT  41 
VQANDQT  42 
VQANDQT  43 
VQANDQT  44 
VQANDQT  45 
VQANDQT  46 
VQANDQT  47 
VQANDQT  48 
VQANDQT  49 
VQANDQT  50 
VQANDQT  51 
VQANDQT  52 
VQANDQT  53 
VQANDQT  54 
VQANDQT  55 
VDUMPIJ  25 
VDUMPIJ  26 
VDUMPIJ  27 
VDUMPIJ  28 
VDUMPIJ  29 
VDUMPIJ  30 
VDUMPIJ  31 
VDUMPIJ  32 
VDUMPIJ  33 
VDUMPIJ  34 
VDUMPIJ  35 
VDUMPIJ  36 
VDUMPIJ  37 
VDUMPIJ  38 
VDUMPIJ  39 


C+  + **+**+*  + +♦*  + + ♦ * -r  ♦ 4-  * + *+  ■*-♦«  ♦ 4-VDUMP  I J 40 
Q VDUMPIJ  41 
C DEBUG  VBEGDEB  2 

10000  CONTI NUE  ySiSEIi  5 
C CYBER  VECTOR  VERSION  00.001  INPUT  IOQ  VBEGDEB  4 
C CYBER  VECTOR  VERSION  00  VBEGDEB  5 
CS$$£$$$£$$$$$$$$S$$$$$$$$S£$$SS$$$S$$$£S$$$$$$$$$$$$$$$$$$$$$$$£$S$$$$$VBEGDEB 


6 


WRITE  (6,6000) 
WRITE  (6,6010)  IX, 


JX,  P ( I X , NB , J X ) , P ( I X , ND , J X ) 


WRITE  (6,6020)  PRTUNB 1 , ( U ( I X . L , NB t J X > , L=  1 


9) 


VDUMPIJ  43 
VDUMPIJ  44 
VDUMPIJ  45 
VDUMPIJ  46 
VDUMPIJ  47 


IF  (NLAY.GT.9)  V/RITE  (6,6020)  PRTUNB2 , ( U { I X , L , NB , JX ) , L=10,MLAV>  VDUMPIJ  48 

WRITE  (6,6020)  PRTVNB 1 , { V ( I X , L , NB , JX > * * 

IF  (NLAY.GT.9)  WRITE  (6,6020)  PRTVNB2,  ( V < I X . L , NB , J X > 


WRITE  (6,6020)  PRTTNB 1 , ( T < I X , L , NB , J X ) 

IF  (NLAY.GT.9)  WRITE  (6.6020)  PRTTNB2 . ( T ( I X , L , NB , J X ) 


L = 1 , 9>  VDUMPIJ  49 

L= 1 0 , NLA Y ) VDUMPIJ  50 


L = 1 , 9)  VDUMPIJ  51 

L= 10 , NLA Y ) VDUMPIJ  52 


00318 

00319 

00320 

00321 

00322 

00323 


WRITE  (6,6020)  PRTUND 1 , 
IF  (NLAY.GT.9)  WRITE  (6,6020)  PRTUND2. 

WRITE  (6,6020)  PRTVND 1 , 
IF  (NLAY.GT.9)  WRITE  (6,6020)  PRTVND2, 
WRITE  (6,6020)  PRTTND 1 , 
IF  (NLAY.GT.9)  WRITE  (6,6020)  PRTTN02, 


( U ( I X , L , ND , JX ) , 
(UdX.L.ND,  JX) 

( V( I X , L ,ND , JX) 

( V < I X , L , ND , JX ) , 
L, 

L , 


L = 1 , 9) 


VDUMPIJ  53 
VDUMPIJ  54 


L- 1 0 , NLA Y)  VDUMPIJ  55 
L - 1 , 9)  VDUMPIJ  56 


( T ( I X 
( T ( I X 


, ND  iilX) 
,ND , JX ) 


L= 1 0 , NLA Y ) VDUMPIJ  57 
L=1 r 9)  VDUMPIJ  58 


L - 1 0 , NLA V > VDUMPIJ  59 
VDUMPIJ  60 


00325 

00326 


RETURN 


00327 


6000  FORMAT  (IX) 

60  10  FORMAT  ( 1 X , ' 

S ' AT  NB  P = ' tG1 2 . 4 , 4X  , ' AND  AT  ND 

6020  FORMAT  ( 1 X , A 1 3 , 2X , 1 P9G1 2.4,3X,  ' ++  * ) 


1 OK  , 


<ItJ)-(',I3t',#lI3i' 


» 4 X , 

= ' .GI2.4 , 44  X , 


VDUMPIJ  61 
VDUMPIJ  62 
VDUMPIJ  63 
VDUMPIJ  64 
VDUMPIJ  65 
VDUMPIJ  66 
VDUMPIJ  67 
VDUMPIJ  68 


sg 

3f 

§f 

O «vj 

2s>  J55) 


a. 


DUMPIJ  6 


00328 


END 


VDUMPIJ  69 
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10000 

309 

6000 

325 

60  10 

326 

6020 

327 

3 10 
31  1 

312  313  314 


315  316  31?  318 


319  320  321 


322  323 


VARIABLE  MAP 


NAME 

BLOCK 

TYPE 

ADATE 

CCNTRL 

CHAR  *8 

ADLDP 

RDP ARM 

HALF 

ALBEDO 

QANDQT 

HALF 

APHEL 

RCNTRL 

HALF 

ATIME 

CCNTRL 

CHAR  *8 

BETA 

RCNTRL 

HALF 

BQSDIAG 

QANDQT 

BIT 

CALTOJ 

RCNTRL 

HALF 

CC 

CCNTRL 

CHAR i B 

cco 

CCNTRL 

CHAR 

CCNTRL 

HALF 

CCSP06 

CCNTRL 

CHARTS 

CCSP07 

CCNTRL 

CHAR  t^S 

CCSP08 

CCNTRL 

CHAR  * B 

CONI 

RDPARM 

HALF 

CON  IDT 

RDPARM 

HALF 

CON2 

RDPARM 

HALF 

CON2DT 

RDPARM 

HALF 

C0N3 

RDPARM 

HALF 

C0N3DT 

RDPARM 

HALF 

CON4 

RDPARM 

HALF 

C0N4DT 

RDPARM 

HALF 

CON5 

RDPARM 

HALF 

COSD 

RCNTRL 

HALF 

COSL 

RDPARM 

HALF 

COSLON 

RDPARM 

HALF 

CP 

RCNTRL 

HALF 

CPD2 

RDPARM 

HALF 

CQS 

CCNTRL 

CHAR  * B 

COU 

CCNTRL 

CHAR  ♦ 8 

DAYSPY 

RCNTRL 

HALF 

DEC 

RCNTRL 

HALF 

DECMAX 

RCNTRL 

HALF 

DIST 

RCNTRL 

HALF 

DLAT 

RCNTRL 

HALF 

DLON 

RCNTRL 

HALF 

DSALB 

CCNTRL 

CHAR'S 

DSGWT 

CCNTRL 

CHAR '8 

DSIG 

RDPARM 

HALF 

DSIGINV 

RDPARM 

HALF 

DSLWI 

CCNTRL 

CHAR  *8 

DSSST 

CCNTRL 

CHAR  >8 

□STOP 

CCNTRL 

CHARTS 

DT 

RCNTRL 

HALF 

DUMP  Id 
DXP 

RDPARM 

HALF 

DXYP 

RDPARM 

HALF 

DYP 

RDPARM 

HALF 

ECCN 

RCNTRL 

HALF 

EPS 

RCNTRL 

HALF 

EPSFAC 

RCNTRL 

HALF 

F IDT 

RDPARM 

HALF 

F2DT 

RDPARM 

HALF 

FCORLS 

RDPARM 

HALF 

FILTER 

LDP ARM 

LOGICAL 

GNU  1 

RCNTRL 

HALF 

CLASS 

-REFERENCES 

A=ARGLIST 

SIMPLE 

4 

22 

SIMPLE 

230 

ARRAY 

269 

282 

SIMPLE 

170 

SIMPLE 

5 

23 

SIMPLE 

17  1 

ARRAY 

294 

295 

SIMPLE 

209 

ARRAY 

20 

2 1 

SIMPLE 

3 

20  2 1 

UNKNOWN 

3 

4 5 

14 

15  16 

SIMPLE 

8 

26 

SIMPLE 

9 

27 

SIMPLE 

10 

28 

SIMPLE 

231 

SIMPLE 

232 

SIMPLE 

233 

SIMPLE 

234 

SIMPLE 

235 

SIMPLE 

236 

SIMPLE 

237 

SIMPLE 

238 

SIMPLE 

239 

SIMPLE 

172 

ARRAY 

240 

ARRAY 

24  1 

SIMPLE 

173 

SIMPLE 

242 

ARRAY 

13 

3 1 

ARRAY 

14 

32 

SIMPLE 

174 

SIMPLE 

175 

SIMPLE 

176 

SIMPLE 

177 

SIMPLE 

178 

SIMPLE 

179 

ARRAY 

18 

36 

ARRAY 

19 

37 

ARRAY 

263 

ARRAY 

265 

ARRAY 

16 

34 

ARRAY 

17 

35 

ARRAY 

15 

33 

SIMPLE 

180 

SUBROUTINE 

1 

ARRAY 

243 

ARRAY 

244 

ARRAY 

245 

SIMPLE 

181 

SIMPLE 

207 

SIMPLE 

208 

SIMPLE 

247 

SIMPLE 

248 

ARRAY 

246 

ARRAY 

224 

227 

SIMPLE 

182 

C=CTRL  OF  DO. 


6 7 

17  IB 


I =DATA  INIT 


8 

19 


REREAD.  S^STORE.  W=WRITE 


9 10  11  12 


13 


a 


Ch 


"0 
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o 

G 


GNU  2 

RCNTRL 

HALF 

SIMPLE 

183 

PH 

Ch 

00 

GRAV 

RCNTRL 

HALF 

SIMPLE 

184 

GT 

QANDQT 

HALF 

ARRAY 

270 

283 

GW 

QANDQT 

HALF 

ARRAY 

27  t 

284 

H IDT 

RDPARM 

HALF 

SIMPLE 

249 

H2DT 

RDFARM 

HALF 

SIMPLE 

250 

HEAT! 

RCNTRL 

HALF 

SIMPLE 

206 

HEATW 

RCNTRL 

HALF 

SIMPLE 

205 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

8 1 

IC 

ICNTRL 

INTEGER 

ARRAY 

108 

109 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

38 

1 OB 

109 

ICNTRL 

INTEGER 

UNKNOWN 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

7 1 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

ICSP53 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

ICNTRL 

INTEGER 

SIMPLE 

79 

IDI ABAT 

ICNTRL 

INTEGER 

UNKNOWN 

1 05 

IDPARM 

IDPARM 

INTEGER 

UNKNOWN 

2 13 

2 1 4 

215 

2 16 

2 1 7 

2 18 

2 19 

220 

221 

222 

223 

IDSP02 

INTEGER 

SIMPLE 

2 14 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOVJN 

97 

I FUSION 

ICNTRL 

INTEGER 

UNKNOVJN 

93 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

96 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOVJN 

10  1 

IUUJVIP 

IDPARM 

INTEGER 

ARRAY 

2 13 

IM 

ICNTRL 

INTEGER 

SIMPLE 

39 

!MD2 

ICNTRL 

INTEGER 

SIMPLE 

40 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

INDEX 

IDPARM 

INTEGER 

ARRAY 

2 15 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

104 

1PREAJC 

ICNTRL 

INTEGER 

UNKNOWN 

94 

IPRECON 

ICNTRL 

INTEGER 

UNKNOVJN 

95 

IQS 

ICNTRL 

INTEGER 

ARRAY 

88 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

1 03 

IQU 

ICNTRL 

INTEGER 

ARRAY 

89 

1 04 

105 

1 06 

107 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

107 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

1 00 

I RAD  SW 

ICNTRL 

INTEGER 

UNKNOWN 

106 

IRA03WG 

ICNTRL 

INTEGER 

UNKNOWN 

99 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

2 16 

I TAPE 

LOPARM 

LOGICAL 

SIMPLE 

225 

2 28 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

93 

t TMIN 

ICNTRL 

INTEGER 

UNKNOWN 

92 

IUFLUX 

ICNTRL 

INTEGER 

UNKNOVJN 

102 

IVFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

103 

IX 

INTEGER 

SIMPLE 

1 

3 1 1 /W 

31  1 

31  1 

3 1 2 

3 13 

3 14 

315 

316 

3 17 

318 

dC 

3 19 

320 

32  1 

322 

323 

IDPARM 

INTEGER 

ARRAY 

217 

JE 

IDPARM 

INTEGER 

ARRAY 

2 18 

die 

CCNTRL 

CHAR*8 

SIMPLE 

6 

24 

JM 

ICNTRL 

INTEGER 

SIMPLE 

43 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

44 

dMT2 

ICNTRL 

INTEGER 

SIMPLE 

45 

dNP 

ICNTRL 

INTEGER 

SIMPLE 

46 

J04 

ICNTRL 

INTEGER 

SIMPLE 

47 

doa 

ICNTRL 

INTEGER 

SIMPLE 

48 

JOB 

CCNTRL 

CHAR  *8 

SIMPLE 

7 

25 

dP 

IDPARM 

INTEGER 

ARRAY 

219 

dSP 

ICNTRL 

INTEGER 

SIMPLE 

49 

dX 

INTEGER 

SIMPLE 

1 

3 1 I /V/ 

31  1 

31  1 

3 1 2 

313 

3 14 

315 

316 

317 

318 

KLI ALB 

3 19 

320 

32  1 

322 

323 

ICNTRL 

INTEGER 

SIMPLE 

50 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

5 1 

KLILWI 

ICNTRL 

INTEGER 
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FUNCTION  E XPBYK < X ) 
EXPBYK  = X **0  . 286 
RETURN 

FUNCTION  EXPBYK ( XD ) 
EXPBYK  = SQRT(XO) 
EXPBYK  = SQRT (EXPBYK ) 
TEMP  ID  = SQRT (EXPBYK ) 
TEMP  ID  » SQRT ( TEMP  ID) 
TEMP  1 D = SQRT ( TEMP ID) 
EXPBYK  = EXPBYK*TEMP ID 
TEMP  ID  = SQRT ( TEMP  ID) 
TEMP  ID  = SQRT { TEMP  ID) 
TEMP ID  = SQRT  < TEMP  ID) 
EXPBYK  * EXPBYK* TEMP  ID 
TEMP  ID  = SQRT  < TEMP  ID) 
TEMP  10  = SQRT { TEMPID) 
EXPBYK  * EXPBYK* TEMP  ID 
RETURN 
END 
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VEXPBYK  33 
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COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLAV 
COMMON  /ICNTRL/  NLAYM1 
COMMON  /ICNTRL/  NLAYP 1 
COMMON  /ICNTRL/  NSDAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  IC5P53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  IBLKSIZ 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NVMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  N2INIT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDHOG 
COMMON  /ICNTRL/  IQS  (30) 

COMMON  /ICNTRL/  IQU  (10) 
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COMMON  /LCNTRL/  QPHY 
COMMON  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 
COMMON  /LCNTRL/  QRSW 
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TH(!.L;IM)  = T< 1 , L . N t d ; IM) /PK ( 1 , L : IM) 


TERM{ 1 ; IM) 
TERM ( 1 ; IM) 


“ < RGAS*SIG{ L ) ) / 1 SI G<  L ) * P f 1 . N * d ; IM) +PTOP  ) 
= PR(  1 , L ; I M ) * TERM  < 1 I M ) 1 


C 

C 


TERMWf 1 ,L.K; IM)  = TERM! 1 ; IM) • ( TH ( 1 . L ; IM)  - THSTD  > 

TERM! { 1 * L , K ; IM ) = TERM<  1 i IM) * TH < 1 , L j IM) *PI 1 , N , d ; IM ) *CP I V 
PH I BAR (1 ; IM ) = PHIBAR(1;IM)  * f CP *DSIG ( L ) ) * TERMT < 1 , L , K ; I M ) 
PK 1 ( 1 ; IM)  * P K 2 ( 1 : I M ) 

IF  <L.EQ.1)  GO  TO  60 

PKDlt?!Jli5M>  ! PKD2*?-  Ili)^’  ' TH<  * • L*  1 : IM|  *TEMP  111  : IW* 

60  CONTINUE 

TEMP  1 ( t ; IM)  = THSTD2* ( PKI  I ,NLAY;  IM)  - PKSTD ) 

JEMPM^IM)  = TH(  1 , NLAY ; IM ) *PKD2 (1 ; IM)  - TEMP  1 { 1 ; IM  > 
PHILMjIM)  = PHI  BAR  ( 1 ; I M ) - CPD2*  TEMP  1 < 1 - I M ) 

* PHiL(i:iM) 

INTEGRATE  GEOPOTENTIAL  HEIGHTS  UP  THE  COLUMN 

DO  80  LX* 1 , NLAVMl 
L = NLAY  - LX 
LP1  8 L * 1 

TEMPI fljIM)  = TH  M , L ; ZM)  - THSTD2 

’ CPD2*  { TH< 1 . LP 1 ; IM)  - TEMP  1(1:  IM)  ) 

CONTINUE 
RETURN 

END 


TEMP  1 * 1 


80 


LABEL  MAP 

DEF I NED- - -REFERENCES 


VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
; IM) VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 
VGEOHT 


64 

65 

66 

67 

68 

69 

70 
7 1 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 
9 t 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
109 
1 10 
1 1 t 
1 12 
1 13 
114 

1 15 
1 16 
1 17 


10 

325 

31  1 

1 0000 

303 

30 

333 

328 

40 

338 

334 

50 

340 

307 

60 

363 

345 

80 

375 

368 

32  1 


358 


VARIABLE  MAP 
- -NAME BLOCK- 


*TYPE* 


-CLASS- 


ADATE 

ADLDP 


CCNTRL 

RDPARM 


CHAR  *9 
REAL 


SIMPLE 

SIMPLE 


-REFERENCES  A? ARGL 1ST,  C=CTRL  OF  DO,  I =DATA  INIT,  REREAD.  S=STORE.  V/=WRITE 


3 

217 


16 


g 

B 
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ALBEDO 

QANDQT 

REAL 

ARRAY 

256 

269 

APHEL 

RCNTRL 

REAL 

SIMPLE 

157 

AT  I ME 

CCNTRL 

CHAR  *8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

158 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

196 

CC 

CCNTRL 

CHAR  *8 

ARRAY 

14 

15 

CCO 

CCNTRL 

CHAR  *8 

SIMPLE 

2 

14 

15 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

4 

5 

CCSP06 

CCNTRL 

CHAR ♦ 8 

SIMPLE 

1 3 
7 

20 

CCSP07 

CCNTRL 

CHAR  *8 

SIMPLE 

8 

2 1 

CCSP08 

CCNTRL 

charts 

SIMPLE 

9 

?2 

CONI 

RDPARM 

REAL 

SIMPLE 

213 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

219 

C0N2 

RDPARM 

REAL 

SIMPLE 

220 

CON2DT 

RDPARM 

REAL 

SIMPLE 

22  1 

CON3 

RDPARM 

REAL 

SIMPLE 

222 

CON3DT 

ROP  ARM 

REAL 

SIMPLE 

223 

CON  4 

RDPARM 

REAL 

SIMPLE 

224 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

225 

CON5 

RDPARM 

REAL 

SIMPLE 

226 

CONV 

QMSA VE 

REAL 

ARRAY 

298 

COSD 

RCNTRL 

REAL 

SIMPLE 

159 

cost 

RDPARM 

REAL 

ARRAY 

227 

COSLON 

RDPARM  * 

REAL 

ARRAY 

228 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

306 

319 

356 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

323 

326 

331 

CPI  V 

REAL 

SIMPLE 

306  / S 

318 

355 

CQS 

CCNTRL 

CHAR *8 

ARRAY 

12 

25 

CQU 

CCNTRL 

CHARTS 

ARRAY 

13 

26 

DAVSPV 

RCNTRL 

REAL 

SIMPLE 

161 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

163 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

156 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

3 14 

3 19 

349 

DSIGINV 

ROPARM 

REAL 

ARRAY 

252 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

OXP 

RDPARM 

REAL 

ARRAY 

230 

DXYP 

RDPARM 

REAL 

ARRAY 

231 

DYP 

RDPARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

E*SFAC 

RCNTRL 

REAL 

SIMPLE 

195 

F IDT 

RDPARM 

REAL 

SIMPLE 

234 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

21  1 

214 

GEOHT 

SUBROUTINE 

1 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU  2 

RCNTRL 

REAL 

SIMPLE 

170 

GRAV 

RCNTRL 

REAL 

SIMPLE 

171 

GT 

QANDOT 

REAL 

ARRAY 

257 

270 

GW 

OANDQT 

REAL 

ARRAY 

258 

27  1 

HIDT 

RDPARM 

REAL 

SIMPLE 

236 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

HEAT  I 

RCNTRL 

real 

SIMPLE 

193 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

29 

30 

38 

39 

40 

4 1 

49 

50 

51 

52 

GO 

61 

62 

63 

71 

72 

73 

74 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

IDPARM 

INTEGER 

UNKNOWN 

200 

201 

202 

203 

6 7 a 


9 10  11  12 


360  366  372 


356 


© Q 


“S  S5 

o -i 

sf 

«D  '•g 
£r  Sa 
& S3 
ET  og 


31 

32 

33 

34 

35 

36 

37 

42 

43 

44 

45 

46 

47 

48 

53 

54 

55 

55 

57 

58 

59 

64 

65 

66 

67 

58 

69 

70 

75 

76 

77 

78 

204 

205 

206 

207 

208 

209 

210 

GEOHT  8 


: • 2.: v 1 m , .•/; 2; . ■ . . ..  . ....  ..<• 


X DSP  02 

IDPARM 

INTEGER 

SIMPLE 

20  1 

IEFLUX 

I CNTRL 

INTEGER 

UNKNOWN 

84 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

as 

IHFLUX 

I CNTRL 

INTEGER 

UNKNOWN 

83 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

88 

I JUMP 

I DP ARM 

INTEGER 

ARRAY 

200 

344 

346 

346 

347 

IM 

ICNTRL 

INTEGER 

SIMPLE 

28 

335 

336 

337 

342 

342 

343 

347 

347 

347 

348 

348 

348 

349 

349 

350 

350 

350 

350 

35  1 

351 

351 

352 

352 

353 

353 

353 

354 

354 

354 

355 

355 

355 

355 

356 

356 

356 

357 

357 

359 

359 

359 

360 

360 

360 

361 

361 

361 

361 

362 

362 

364 

364 

365 

365 

365 

365 

366 

366 

366 

367 

367 

37  1 

371 

372 

372 

372 

373 

373 

373 

373 

373 

374 

374 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

29 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

30 

INDEX 

IDPARM 

INTEGER 

ARRAY 

202 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

91 

I PRE ACC 

ICNTRL 

INTEGER 

UNKNOWN 

81 

1 PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

82 

83 

84 

05 

86 

87 

88 

IQS 

ICNTRL 

INTEGER 

ARRAY 

77 

79 

80 

81 

82 

89 

90 

XQSDIAG 

QANDQT 

INTEGER 

ARRAY 

281 

282 

93 

94 

IQU 

ICNTRL 

INTEGER 

ARRAY 

78 

91 

92 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

94 

I RADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IRAOSW 

ICNTRL 

INTEGER 

UNKNOWN 

93 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

203 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

212 

21S 

ITMAM 

ICNTRL 

INTEGER 

UNKNOWN 

80 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

79 

I UF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

89 

I VFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

90 

352 

355 

J 

INTEGER 

SIMPLE 

1 

304 

305 

308 

335 

342 

346 

349 

35  1 

367 

374 

0 0 

JC 

IDPARM 

INTEGER 

ARRAY 

204 

305 

*51  2 

JE 

IDPARM 

integer 

ARRAY 

205 

JIC 

CCNTRL 

CHAR  *8 

SIMPLE 

5 

18 

*0  § 
0 z 
0 35 

50  f" 

JM 

ICNTRL 

INTEGER 

SIMPLE 

32 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

33 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

34 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

35 

J04 

ICNTRL 

INTEGER 

SIMPLE 

36 

JOB 

ICNTRL 

INTEGER 

SIMPLE 

37 

JOB 

CCNTRL 

CHAR'S 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

206 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

38 

337 

354 

355 

356 

r*  tn 

K 

INTEGER 

SIMPLE 

305/S 

317 

318 

319 

336 

336 

337 

3m 

KLI ALB 

ICNTRL 

INTEGER 

SIMPLE 

39 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

40 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

41 

KS 

ICNTRL 

INTEGER 

SIMPLE 

42 

KSTEP 

I D P A RM 

INTEGER 

SIMPLE 

207 

KU 

ICNTRL 

INTEGER 

SIMPLE 

43 

315 

315 

316 

317 

L 

INTEGER 

SIMPLE 

31  1 /C 

312 

314 

314 

3 15 

316 

3 16 

317 

318 

318 

319 

319 

32  1 

322 

322 

322 

323 

329 

330 

331 

33  1 

332 

334/C 

335 

335 

336 

335 

337 

337 

345/C 

346 

349 

349 

350 

350 

351 

351 

35  1 

352 

352 

353 

354 

354 

355 

355 

356 

356 

358 

359 

359 

359 

361 

369/S 

370 

37  1 

373 

374 

LC 

LCNTRL 

LOGICAL 

ARRAY 

154 

155 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

97 

154 

155 

102 

103 

104 

105 

106 

107 

LCNTRL 

INTEGER 

UNKNOWN 

97 

98 

99 

TOO 

10T 

1 OB 

109 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

123 

151 

LDP ARM 

INTEGER 

UNKNOWN 

21  1 

212 

213 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

143 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

144 

O 

W 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

142 

o 


vo 


LICLOUD 

L0G8R 

LOMEGA 

LPt 

LPREACC 

LPRECON 

LQS 

LQU 

LRADLW 

LRADLWG 

LRADSW 

LRADSWG 

LTMAX 

LTMIN 

LUFLUX 

LVFLUX 

LX 

M 

MATIN 

MATSNX 

MATSUN 

MJ 

MLF 

MR  DO 

MSM 

N 

NB 

NO 

NDALT 

NDA  V 

NDHOG 

NDOUT 

NDPHY 

NDRSW 

NDSHF 

NDT 

NHMS 

NHMSO 

NHMS  1 

MHMSE 

NKRSH 

NLA  V 

NLAYM1 

NLA  YN 

NLA VP  t 

NMLEV 

NSDAY 

NSEQ 

NSTEP 

NYMO 

NYMDO 

NYMD1 

NYMDE 

NZINIT 

OMEGA2 

P 

PHI 

PHIBAR 

PHIL 
PHIM 
PH  IP 
PHIS 
PI 

PI  180 
P 1 2 

PIMEAN 


LCNTRL 

ICNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


ICNTRL 


LOGICAL 

INTEGER 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

INTEGER 

INTEGER 

INTEGER 


UNKNOWN 

SIMPLE 

UNKNOWN 

SIMPLE 

UNKNOWN 

UNKNOWN 

ARRAY 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 


1 19 

147 

44 

122 

150 

330/S 

331 

1 12 

140 

1 13 

14  1 

108 

1 10 

120 

12  1 

109 

122 

125 

153 

118 

146 

124 

152 

117 

145 

111 

139 

1 10 

138 

120 

148 

121 

149 

328/C 

329 

304/S 

307 

45 


331 

370/S 

372 

373 

1 1 1 

1 12 

f 13 

1 1 4 

136 

123 

124 

125 

137 

tD 

W 

o 

3 


118  119 


368/C  369 

312  314 


315  316  318  327 


332 


335 


ICNTRL 

ICNTRL 

rDPARM 

ICNTRL 

ICNTRL 

ICNTRL 


ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

RCNTRL 

QANDQT 

QANDQT 

// 

// 

0M5AVE 

QPOLES 

QANDQT 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


46 

47 
208 

48 

49 

51 
1 

346 

52 

53 

54 

55 
76 

56 

57 
31 
08 
59 

50 
62 

209 

61 

50 

63 
367 

64 

341/S 

65 
75 

66 
67 
69 

71 

73 
2 10 

72 

74 

172 
261 
266 

300 
361 

301 
295 
289 
254 

173 

174 

175 
177 


304 


312  314 

349  351 


315 

352 


316 

355 


318 

367 


327 

374 


332 


335 


335 


311  326 

369 

328  368 


325  327  329  334 


34  1 


345  364 


274 

346 

349 

279 

335/S 

367/S 

308/S 

366 

319/S 

319 

326/S 

327 

331  /S 

327/S 

332/S 

335 

267 

308 

342 

352 

355 

374  /S 

323/S 

323 

326 

331 

332 

366/S 

342/S  356/ S 356 

367  373/S  373 


341 


365 


361 

374 
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PIT 

PK 


QM5AVE 

// 


ARRAY 

ARRAY 


REAL 

REAL 


PK  1 

// 

REAL 

PK2 

// 

REAL 

PKO  1 

// 

REAL 

PKD2 

// 

REAL 

PKSTD 

RDPARM 

REAL 

PKTOP 

R DP ARM 

REAL 

297 

302  3 1 4/S 

350  351 

ARRAY  300  309/S 

ARRAY  300  313/S 

ARRAY  300  310/S 

ARRAY  301  322/S 

SIMPLE  238  326 

SIMPLE  239 


PL  2 

/ / 

REAL 

ARRAY 

301 

312/S 

PLEVS 

RCNTRL 

REAL 

ARRAY 

191 

PM 

OMSAVE 

REAL 

ARRAY 

290 

PP 

QPOLES 

REAL 

ARRAY 

284 

312 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

178 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

179 

PSTD 

RCNTRL 

REAL 

SIMPLE 

176 

PTOP 

RCNTRL 

REAL 

SIMPLE 

180 

309 

PV 

OMSAVE 

REAL 

ARRAY 

296 

P2ER0 

RCNTRL 

REAL 

SIMPLE 

197 

OALT 

LCNTRL 

LOGICAL 

SIMPLE 

98 

126 

OANDQT 

REAL 

UNKNOWN 

253 

280 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

99 

127 

QDAV 

LCNTRL 

LOGICAL 

SIMPLE 

too 

128 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

10  1 

1 29 

OMSAVE 

REAL 

UNKNOWN 

290 

291 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

102 

130 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

103 

131 

QPOLES 

REAL 

UNKNOWN 

284 

285 

QPROG 

OANDQT 

REAL 

ARRAY 

253 

267 

277 

278 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

107 

135 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

106 

134 

QSDIAG 

OANDQT 

REAL 

ARRAY 

280 

282 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

104 

132 

QUO I AG 

QANDOT 

REAL 

ARRAY 

283 

RADE 

RCNTRL 

REAL 

SIMPLE 

t a i 

RC 

RCNTRL 

REAL 

ARRAY 

198 

199 

RCO 

RCNTRL 

REAL 

SIMPLE 

156 

198 

RCNTRL 

REAL 

UNKNOWN 

156 

157 

167 

168 

178 

179 

189 

190 

RDPARM 

REAL 

UNKNOWN 

217 

218 

228 

229 

239 

240 

250 

251 

RGAS 

RCNTRL 

REAL 

SIMPLE 

182 

316 

RLAT 

RDPARM 

REAL 

ARRAY 

240 

RLATD 

RDPARM 

REAL 

ARRAY 

24  1 

ROCP 

RCNTRL 

REAL 

SIMPLE 

183 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

242 

R0CPP1 

RDPARM 

REAL 

SIMPLE 

243 

314 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

104 

SD 

OMSAVE 

REAL 

ARRAY 

290 

SDAY 

RCNTRL 

REAL 

SIMPLE 

185 

SEASON 

RCNTRL 

REAL 

SIMPLE 

186 

SGNP 

RDPARM 

REAL 

ARRAY 

244 

SH 

OANDQT 

REAL 

ARRAY 

265 

278 

SHM 

OMSAVE 

REAL 

ARRAY 

294 

SHP 

QPOLES 

REAL 

ARRAY 

288 

SHS 

QANDQT 

REAL 

ARRAY 

260 

273 

SIG 

RDPARM 

REAL 

ARRAY 

251 

316 

SIGE 

RCNTRL 

REAL 

ARRAY 

187 

312 

SIND 

RCNTRL 

REAL 

SIMPLE 

188 

SINL 

RDPARM 

REAL 

ARRAY 

24S 

S I N LON 

RDPARM 

REAL 

ARRAY 

246 

SMTH 

OANDQT 

REAL 

ARRAY 

255 

268 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

105 

133 

SOLS 

RCNTRL 

REAL 

SIMPLE 

189 

315 

353 

314 

314 

323 

323 

364 

3 16 

359 

320/S 

320 

324  /S 

324 

322 

359 

343/S 

347/S 

344  /S 

326 

322 
364 
350 
347 
360 
355  / S 

326 

373 

357/S 

348/S 

362/S 

360 

331 

373 

348 

362 

331 

350 

365 

349/S 

257 

350 

3t3 

313 

346/S 

347 

348 

314 

3 16 

318 

309 

3 1 2 

316 

343 

343 

346 

352 

283 

292 

293 

294 

295 

296 

297 

29S 

299 

286 

268 

287 

269 

288 

270 

289 

271 

272 

273 

2^4 

275 

276 

279 


199 

158 

159 

160 

169 

170 

17  1 

180 

181 

182 

191 

192 

193 

219 

220 

221 

230 

231 

232 

24  1 
252 
35  2 

242 

243 

161 

162 

163 

172 

173 

174 

183 

184 

las 

194 

195 

196 

222 

223 

224 

233 

234 

235 

244 

245 

246 

164 

165 

166 

ITS 

176 

177 

186 

197 

187 

188 

225 

226 

227 

236 

237 

238 

247 

243 

249 

316  352  352 

322  346  359 


GEOHT  11 


START 

LDPARM 

LOGICAL 

SIMPLE 

T 

QANDQT 

REAL 

ARRAY 

TEMPI 

// 

REAL 

ARRAY 

TERM 

// 

REAL 

ARRAY 

TERMT 

QMSAVE 

REAL 

ARRAY 

TERMW 

QMSAVE 

REAL 

ARRAY 

TH 

// 

REAL 

ARRAY 

THSTD 

RDPARM 

REAL 

SIMPLE 

THSTD2 

RDPARM 

REAL 

SIMPLE 

TM 

QMSAVE 

REAL 

ARRAY 

TP 

OPOLES 

REAL 

ARRAY 

TS 

QANDQT 

REAL 

ARRAY 

TSTD 

RCNTRL 

REAL 

SIMPLE 

U 

QANDQT 

REAL 

ARRAY 

UM 

QPASAVE 

REAL 

ARRAY 

UP 

QPOLES 

REAL 

ARRAY 

V 

QANDQT 

REAL 

ARRAY 

VER 

ccntrl 

CHAR'S 

SIMPLE 

VM 

QMSAVE 

REAL 

ARRAY 

VP 

QPOLES 

REAL 

ARRAY 

WSAVE 

RDPARM 

REAL 

ARRAY 

XLABEL 

CCNTRL 

CHAR*8 

ARRAY 

213 

216 

264 

277 

351 

302 

360/S 

361 

364/S 

365/S 

301 

316/S 

317 

318 

352/S 

29  9 

318/S 

319 

337/S 

337 

299 

317/S 

336/S 

336 

354/S 

302 

315/S 

317 

318 

323 

36 1 

365 

371 

372 

247 

317 

354 

248 

326 

331 

364 

37  1 

293 

2B7 

315 

259 

272 

190 

262 

275 

291 

285 

263 

276 

10 

23 

292 

286 

249 

1 1 

24 

365 

353/S 

355/S 

366 

353 

356 

371/S 

354 

372  'S 
355 

372 

373 

326 

331 

331 

351  /S 

354 

355 

PROCEDURE  MAP 

- - NAME TYPE- -CLASS 

EXPBYK  REAL  FUNCTION 

VEXPBYK  REAL  FUNCTION 


REFERENCES  D- STMT  FN  DEF 

309  313  343 

347 


AaARGLIST 


OOOOI 


FUNCTION  INCHMS  ( NHMS , NSEC) 

C 

C CMS  FILE  NAME  INCHMS  FORTRAN 

C ORIGIN  MACHINE  IREDELL 

C DOCUMENTATION  DATE  06/26/81 
C 

C DOES  HOUR-MINUTE -SECOND  ARITHMETIC 
C 


C 

ARGUMENTS 

DESCRIPTION 

c 

NHMS 

CURRENT  TIME  IN  HHMMSS  FORMAT 

c 

NSEC 

INCREMENT  TIME  IN  SECONDS 

c 

INCHMS 

CURRENT  TIME  PLUS  INCREMENT  TIME  IN  HHMMSS  FORMAT 

c 

MHMS 

INCREMENT  TIME  IN  HHMMSS  FORMAT 

c 

Q 

MODHMS 

TIME  SINCE  LAST  INCREMENT  TIME  OCCURRED  IN  SECONDS 

00002 

NSECF(N) 

- N/ 10000*3600  + MOD(N, 10000)/ 100*60  + M0D(N,100> 

00003 

NHMSF(N) 

= N/3600* 10000  + MOD  < N , 3600 ) /60* 1 00  4 MOD(N.BO) 

c 

* ♦ * 

00004 

INCHMS  = 

NHMSF ( NSECF ( NHMS ) +NSEC ) 

OOOOS 

RETURN 

c 

* » * 

00006 

ENTRY  MOOHMS  (NHMS,  MHMS) 

00007 

MSEC  = NSECF(NHMS) 

00008 

IF  (MHMS 

. GT . 0 ) MSEC  - MOD (MSEC .NSECF (MHMS)  > 

00009 

MODHMS  = 

MSEC 

00010 

RETURN 

0001  1 

END 

V X NCHMS 
V INCHMS 
V INCHMS 
VI NCHMS 
VI NCHMS 
VI NCHMS 
VI NCHMS 
V INCHMS 
VI NCHMS 
VI NCHMS 
VI NCHMS 
VI NCHMS 
V I NCHMS 
VI NCHMS 
VI NCHMS 
VINCHMS 
V I NCHMS 
V I NCHMS 
VINCHMS 
VINCHMS 
VINCHMS 
VINCHMS 
VINCHMS 
VINCHMS 
VINCHMS 
VINCHMS 
VINCHMS 


2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 


VARIABLE 

MAP 

--NAME 

BLOCK 

--TYPE 

-CLASS 

REFERENCES 

A^ARGLIST , C=CTRL  OF 

DO. 

I =DATA  INI T . R=READ. 

5=STORE.  W-WR  JTE 

INCHMS 

INTEGER 

FUNCTION 

1 

4/S 

MHMS 

INTEGER 

SIMPLE 

6 

a 

8 

MODHMS 

INTEGER 

FUNCTION 

6 

9/s 

MSEC 

INTEGER 

SIMPLE 

7/S 

a/s 

8 9 

N 

INTEGER 

SIMPLE 

2 

2 

2 2 

3 

3 3 

3 

NHMS 

INTEGER 

SIMPLE 

1 

4 

6 7 

NSEC 

INTEGER 

SIMPLE 

1 

4 

PROCEDURE 

MAP 

--NAME 

TYPE 

--CLASS 

REFERENCES 

D=STMT  FN 

DEF,  A-ARGLIST 

MOD 

INTEGER 

INTRINSIC 

2 

2 

3 

3 8 

NHMSF 

INTEGER 

STAT  FUNC 

3/S 

4 

NSECF 

INTEGER 

STAT  FUNC 

2/S 

4 

7 

8 

IH 

2 

O 

SB 

S 

CD 


ORIGINAL  PASS  S3 
OF  POOR  QUALITY 


0000  1 


00002 

ooooa 

00004 

00005 

00006 

00007 

00008 

00009 
00010 
000  1 1 
00012 

00013 

00014 

00015 

00016 

00t>  1 7 
00016 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FUNCTION  INCYMD  (NYMD) 


CMS  FILE  NAME 
ORIGIN  MACHINE 
DOCUMENTATION  DATE 


INCYMD  FORTRAN 
IREDELL 
06/26/81 


THE  YEAR -MONTH -DAY  BY  ONE  DAY 
OR  COMPUTES  NUMBER  OF  DAYS  IN  THE  YEAR  (JULIAN  DAY ) 

ARGUMENTS  DESCRIPTION 

CURRENT  DATE  IN  VVMMDD  FORMAT 

MODvSo  CURRENT  5SJ!aSLd!vONE  °AV  *"  VVWMD°  FO"MAT 

LOGICAL  leAPM2,/3,*28,3,'30-3,'30’3,-3,'30-3,'3°’3^ 

DATA  NV00/I90O/ 

. LEAP«NV)  = MOD ( NY , 4 ) . £0 . 0 .AND.  »NY.NE.O  .OH.  MOD ( NVOO . AOO I 
NY  = NYMD/ 10000 


NM 

ND 


ND 


ND 

NM 


NM 

NY 


MOD (NYMD. 10000)/ 100 
MOD (NYMD, 100) 


4 

5 

6 

7 

8 
9 

10 
I 1 
12 

13 

14 

15 

16 

17 

18 
19 


ND 


1 

NM 


1 

NY 


IF  (ND . LE . NDPM(NM) ) GO  TO  20 
IF  (ND.EQ.29  .AND.  NM.E0.2  .AND. 


LEAP(NY) ) “GO  TO  20 


4 1 
IF 

+ 1 


(NM. LE . 12)  GO  TO  20 


C * 


20  CONTINUE 

INCYMD  = NY- 1 0000 
RETURN 


♦ NM* 100  ♦ NO 


ENTRY  MODYMD  (NYMD) 

NY  = NYMD/ 10000 
NM  = MOr/(NYMD,  10000) /100 
ND  s MOD (NYMD, 100) 

• *■  ♦ 

40  CONTINUE 

IF  (NM.LE.1) 

NM  = NM  - 1 
ND  = ND  * NOPM(NM) 

IF  (NM.E0.2  .AND.  LEAP (NY)) 
GO  TO  40 

* 

GO  CONTINUE 

MODYMO  = ND 

RETURN 

END 


GO  TO  60 

ND  = ND  * 1 


STATEMENT 

LABEL  MAP 

--LABEL- - 

-DEFINED 

REFERENCES 

20 

17 

10 

11  14 

40 

24 

29 

60 

30 

25 

VARIABLE  MAP 

— NAME 

BLOCK-- 

TYPE 

--CLASS 

INCYMD 

INTEGER 

FUNCTION 

MOD  YMD 

INTEGER 

FUNCTION 

ND 

INTEGER 

SIMPLE 

NDPM 

INTEGER 

ARRAY 

NM 

INTEGER 

SIMPLE 

V INCYMD 
V INCYMD 
VINCYMD 
V INCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
VINCYMD 
EO.O)  VINCYMD 

VINCYMD  20 
VINCYMD  21 
VINCYMD  22 
VINCYMD  23 
VINCYMD  24 
VINCYMD  25 
VINCYMD  26 
VINCYMD  27 
VINCYMD  28 
VINCYMD  29 
VINCYMD  30 
VINCYMD  31 
VINCYMD  32 
VINCYMD  33 
VINCYMD  34 
VINCYMD  35 
VINCYMD  36 
VINCYMD  37 
VINCVMO  38 
VINCYMD  39 
VINCYMD  40 
VINCYMD  41 
VINCYMD  42 
VINCYMD  43 
VINCYMD  44 
VINCYMD  45 
VINCYMD  46 
VINCYMD  47 
VINCYMD  48 
VINCYMD  49 
VINCYMD  SO 
VINCYMD  51 
VINCYMD  52 
VINCYMD  53 


o o 

•n  M 

T3  55 

o 2 
O Jj, 

<o  “0 

c 2=> 

2?  65 

^4  C5T» 


NY 


INTEGER 


SIMPLE 


-REFERENCES 

1 

20 

8/S 

28 

2 

7/S 

26 

5 


ArARGLIST,  C=CTRL  of  oo.  I=DATA  INIT,  RrREAD.  S=STORE . 


W=WRJTE 


18/S 

31/S 


9/S 

31 

9 

10 

1 1 

12/S 

18 

23/S 

27/S 

27 

28 

10 

27 

10 

27 

1 1 
28 

13/S 

13 

14 

15/S 

18 

22 /S 

25 

26 

5 

5 

6/S 

I f 

16/S 

16 

18 

21/S 

28 

W 

O 

*< 


>»  •’ : 


4/1 

1 


REFERENCES 

3 

5 


l I 


5 

G 7 8 20 


D = STMT  FN  DEF.  A = ARGL 1 ST 

5/S  It  28 

5 7 8 22 


2 1 


23 


22  23 


36 


S3 

a 

*< 


to 


OF  POOR  QUAUTV 


00001 


00002 

00003 

00004 

00005 

00006 

00007 

00008 
00009 
00010 
0001  1 
00012 
00013 

000  14 
00015 
000  16 
00017 

oooia 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 


00027 

00028 

00029 

00030 

00031 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c* 

c- 

c* 

c 

c 

c* 

c 

c 

c 

c 


c 


SUBROUTINE  INITSD 


PURPOSE 

INITIALIZE  MODEL  DIAGNOSTIC  QUANTITIES 
USAGE 

CALLED  FROM  GWSGCM 

INPUT/OUTPUT  FILES  USED 
NONE 

DESCRIPTION  OF  PARAMETERS 
NONE 


SUBPROGRAMS  NEEDED 
NONE 


RECORD  OF  MODIFICATIONS 
7DATE7  7 PROGRAMMER 7 
22JUL83  JIM.PF 

REMARKS: 

( 1 ) 


7DESCR IPTION  OF  MODIFICATIONS'? 
ADDED  DOCUMENTATION  * CHOICE  OF 


COM  SIGMA  DATA  INC,  NASA 


SUBROUTINE  INITSD 


?-A?ASI§?_???5!:_PAflAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /CCNTRL / CCO 
COMPTON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  A TIME 
CONWION  /CCNTRL/  JIG 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  MO) 

COMMON  /CCNTRL/  CQS  (30) 

COMPTON  /CCNTRL/  COU  (10) 


EQUIVALENCE 
CHARACTERS 
CHARACTERS 
CHARACTER  *8 
CHARACTER'S 
CHARACTER  *8 
CHARACTERS 
CHARACTER'S 
CHARACTER'S 
CHARACTER'S 
CHARACTER'8 
CHARACTER'S 
CHARACTER'S 


<CCO,CC< 1 ) ) 

CCO.  CC ( 200 ) 

ADATE 

ATIME 

JIC 

JOB 

CCSP06 

CCSP07 

CCSP08 

VER 

XLABEL 

CQS 

CQU 


^meters  saved  on  history  record 

COMMON  / ICNTRL / ICO 
COMMON  /ICNTRL/  1M 
COMMON  /ICNTRL/  IMD2 
COMMON  /ICNTRL/  IPJID2P1 
COMMON  /ICNTRL/  NDRSW 


*"*••*•  """VINJ  TSD  2 
VINITSD  3 
VINITSD  4 
VINITSD  5 
VINITSD  6 
VINITSD  7 
VINITSD  8 
VINITSD  9 
VINITSD  10 
VINITSD  II 
VINITSD  12 
VINITSD  13 
VINITSD  14 
VINITSD  15 
VINITSD  16 
VINITSD  17 
VINITSD  18 
VINITSD  19 
VINITSD  20 
VINITSD  21 
VINITSD  22 
DIAGNOSTICS  VINITSD  23 


VINJ  TSD 

24 

VINITSD 

25 

VINITSD 

26 

VINITSD 

27 

* VINITSD 

28 

•VINI TSD 

29 

•VINITSD 

30 

VINI TSD 

3T 

VINITSD 

32 

VINI TSD 

33 

'VINITSD 

34 

VINITSD 

35 

VCNTRL 

2 

VCNTRL 

3 

VCNTRL 

4 

VCNTRL 

5 

VCNTRL 

6 

VCNTRL 

7 

VCNTRL 

8 

VCNTRL 

9 

VCNTRL 

10 

VCNTRL 

1 1 

VCNTRL 

12 

VCNTRL 

13 

VCNTRL 

14 

VCNTRL 

15 

VCNTRL 

16 

VCNTRL 

17 

VCNTRL 

18 

VCNTRL 

19 

VCNTRL 

20 

VCNTRL 

21 

VCNTRL 

22 

VCNTRL 

23 

VCNTRL 

24 

VCNTRL 

25 

VCNTRL 

26 

VCNTRL 

27 

VCNTRL 

28 

VCNTRL 

29 

VCNTRL 

30 

VCNTRL 

31 

VCNTRL 

32 

VCNTRL 

33 

VCNTRL 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

38 

. . ; . . : 


00032 

COMMON 

/ICNTRL/ 

JM 

VCNTRL 

39 

00033 

COMMON 

/ I CNTRL / 

JMD2 

VCNTRL 

40 

00034 

COMMON 

/ICNTRL/ 

JMT2 

VCNTRL 

4 1 

00035 

COMMON 

/ICNTRL/ 

JNP 

VCNTRL 

42 

00036 

COMMON 

/ ICNTRL/ 

J04 

VCNTRL 

43 

00037 

COMMON 

/ICNTRL/ 

JOB 

VCNTRL 

44 

0003S 

COMMON 

/ICNTRL/ 

JSP 

VCNTRL 

45 

00039 

COMMON 

/ICNTRL/ 

KLIALB 

VCNTRL 

46 

00040 

COMMON 

/ICNTRL/ 

KLIGW 

VCNTRL 

47 

00041 

COMMON 

/ICNTRL/ 

KLISST 

VCNTRL 

4B 

00042 

COMMON 

/ICNTRL/ 

KS 

VCNTRL 

49 

00043 

COMMON 

/ICNTRL/ 

KU 

VCNTRL 

50 

00044 

COMMON 

/ICNTRL/ 

L0G8R 

VCNTRL 

51 

00045 

COMMON 

/ICNTRL/ 

MATIN 

VCNTRL 

52 

00046 

COMMON 

/ICNTRL/ 

MATSNX 

VCNTRL 

53 

00047 

COMMON 

/ICNTRL/ 

MATSUN 

VCNTRL 

54 

00048 

COMMON 

/ICNTRL/ 

MLF  < 1 2 > 

VCNTRL 

55 

00049 

COMMON 

/ICNTRL/ 

MROD 

VCNTRL 

56 

00050 

COMMON 

/ICNTRL/ 

NKRSH 

VCNTRL 

57 

00051 

COMMON 

/ICNTRL/ 

MSM 

VCNTRL 

58 

00052 

COMMON 

/ICNTRL/ 

N8 

VCNTRL 

59 

00053 

COMMON 

/ICNTRL/ 

ND 

VCNTRL 

60 

00054 

COMMON 

/ICNTRL/ 

NDALT 

VCNTRL 

G 1 

00055 

COMMON 

/ICNTRL/ 

NDAY 

VCNTRL 

62 

00056 

COMMON 

/ICNTRL/ 

NDOUT 

VCNTRL 

63 

00057 

COMMON 

/ICNTRL/ 

NDPHY 

VCNTRL 

64 

00058 

COMMON 

/ICNTRL/ 

NDSHF 

VCNTRL 

65 

00059 

COMMON 

/ICNTRL/ 

NOT 

VCNTRL 

66 

00060 

COMMON 

/ICNTRL/ 

NHMS 

VCNTRL 

67 

00061 

COMMON 

/ICNTRL/ 

NHMSE 

VCNTRL 

68 

00062 

COMMON 

/ICNTRL/ 

NHMSO 

VCNTRL 

69 

00063 

COMMON 

/ICNTRL/ 

NLA  V 

VCNTRL 

70 

00064 

COMMON 

/ICNTRL/ 

NLA VM 1 

VCNTRL 

71 

00065 

COMMON 

/ICNTRL/ 

NLAYP1 

VCNTRL 

72 

0006G 

COMMON 

/ICNTRL/ 

NSDAY 

VCNTRL 

73 

00067 

COMMON 

/ICNTRL/ 

NSEQ 

VCNTRL 

74 

00068 

COMMON 

/ICNTRL/ 

ICSP53 

VCNTRL 

75 

00069 

COMMON 

/ICNTRL/ 

NSTEP 

VCNTRL 

76 

00070 

COMMON 

/ICNTRL/ 

IBLKSI Z 

VCNTRL 

77 

00071 

COMMON 

/ICNTRL/ 

NYMD 

VCNTRL 

78 

0OO72 

COMMON 

/ICNTRL/ 

NYMDE 

VCNTRL 

79 

00073 

COMMON 

/ICNTRL/ 

NVMDO 

VCNTRL 

80 

00074 

COMMON 

/ICNTRL/ 

NZ I NIT 

VCNTRL 

81 

00075 

COMMON 

/ICNTRL/ 

NMLEV 

VCNTRL 

82 

00076 

COMMON 

/ICNTRL/ 

NDHOG 

VCNTRL 

83 

00077 

COMMON 

/ICNTRL/ 

IQS  (30) 

VCNTRL 

84 

00078 

COMMON 

/ICNTRL/ 

IQU  ( 10  ) 

VCNTRL 

85 

C 

VCNTRL 

86 

00079 

EQUIVALENCE 

( I TMI  Vj 

, IQS( 

i ) ) 

VCNTRL 

87 

00080 

EQUIVALENCE 

(UMAX 

« I QS  ( 

2)  ) 

3VCNTRL 

88 

00081 

equivalence 

( IPREACC 

, IOS? 

3)  ) 

VCNTRL 

89 

00082 

EQUIVALENCE 

< I PRECON 

♦ IQS( 

4)  ) 

VCNTRL 

90 

00083 

EQUIVALENCE 

(INFLUX 

, IQS  ( 

5 > ) 

VCNTRL 

91 

00084 

EQUIVALENCE 

< I EF  LUX 

, IOS( 

6)  ) 

VCNTRL 

92 

00085 

EQUIVALENCE 

( I FUSION 

, I QS  < 

7)  ) 

VCNTRL 

93 

00086 

EQUIVALENCE 

< IRADSWG 

. IQS( 

8)  > 

VCNTRL 

94 

00087 

EQUIVALENCE 

( IRADLWG 

, IQS( 

9)  ) 

VCNTRL 

95 

000B8 

EQUIVALENCE 

< I I CLOUD 

. IQSl 10) ) 

VCNTRL 

96 

00089 

EQUIVALENCE 

( IUFLUX 

« IQS( 1 1 ) > 

VCNTRL 

97 

00090 

EQUIVALENCE 

( IVFLUX 

. IQSM2)  ) 

VCNTRL 

98 

C 

VCNTRL 

99 

00091 

EQUIVALENCE 

( IOMEGA 

,IQU( 

1 ) ) 

VCNTRL 

100 

00092 

EQUIVALENCE 

( IDIABAT 

, IQUf 

2)  ) 

VCNTRL 

101 

00093 

EQUIVALENCE 

( IRADSW 

. IQU( 

3)  ) 

VCNTRL 

102 

00094 

EQUIVALENCE 

( IRADLW 

, i au  f 

4)  ) 

VCNTRL 

103 

C 

VCNTRL 

104 

00095 

EQUIVALENCE 

( ICO, IC( 1 ) ) 

VCNTRL 

105 

00096 

INTEGER 

ICO,  I C ( 200) 

VCNTRL 

106 

C 

VCNTRL 

107 

c 

LOGICAL  MODEL  PARAMETERS  SAVED  ON 

HISTORY  RECORD 

VCNTRL 

108 

c 

VCNTRL 

109 

OF  POOR  QUALITY 


f 


p 

\i  . 

ij  • 

| 

'i  . 

t 

i 

i 

} 

t 

I 


1 


j 

I * 


J 

I 

i 

\ 


00097 

C0L.40W  /LCNTRL/ 

LCO 

VCNTRL 

i to 

00098 

COMMON  /LCNTRL/ 

QALT 

VCNTRL 

1 1 1 

00099 

COMMON  /LCNTRL/ 

QBEG 

VCNTRL 

112 

00100 

COMMON  /LCNTRL/ 

QDAY 

VCNTRL 

1 13 

0010  1 

COMMON  /LCNTRL/ 

QEND 

VCNTRL 

114 

00102 

COMMON  /LCNTRL/ 

QOUT 

VCNTRL 

1 15 

00  103 

COMMON  /LCNTRL/ 

QPHY 

VCNTRL 

1 16 

00104 

COMMON  /LCNTRL/ 

QSHF 

VCNTRL 

117 

00  105 

COMMON  /LCNTRL/ 

SN2FLG 

VCNTRL 

1 18 

00106 

COMMON  /LCNTRL/ 

QRSW 

VCNTRL 

119 

00107 

COMMON  /LCNTRL/ 

QRSH 

VCNTRL 

120 

00108 

COMMON  /LCNTRL/ 

LQS130) 

VCNTRL 

121 

00109 

COMMON  /LCNTRL/ 

LQU ( 10) 

VCNTRL 

122 

C 

VCNTRL 

123 

001  10 

EQUIVALENCE 

{LTMIN 

, LQS  ( n> 

VCNTRL 

124 

OOt  1 1 

EQUIVALENCE 

(LTMAX 

,LQS<  2>) 

VCNTRL 

125 

00  112 

EQUIVALENCE 

f LPREACC 

■ LQS  < 3)) 

VCNTRL 

126 

001  13 

equivalence 

(LPRECON 

. LQS ( 4 ) ) 

VCNTRL 

127 

00  114 

EQUIVALENCE 

(LHFLUX 

, LQS ( 5)) 

VCNTRL 

128 

00  1 15 

EQUIVALENCE 

( LEF  LUX 

, LQS ( 6)) 

VCNTRL 

129 

00  116 

EQUIVALENCE 

( LFUSI ON 

, L QS  ( 7)) 

VCNTRL 

130 

00117 

EQUIVALENCE 

( LRADSWG 

, LQS  < 8)> 

VCNTRL 

121 

001  18 

EQUIVALENCE 

( LRADLWG 

. L QS ( 9)) 

VCNTRL 

132 

00119 

EQUIVALENCE 

( LICLOUD 

, LQS( 10> ) 

VCNTRL 

133 

00120 

EQUIVALENCE 

{ LUFLUX 

, L QS  ( ID) 

VCNTRL 

134 

00  121 

EQUIVALENCE 

1 LVFLUX 

.LGSf 12) > 

VCNTRL 

135 

C 

VCNTRL 

136 

00122 

EQUIVALENCE 

< LOMEGA 

. LQU  ( 1)) 

VCNTRL 

137 

00123 

EQUIVALENCE 

ILDIABAT 

, LQU 1 2)) 

VCNTRL 

138 

00124 

EQUIVALENCE 

(LRADSW 

, L QU 1 3)) 

VCNTRL 

139 

00125 

EQUIVALENCE 

{ LRADLW 

, LQU ( 4)) 

VCNTRL 

140 

C 

VCNTRL 

14  1 

00126 

LOGICAL 

QALT 

VCNTRL 

142 

00127 

LOGICAL 

QBEG 

VCNTRL 

143 

00  1 28 

LOGICAL 

QDAY 

VCNTRL 

144 

00129 

LOGICAL 

QEND 

VCNTRL 

145 

00130 

LOGICAL 

QOUT 

VCNTRL 

146 

00131 

LOGICAL 

QPHY 

VCNTRL 

147 

00132 

LOGICAL 

QSHF 

VCNTRL 

148 

00133 

LOGICAL 

SN2FLG 

VCNTRL 

149 

00134 

LOGICAL 

QRSW 

VCNTRL 

150 

00135 

LOGICAL 

QRSH 

VCNTRL 

151 

C 

VCNTRL 

152 

00136 

LOGICAL 

LQS 

VCNTRL 

153 

00137 

LOGICAL 

LQU 

VCNTRL 

154 

00138 

LOGICAL 

LTMIN 

VCNTRL 

1 55 

00139 

LOGICAL 

LTMAX 

VCNTRL 

156 

00140 

LOGICAL 

LPREACC 

VCNTRL 

157 

00141 

LOGICAL 

LPRECON 

VCNTRL 

1 50 

00142 

LOGICAL 

LHFLUX 

VCNTRL 

159 

00143 

LOGICAL 

LEFLUX 

VCNTRL 

160 

00144 

LOGICAL 

LFUSION 

VCNTRL 

161 

00145 

LOGICAL 

LRADSWG 

VCNTRL 

162 

00146 

LOGICAL 

LRADLWG 

VCNTRL 

163 

00  147 

LOGICAL 

LICLOUD 

VCNTRL 

164 

00  148 

LOGICAL 

LUFLUX 

VCNTRL 

165 

00149 

LOGICAL 

LVFLUX 

VCNTRL 

166 

C 

VCNTRL 

167 

00150 

LOGICAL 

LOMEGA 

VCNTRL 

163 

00151 

LOGICAL 

LD1A8AT 

VCNTRL 

169 

00152 

LOGICAL 

LRADSW 

VCNTRL 

170 

00153 

LOGICAL 

LRADLW 

VCNTRL 

171 

C 

VCNTRL 

172 

00154 

EQUIVALENCE 

< LCO  » LC  < 1 ) ) 

VCNTRL 

173 

00155 

LOGICAL 

LCO,  LC 1 200 ) 

VCNTRL 

174 

C 

VCNTRL 

175 

C 

REAL  MODEL  PARAMETERS  SAVED 

ON  HISTORY  RECORD 

VCNTRL 

176 

1 77 

00  156 

c 

COMMON  / RCNTRL/ 

RCO 

v v i w w n ku 

VCNTRl 

178 

00157 

COMMON  /RCNTRL/ 

APHEL 

VCNTRL 

179 

00158 

COMMON  /RCNTRL/ 

BETA 

VCNTRL 

180 

£5 

M 

1-3 

CO 

O 

LO 


s 
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OF  POOR  QUALITY 


00  159 
00  160 
00161 
00162 

00163 

00164 

00165 

00166 
00167 
00  168 
00  169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

00178 

00179 

00180 
00181 
00182 
00183 
00  184 

00185 

00186 

00187 

00188 

00189 

00190 

00191 

00192 

00193 

00194 

00195 

00196 

00197 

00198 

00199 


00200 

00201 

00202 

00203 

00204 

00205 

00206 

00207 

00208 

00209 

00210 


00211 

00212 

00213 

00214 

00215 

00216 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON  / 

COMMON  , 


4 /RCNTRL / 
4 / RCNTRL / 
3 /RCNTRL/ 
! /RCNTRL/ 
1 /RCNTRL/ 

1 /RCNTRL/ 

J /RCNTRL/ 

I /RCNTRL/ 
f /RCNTRL/ 

I /RCNTRL/ 

I /RCNTRL/ 

1 /RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/ 
/RCNTRL/  I 
/RCNTRL/  I 
/RCNTRL/  j 
/RCNTRL/  I 
/RCNTRL/  { 
/RCNTRL/  I 


( COSO 
f CP 

' DAYS PV 
' DEC 
f DECMAX 
' DIST 
' DLAT 
r DLON 
' DT 
’ ECCN 
' GNU  1 
GNU2 
GRAV 
0MEGA2 
PI 

PI  180 

P 1 2 

PSTO 

PIMEAN 

PSMAX 

PSMIN 

PTOP 

RADE 

RGAS 

ROCP 

RSD 1ST 

SDAY 

SEASON 

SIGE  i 

SIND 

SOLS 

TSTD 

PLEVS  ( 
HEATW 
REATI 
EPS 

EPSFAC 
CAL TO J 
P2ER0 


EQUIVALENCE 

REAL 


<RCO,RC< 1) ) 
RCOr  RC1200) 


INTEGER_MODEL  CONSTANTS 

/JDpARM/  I JUMP  (46) 
COMMON  / I DPARM/  IDSP02 
SUMMON  /I DPARM/  INDEX  (72) 
COMMON  /IDPARM/  I ROD 
COMMON  / IDPARM/  JC  (46) 

COMMON  /IDPARM/  JE  (2) 

COMMON  /IDPARM/  JP  (|  2 

COMMON  /IDPARM/  KSTEP 
COMMON  /IDPARM/  MJ  (46) 

COMMON  /IDPARM/  NHMS1  * 

COMMON  /IDPARM/  NYMD1 

LOGICAL  MODEL  CONSTANTS 

22J2K2K  /tOPARW/  FILTER  (46) 
22XK2P  ^DPARM/  I TAPE 

COMMON  /LDPARM/  START 


LOGICAL 

LOGICAL 

LOGICAL 


FILTER 

ITAPE 

START 


00217 

00218 


REAL  MODEL  CONSTANTS 
COMMON  /rdparm/  adldp 

COMMON  /RDPARM/  CONI 


£35 


, * 


VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  189 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  190 
VCNTRL  199 
VCNTRL  200 
VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 
VCNTRL  207 
VCNTRL  208 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
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* * ■ d*5**ti  C 


00219 

00220 
0022  1 
00222 

00223 

00224 

00225 
00225 

00227 

00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 

00241 

00242 

00243 

00244 
00  245 

00246 

00247 

00248 

00249 

00250 

00251 

00252 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

00253 

C 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 

C 

00262 

00263 

00264 

00265 

00266 

C 

00267 

00268 

00269 

00270 

00271 

00272 


COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMCtt  /ROPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 


CON IDT 

C0N2 

C0N2DT 

C0N3 

C0N3DT 

C0N4 

C0N4DT 

CONS 

C05L 

(46) 

COSLON 

(72) 

CPD2 

DXP 

(46  ) 

DXYP 

(46) 

DYP 

(46) 

PCORLS 

< 46) 

FtOT 

P2DT 

H IDT 

H2DT 

PKSTD 

PKTOP 

PLAT 

(46) 

RLATD 

(46) 

ROCPDT 

ROCPP1 

SGNP 

(2) 

SI  NL 

(46) 

SINLON 

(72) 

THSTD 

THSTD2 

WSAVE 

( 159) 

DSIG 

(9) 

SIG 

(9) 

DSIGINV 

(9) 

COMDECK  VQANDQT  RESOLUTION  VALUES 


IM  =72 

NLA  Y 39 

JM- 1 =46 

NLAYM1  =99 

I M*  NLA  V* 1 1 -71 28 


d M/2+1  =23 


FIELDS  (NEEDED  IN  COMPO) 


/ QANDOT/  QPR0G(72,9t 11 .46) 


PHIS 

SMTH 


<7128,1 > 
(7128,23) 


ALBEDO  (7128,1) 


GT 

GW 

TS 

SHS 

P 

U 

V 

T 

SH 

PHI 


(7128. 1 ) 

(7128.1) 
(712B, 1 > 

(7128.1) 

(72.99. 1 ) 

(72.9.1 1.1) 

(72.9.11.1) 

(72.9. 11.1) 

(72.9.11.1) 

(72.9.11.1) 


COMMON 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(QPROGtr,  1,1 
< QPRQG ( 1 , 2,1 
( QPROGf 1 , 3,1 
( QPROG ( 1,4,1 
( QPROG ( 1 , 5, 1 
(QPROGO  , 6,1 


1 ) , PHI S (1,1)) 
n.SMTH  (1,1)) 
1 ) , ALBEDO ( 1,1)) 
1) ,GT  (1,1)) 
1 ) ,GW  (1,1)) 
1 ) ,TS  (1,1)) 


VCNTHL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  2B1 
VCNTRL  202 
VCNTRL  233 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VQANDQT  2 
VQANDQT  3 
VQANDQT  4 
VQANDQT  5 
VQANDQT  G 
VQANDQT  7 
VQANDQT  8 
VOANDOT  9 
VOANDOT  10 
VOANDOT  11 
VQANDQT  12 
VQANDQT  13 
VQANDQT  14 
VQANDQT  15 
VQANDQT  16 
VOANDOT  f 7 
VQANDQT  18 
VQANDQT  19 
VOANDOT  20 
VOANDOT  21 
VQANDQT  22 
VQANDQT  23 
VQANDQT  24 
VOANDOT  25 
VQANDQT  26 
VQANDQT  27 
VQANDQT  28 
VQANDQT  29 
VQANDQT  30 
VQANDQT  31 
VQANDQT  32 
VQANDQT  33 
VQANDQT  34 
VQANDQT  35 
VQANDQT  36 
VQANDQT  37 


C ”i 


*5  ,3 

c-'<i 


OF  POOR  Q 


00273 

00274 

00275 

00276 

00277 

00278 

00279 


00280 

00281 

00282 

00283 


00284 


00285 


00286 

002S7 

00288 

00289 

00290 

00291 

00292 

00293 

00294 


C 

C 

C 

C 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


{ QPROG ( 1 , 
{ QPROG  { 1 < 

( QPROG ( 1 , 
( QPROG ( 1 , 
< QP  ROG ( 1 , 
{ QPROG  ( 1 , 
< QPROG ( 1 , 


7, 

8, 

1 . 

1 . 

1 , 

1 , 

1 , 


1 , 
1 . 

2, 

4, 

6, 

8. 

10, 


1) , SHS 

1 > ,P 


( 1 . !)) 


1)  ,U 
f ) .V 
1 ) ♦ T 
1) , SH  ( I 
1 ) , PHI < 1 


i 1 , 
< 1 , 
< 1 , 


1 ) ) 
1 ) ) 
1 ) > 
1 ) ) 
1 > t 


SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COMPO) 


COMMON 

DIMENSION 

EQUIVALENCE 

COMMON 


/QANDQT / QSDl AG (72 
1 OSDI AG < 72 


(QSDIAG.IOSDIAG) 
/QANDQT/  QUDI AG( 72.9,  5,46) 


.15,46) 
15,46) 


VQANDQT  38 
VQANDQT  39 
VQANDQT  40 
VQANDQT  41 
VQANDQT  42 
VOANDQT  43 
VQANDQT  44 
VOANDQT  45 
VQANDQT  46 
VOANDQT  47 
VQANDQT  48 
VOANDQT  49 
VQANDQT  50 
VOANDQT  51 
VQANDQT  52 
VQANDQT  53 
VQANDQT  54 
VOANDQT  55 


c VINIT5D  38 
£*.♦  ♦*  + *****♦**♦****»*****♦**************•*♦#.*♦**♦***♦♦♦•■♦»♦  ~-*  * * ****  'VINITSD  39 
c VINITSD  40 
C DEBUG  VBEGDEB  2 
lOOOO  CONTINUE  VBEGDEB  3 
C CYBER  VECTOR  VERSION  00.001  INPUT  IOQ  VBEGDEB  4 
C »•»*  CYBER  VECTOR  VERSION  00  VBEGDEB  5 
CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSVBEGDEB  6 


DO  20  J - 1 v dNP 

C 
C 

C SURFACE  QUANTITIES 

C 

C 

C MINIMUM  DAILY  SURFACE  TEMPERATURE 

C IF  < QDAY . AND . LTMIN  > QSD I AG ( 1 , 1 TWIN , d ; IM ) a 1 .E6 

C 

C MAXIMUM  DAILY  SURFACE  TEMPERATURE 
C :s5::rs3  = ;=  = = s = = s=s::s:“"  = " = = = 

IF  (QDAY. AND. LTMAX)  QSD I AG (1*1 TMAX , J ; IM ) - 0.00 
C 

C TOTAL  ACCUMULATED  PRECIPITATION 

IF(LPREACC)  QSD I AG ( 1 , I PREACC , d ; IM)  = 0.00 
C 

C CONVECTIVE  PRECIPITATION 

I F ( LPRECON ) QSDIAGM  , IPRECON  , d ; IM)  = 0.00 
C 

C SENSIBLE  HEAT  FLUX 

IF ( LHFLUX  ) QSDIAGM . INFLUX  fd;IM>  = 0.00 
C 

C EVAPORATIVE  FLUX 
C =s==c:=:=s====== 

IF ( LEFLUX  ) QSDIAGM . IEFLUX  ,d;IM>  = 0.00 
C 

C HEAT  STORAGE  IN  FREEZING  AT  GROUND 

C IF(LFUSION)  QSD I AG( 1 , I FUSION , d : IM)  * 0.00 

C 

C CLOUD  FLAGS 
C 

I F ( LICLOUD ) I QSD I AG ( 1 , 1 I CLOUD , d ; IM ) a 0 
C 

C SOLAR  RADIATION  AT  GROUND 

° IF (LRADSWG)  QSDIAG( 1 , I RAD5WG, d ; IM)  = 0.00 

C 

C U MOMENTUM  FLUX 


VINITSD  42 
VINITSD  43 
VINITSD  44 
VINITSD  45 
VINITSD  46 
VINITSD  47 
VINITSD  48 
VINITSD  49 
VINITSD  50 
VINITSD  51 
VINITSD  52 
VINITSD  53 
VINITSD  54 
VINITSD  55 
VINITSD  56 
VINITSD  57 
VINITSD  58 
VINITSD  59 
VINITSD  60 
VINITSD  61 
VINITSD  62 
VINITSD  63 
VINITSD  64 
VINITSD  65 
VINITSD  66 
VINITSD  67 
VINITSD  68 
VINITSD  69 
VINITSD  70 
VINITSD  7! 
VINITSD  72 
VINITSD  73 
VINITSD  74 
VINITSD  75 
VINITSD  76 
VINITSD  77 
VINITSD  78 
VINITSD  79 
VINITSD  BO 
VINITSD  81 
VINITSD  82 
VINITSD  83 
VINITSD  84 
VINITSD  85 
VINITSD  86 


o g 

TS  TO 

O 2 
O % 
70  p 

c. 

© 

r*  P* 


INITSD  6 


c ===============  VINITSD  87 

00298  IF1LUFLUX  ) OSD  I AG ( t , IUFLUX  ,d;IM)  = 0.00  VINITSD  88 

C VINITSD  89 

C V MOMENTUM  FLUX  VINITSD  90 

C = = = ==  = = = = = = = = = = VINITSD  9 1 

00296  I F ( LVFLUX  ) QSDIAGt 1 « IVFLUX  rd;IM)  * 0.00  VINITSD  92 

C VINITSD  93 

C UPPER  AIR  QUANTITIES  VINITSD  94 

C =====================================  VINITSD  95 

C VINITSD  96 

C VINITSD  97 

C SOLAR  RADIATION  (ALL  SIGMA  LEVELS)  VINITSD  98 

C ==================================  VINITSD  99 

00297  I F f LRADSW  > QUDI AG ( t , 1 » IRADSW  ,d;IM*NLAY)  = 0.00  VINITSD100 

C VINITSD101 

C DIABATIC  HEATING  (ALL  SIGMA  LEVELS)  VINITSD102 

C ===================================  VINITSD 103 

0029B  IF(LOIABAT)  QUDI AG ( 1,1, ID I ABA Tt  d; IM*NLAV ) = 0.00  VINITSD104 

C VINITSD10S 

C VERTICAL  VELOCITY  (ALL  SIGMA  LEVELS)  VINITSD106 

C = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = V I N I TSD 1 07 

00299  IF  < LOMEGA  ) QUDI AG < 1 . 1 * I OMEGA  * d ; IM*NLA V ) = 0.00  VINITSD108 

C V I N I TSD  1 09 

C VI N I TSD  t t O 

C V 1 Nl TSD 111 

00300  20  CONTINUE  V IN I TSD  112 

C VINITSC113 

00301  RETURN  VINITSD! 14 

00302  END  V I N I TSD 1 15 

STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


10000  284 

20  300  2B5 


VARIABLE  MAP 


NAME 

BLOCK-- 

TYPE 

--CLASS-- 

ADATE 

CCNTRL 

CHARTS 

SIMPLE 

ADLDP 

RDPARM 

REAL 

SIMPLE 

ALBEDO 

QANDQT 

REAL 

ARRAY 

APHEL 

RCNTRL 

REAL 

SIMPLE 

ATIME 

CCNTRL 

CHAR*  0 

SIMPLE 

BETA 

RCNTRL 

REAL 

SIMPLE 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

CC 

CCNTRL 

CHAR*8 

ARRAY 

CCO 

CCNTRL 

char*b 

SIMPLE 

CCNTRL 

REAL 

UNKNOWN 

CCSP06 

CCNTRL 

CHAR  *8 

SIMPLE 

T35P07 

CCNTRL 

CHAR  *B 

SIMPLE 

CCSP08 

CCNTRL 

CHAR  *8 

SIMPLE 

JONl 

RDPARM 

REAL 

SIMPLE 

C0N1DT 

RDPARM 

REAL 

SIMPLE 

CON2 

RDPARM 

REAL 

SIMPLE 

C0N2DT 

RDPARM 

REAL 

SIMPLE 

C0N3 

RDPARM 

REAL 

SIMPLE 

C0N3DT 

RDPARM 

REAL 

SIMPLE 

CON4 

RDPARM 

REAL 

SIMPLE 

CON4DT 

RDPARM 

HEAL 

SIMPLE 

CON5 

RDPARM 

REAL 

SIMPLE 

COSO 

RCNTRL 

REAL 

SIMPLE 

COSL 

RDPARM 

REAL 

ARRAY 

COSLON 

RDPARM 

REAL 

ARRAY 

CP 

RCNTRL 

REAL 

SIMPLE 

CPD2 

RDPARM 

REAL 

SIMPLE 

CQS 

CCNTRL 

CHAR  *8 

ARRAY 

CQU 

CCNTRL 

CHAR*8 

ARRAY 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

DEC 

RCNTRL 

REAL 

SIMPLE 

REFERENCES  A=ARGLIST.  C^CTRL  OF  DO, 


3 

16 

217 

256 

269 

157 

4 

17 

158 

196 

14 

15 

2 

14 

2 

3 

13 

7 

20 

8 

21 

9 

22 

218 

219 

220 
221 
232 

223 

224 

225 

226 

159 

227 

228 

160 
229 

12  25 

13  26 
161 

162 


I=DATA  INIT,  R=READ , S=STORE , W^WRITE 


7 8 9 10  11 


12 


3 

M 

t-3 

CD 

a 


-d 


ORIGINAL  PAGE  m 
OF  POOR  QUALITY 


DECMAX 

RCNTRL 

REAL 

SIMPLE 

1 63 

00 

DIST 

RCNTRL 

REAL 

SIMPLE 

1 64 

DLAT 

RCNTRL 

REAL 

SIMPLE 

1 65 

DLON 

RCNTRL 

REAL 

SIMPLE 

1 66 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

DSIGINV 

R DP ARM 

REAL 

ARRAY 

252 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

o o 
-n  so 

DXP 

RDPARM 

REAL 

ARRAY 

230 

DX  VP 

RDPARM 

REAL 

ARRAY 

231 

DYP 

RDPARM 

REAL 

ARRAY 

232 

g2 

2 £ 
so  r* 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

F IDT 

RDPARM 

REAL 

SIMPLE 

234 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

iO  TS 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

FILTER 

LDP ARM 

logical 

ARRAY 

211 

214 

c £ 

> © 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

r-  fQ 

GNU  2 

RCNTRL 

REAL 

SIMPLE 

170 

GRAV 

RCNTRL 

REAL 

SIMPLE 

171 

dl  ea 

GT 

QANDQT 

REAL 

ARRAY 

257 

270 

GW 

QANDQT 

REAL 

ARRAY 

258 

271 

HtOT 

RDPARM 

REAL 

SIMPLE 

236 

H20T 

RDPARM 

REAL 

SIMPLE 

237 

HEATI 

RCNTRL 

REAL 

SIMPLE 

193 

HE  A TV/ 

RCNTRL 

REAL 

SIMPLE 

192 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

34 

25 

26 

37 

1CNTRL 

INTEGER 

UNKNOWN 

27 

28 

29 

30 

31 

32 

33 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

43 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

68 

I0IA8AT 

ICNTRL 

INTEGER 

SIMPLE 

92 

298 

209 

210 

IDPARM 

INTEGER 

UNKNOWN 

200 

201 

202 

203 

204 

205 

206 

207 

29S 

IDSP02 

I DP  ARM 

INTEGER 

SIMPLE 

201 

IEFLUX 

ICNTRL 

INTEGER 

SIMPLE 

84 

291 

I FUSION 

ICNTRL 

INTEGER 

SIMPLE 

85 

292 

INFLUX 

ICNTRL 

INTEGER 

SIMPLE 

83 

290 

I ICLOUD 

ICNTRL 

INTEGER 

SIMPLE 

SB 

293 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

200 

292 

293 

294 

295 

IM 

ICNTRL 

INTEGER 

SIMPLE 

28 

286 

287 

283 

289 

290 

291 

296 

297 

298 

299 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

29 

1MD2P1 

ICNTRL 

INTEGER 

SIMPLE 

30 

INDEX 

IDPARM 

INTEGER 

ARRAY 

202 

INITSD 

SUBROUTINE 

1 

IOMEGA 

ICNTRL 

INTEGER 

SIMPLE 

91 

299 

IPREACC 

ICNTRL 

INTEGER 

SIMPLE 

81 

288 

I PRECON 

ICNTRL 

INTEGER 

SIMPLE 

82 

289 

83 

84 

85 

86 

87 

88 

IQS 

ICNTRL 

INTEGER 

ARRAY 

77 

79 

80 

81 

82 

89 

90 

IQSDIAG 

QANDQT 

INTEGER 

ARRAY 

28  1 

282 

293/S 

94 

IQU 

ICNTRL 

INTEGER 

ARRAY 

78 

91 

92 

93 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

94 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IRADSW 

ICNTRL 

INTEGER 

SIMPLE 

93 

297 

IRADSWG 

ICNTRL 

INTEGER 

SIMPLE 

86 

294 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

203 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

212 

215 

ITMAX 

ICNTRL 

INTEGER 

SIMPLE 

80 

287 

I TWIN 

ICNTRL 

INTEGER 

SIMPLE 

79 

286 

IUFLUX 

ICNTRL 

INTEGER 

SIMPLE 

89 

295 

IVFLUX 

ICNTRL 

INTEGER 

SIMPLE 

90 

296 

292 

293 

294 

295 

J 

INTEGER 

SIMPLE 

285/C 

286 

287 

288 

289 

290 

291 

296 

297 

29Q 

299 

JC 

IDPARM 

INTEGER 

ARRAY 

204 

JE 

IDPARM 

INTEGER 

ARRAY 

205 

JIC 

CCNTRL 

CHARTS 

SIMPLE 

5 

18 

dM 

ICNTRL 

INTEGER 

SIMPLE 

32 

JM02 

ICNTRL 

INTEGER 

SIMPLE 

33 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

34 

dNP 

ICNTRL 

INTEGER 

SIMPLE 

35 

285 

J04 

ICNTRL 

INTEGER 

SIMPLE 

36 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

37 

JOB 

CCNTRL 

CHAR'S 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

206 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

38 

KL I ALB 

ICNTRL 

INTEGER 

SIMPLE 

39 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

40 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

KS 

ICNTRL 

INTEGER 

SIMPLE 

42 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

207 

KU 

ICNTRL 

INTEGER 

SIMPLE 

43 

LC 

LCNTRL 

LOGICAL 

ARRAY 

154 

155 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

97 

154 

155 

LCNTRL 

INTEGER 

UNKNOWN 

97 

98 

99 

1 00 

101 

102 

1 0B 

109 

LDIABAT 

LCNTRL 

LOGICAL 

SIMPLE 

123 

151 

298 

LDPARM 

INTEGER 

UNKNOWN 

211 

212 

213 

LEFLUX 

LCNTRL 

LOGICAL 

SIMPLE 

1 15 

143 

291 

LFUSIPM 

LCNTRL 

LOGICAL 

SIMPLE 

1 16 

144 

292 

LHFLUX 

LCNTRL 

LOGICAL 

SIMPLE 

114 

142 

290 

LI CLOUD 

LCNTRL 

LOGICAL 

SIMPLE 

1 19 

147 

293 

LOG8R 

ICNTRL 

INTEGER 

SIMPLE 

44 

LOMEGA 

LCNTRL 

LOGICAL 

SIMPLE 

122 

ISO 

299 

LPREACC 

LCNTRL 

LOGICAL 

SIMPLE 

112 

140 

2SS 

LPRECON 

LCNTRL 

LOGICAL 

SIMPLE 

1 13 

141 

289 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

108 

1 10 

1 1 1 

1 12 

1 13 

1 14 

f 

120 

121 

136 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

109 

122 

123 

124 

125 

137 

LRADLW 

LCNTRL 

LOGICAL 

UNKNOWN 

125 

153 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 18 

146 

LRADSW 

LCNTRL 

LOGICAL 

SIMPLE 

124 

152 

297 

LRADSWG 

LCNTRL 

LOGICAL 

SIMPLE 

117 

145 

294 

LTMAX 

LCNTRL 

LOGICAL 

SIMPLE 

1 1 1 

139 

287 

LTMIN 

LCNTRL 

LOGICAL 

SIMPLE 

no 

138 

286 

LUF  LUX 

LCNTRL 

LOGICAL 

SIMPLE 

120 

148 

295 

LVFLUX 

LCNTRL 

LOGICAL 

SIMPLE 

121 

149 

296 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

46 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

47 

Md 

IDPARM 

INTEGER 

ARRAY 

208 

MLF 

ICNTRL 

INTEGER 

ARRAY 

48 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

49 

MS1UI 

ICNTRL 

INTEGER 

SIMPLE 

51 

NB 

ICNTRL 

INTEGER 

SIMPLE 

52 

ND 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDHQG 

ICNTRL 

INTEGER 

SIMPLE 

76 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

57 

NDRSV/ 

ICNTRL 

INTEGER 

SIMPLE 

31 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

58 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

59 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

62 

NHMS1 

IDPARM 

INTEGER 

SIMPLE 

209 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

61 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

50 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

63 

297 

298 

299 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

64 

NLA YP  1 

ICNTRL 

INTEGER 

SIMPLE 

65 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

75 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

66 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

67 

1 05 


1 17 


106  107 


118  119 


W 

53 


ORIGINAL  PA<§g  gg 
OF  POOR  QUALITY 


NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

69 

nymd 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

73 

NYMD1 

IDPARM 

INTEGER 

SIMPLE 

210 

NYMDE 

ICNTRL 

integer 

SIMPLE 

72 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

74 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

172 

P 

QANDQT 

REAL 

ARRAY 

261 

274 

PHI 

QANDQT 

REAL 

ARRAY 

266 

279 

PHIS 

QANDQT 

REAL 

ARRAY 

254 

267 

PI 

RCNTRL 

REAL 

SIMPLE 

173 

PI  180 

RCNTRL 

REAL 

SIMPLE 

174 

PI  2 

RCNTRL 

REAL 

SIMPLE 

175 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

177 

PKSTD 

RDPARM 

REAL 

SIMPLE 

238 

PKTOP 

RDPARM 

REAL 

SIMPLE 

239 

PLSVS 

RCNTRL 

REAL 

ARRAY 

191 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

178 

PSMXN 

RCNTRL 

REAL 

SIMPLE 

179 

PSTO 

RCNTRL 

REAL 

SIMPLE 

176 

PTOP 

RCNTRL 

REAL 

SIMPLE 

180 

P2ERO 

RCNTRL 

REAL 

SIMPLE 

197 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

98 

126 

QANDQT 

REAL 

UNKNOWN 

253 

280 

283 

Q3EG 

LCNTRL 

LOGICAL 

SIMPLE 

99 

1 27 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

100 

128 

286 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

10  1 

129 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

102 

130 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

103 

131 

QPROG 

QANDQT 

REAL 

ARRAY- 

253 

267 

268 

277 

278 

279 

QR5H 

LCNTRL 

LOGICAL 

SIMPLE 

107 

135 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

106 

134 

QSDIAG 

QANDQT 

REAL 

ARRAY 

280 

282 

286/S 

296/S 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

104 

132 

QUO  I AG 

QANDQT 

REAL 

ARRAY 

283 

297/S 

298/S 

RADE 

RCNTRL 

REAL 

SIMPLE 

18  1 

RC 

RCNTRL 

REAL 

ARRAY 

198 

199 

RCO 

RCNTRL 

REAL 

SIMPLE 

156 

198 

199 

RCNTRL 

REAL 

UNKNOWN 

156 

157 

158 

167 

168 

169 

178 

179 

180 

189 

190 

191 

RDPARM 

REAL 

UNKNOWN 

217 

218 

219 

228 

229 

230 

239 

240 

24  1 

250 

251 

252 

RGAS 

RCNTRL 

REAL 

SIMPLE 

182 

RL  AT 

RDPARM 

REAL 

ARRAY 

240 

RLATO 

RDPARM 

REAL 

ARRAY 

24  1 

ROCP 

RCNTRL 

REAL 

SIMPLE 

183 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

242 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

243 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

184 

SOAY 

RCNTRL 

REAL 

SIMPLE 

185 

SEASON 

RCNTRL 

REAL 

SIMPLE 

186 

SGNP 

RDPARM 

REAL 

ARRAY 

244 

SH 

QANDQT 

REAL 

ARRAY 

265 

278 

SHS 

QANDQT 

REAL 

ARRAY 

260 

273 

51G 

RDPARM 

REAL 

ARRAY 

25  1 

SIGE 

RCNTRL 

REAL 

ARRAY 

187 

SIND 

RCNTRL 

REAL 

SIMPLE 

188 

SI  NL 

RDPARM 

REAL 

ARRAY 

245 

5INL0N 

RDPARM 

REAL 

ARRAY 

246 

5MTH 

QANDQT 

REAL 

ARRAY 

255 

268 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

105 

133 

SOLS 

RCNTRL 

REAL 

SIMPLE 

189 

START 

LDPARM 

LOGICAL 

SIMPLE 

213 

216 

T 

QANDQT 

REAL 

ARRAY 

264 

277 

O Q 

•n  73 

2*  S 

O 2 

o :p 

* r 
«o  3 
S5 

1§ 


o 

j-a 

O 


287 


269  270  27 f 272  273  274  275  276 

287/S  238/5  289/S  290/S  291/S  292/S  294/S  295 

299 ' S 


159 

160 

161 

162 

170 

171 

172 

173 

18  1 

182 

183 

184 

192 

193 

194 

195 

220 

221 

222 

223 

231 

232 

233 

234 

242 

243 

244 

245 

163 

164 

165 

166 

174 

175 

176 

177 

185 

186 

187 

188 

196 

197 

224 

225 

226 

227 

235 

236 

237 

238 

246 

247 

248 

249 

THSTD 

THSTD2 

TS 

TSTD 

U 

V 

VER 

WSAVE 

XLA8EL 


RDPARM 

RDPARM 

QANDQT 

RCNTRL 

qandqt 

OANDQT 

CCNTRL 

RDPARM 

CCNTRL 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

CHARTS 

REAL 

CHAR  *8 


SIMPLE 

247 

SIMPLE 

248 

ARRAY 

259 

272 

SIMPLE 

f 90 

ARRAY 

262 

275 

ARRAY 

263 

276 

SIMPLE 

10 

23 

ARRAY 

249 

ARRAY 

1 1 

24 

INITSD  11 


SUBROUTINE  INPUT  <*> 

READ  MODEL  CONTROL  NAMELIST  AND  MODEL  INITIAL  CONDITIONS 


ARGUMENTS 


DESCRIPTION 
I/O  ERROR  RETURN 


00002 

00003 

00004 

00005 

00006 
00007 

ooooa 

00009 

00010 
000  C 1 
00012 

00013 

00014 

00015 

00016 

00017 

00018 
00019 
00020 
00021 
00022 

00023 

00024 

00025 

00026 


00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 
00028 

00039 

00040 
0004  1 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 


I/O  ODNAME  DESCRIPTION 

5 CARD-IMAGE  DATA  INCLUDING  INPUTZ  NAMELIST  (EXXXXNL) 

* REWINDABLE  COPY  OF  CARD-IMAGE  DATA  FROM  UNIT  5 < TEMPNL  > 

12  MODEL  INITIAL  OR  RESTART  CONDITIONS  (EXXXXRS1) 

MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /CCNTRL/  CCO 
COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  JIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  MO) 

COMMON  /CCNTRL/  CQS  (30) 

COMMON  /CCNTRL/  CQU  MO) 


EQUIVALENCE 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 

CHARACTER-8 

CHARACTER'S 

CHARACTER'S 

CHARACTER'S 


1CC0.CC( 1 > ) 

CCO,  CC ( 200  > 

ADATE 

ATIME 

JIC 

JOB 

CCSP06 

CCSP07 

CCSPOS 

VER 

XLABEL 

CQS 

CQU 


INTEGER^ODEL^PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ICNTRL/ 
/ I CNTRL / 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 


ICO 

IM 

IMD2 
IMD2P 1 
NDRSW 
JM 

JMD2 

JMT2 

JNP 

J04 

JOS 

JSP 

KLI ALB 

KLIGW 

KLISST 

KS 

KU 

LOGSR 

MATIN 

MATSNX 

MATSUN 

MLF 

MROD 

NKRSH 

MSM 

NB 

ND 


VINPUT 

2 

VINPUT 

3 

VINPUT 

4 

VINPUT 

5 

VINPUT 

6 

VINPUT 

7 

VINPUT 

8 

VINPUT 

9 

VINPUT 

10 

VINPUT 

1 1 

VINPUT 

12 

VINPUT 

13 

VCNTRL 

2 

VCNTRL 

3 

VCNTRL 

4 

VCNTRL 

5 

VCNTRL 

6 

VCNTRL 

7 

VCNTRL 

a 

VCNTRL 

9 

VCNTRL 

to 

VCNTRL 

1 1 

VCNTRL 

12 

VCNTRL 

13 

VCNTRL 

14 

VCNTRL 

15 

VCNTRL 

15 

VCNTRL 

17 

VCNTRL 

ts 

VCNTRL 

19 

VCNTRL 

20 

VCNTRL 

21 

VCNTRL 

22 

VCNTRL 

23 

VCNTRL 

24 

VCNTRL 

25 

VCNTRL 

26 

VCNTRL 

27 

VCNTRL 

28 

VCNTRL 

29 

VCNTRL 

30 

VCNTRL 

31 

VCNTRL 

32 

VCNTRL 

33 

VCNTRL 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

38 

VCNTRL 

39 

VCNTRL 

40 

VCNTRL 

41 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

46 

VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

51 

VCNTRL 

52 

VCNTRL 

53 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

VCNTRL 

58 

VCNTRL 

59 

VCNTRL 

60 

ORIGINAL  PAGE  13 
OF  POOR  QUALITY 


00054 

COMMON 

/ICNTRL / 

NDALT 

00055 

COMMON 

/ ICNTRL/ 

NDAY 

00056 

COMMON 

/ICNTRL/ 

NDOUT 

00057 

COMMON 

/ICNTRL/ 

NDPHY 

00058 

COMMON 

/ICNTRL/ 

NDSHF 

00059 

COMMON 

/ICNTRL/ 

NDT 

00060 

COMMON 

/ICNTRL/ 

NHMS 

00061 

COMMON 

/ICNTRL/ 

NHMSE 

00062 

COMMON 

/ICNTRL/ 

NHMSO 

00063 

COMMON 

/ICNTRL/ 

NLA  Y 

00064 

COMMON 

/ICNTRL/ 

NLAVM1 

00065 

COMMON 

/ICNTRL/ 

NLAYP1 

00066 

COMMON 

/ICNTRL/ 

NSDAY 

00067 

COMMON 

/ICNTRL/ 

NSEQ 

00068 

COMMON 

/ICNTRL/ 

ICSP53 

00069 

COMMON 

/ICNTRL/ 

NSTEP 

00070 

COMMON 

/ICNTRL/ 

IBLKSIH 

0007  1 

COMMON 

/ ICNTRL/ 

NYMD 

00072 

COMMON 

/ICNTRL/ 

tfVMDE 

00073 

COMMON 

/ICNTRL/ 

NYMDO 

00074 

COMMON 

/ICNTRL/ 

NZtNIT 

00075 

COMMON 

/ICNTRL/ 

NMLEV 

00076 

COMMON 

/ICNTRL/ 

NDMOG 

00077 

COMMON 

/ICNTRL/ 

IQS  < 30 ) 

00078 

COMMON 

/ICNTRL/ 

IQU  WO) 

00079 

i# 

EQUIVALENCE 

(I  TWIN 

. I QS  < 

1 ) > 

00080 

EQUIVALENCE 

( I TMA  X 

. IOS< 

2)  ) 

00081 

EQUIVALENCE 

(IPREACC 

, IQS( 

3)  ) 

00082 

EQUIVALENCE 

( IPRECON 

,IOSt 

4>  ) 

00083 

EQUIVALENCE 

< I HF  LUX 

,IOS< 

5)  ) 

00084 

EQUIVALENCE 

(IEFLUX 

WQS( 

6 ) > 

00085 

EQUIVALENCE 

( I FUSION 

, I QS  ( 

7 > ) 

00086 

EQUIVALENCE 

< IRADSWG 

♦ IQS( 

8 > ) 

00087 

EQUIVALENCE 

(IRADLWG 

. IQS( 

9)  > 

00088 

EQUIVALENCE 

< IICLOUD 

, I QS ( 10) ) 

00089 

EQUIVALENCE 

(IUFLUX 

. ros< i 

1 ) ) 

00090 

EQUIVALENCE 

(IVFLUX 

. IOS( 12) ) 

00031 

c 

EQUIVALENCE 

(IOMEGA 

. IOU< 

1 ) ) 

00092 

EQUIVALENCE 

< IDIABAT 

, IQU( 

2)  ) 

00093 

EQUIVALENCE 

(IRADSW 

, IQU( 

3)  ) 

00094 

EQUIVALENCE 

t I RADLW 

. IQU< 

4 > } 

00095 

C 

EQUIVALENCE 

(ICO.ICI 1 ) ) 

00096 

INTEGER 

ICO,  IC ( 200  > 

c 

C LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00097 

C 

COMMON 

/LCNTRL/ 

LCO 

" = = 

00098 

COMMON 

/ LCNTRL/ 

QALT 

00099 

COMMON 

/LCNTRL/ 

QBEG 

00  100 

COMMON 

/LCNTRL/ 

QDAY 

00101 

COMMON 

/LCNTRL/ 

QEND 

00102 

COMMON 

/LCNTRL/ 

QOUT 

00  103 

COMMON 

/LCNTRL/ 

QPHY 

00104 

COMMON 

/LCNTRL/ 

QSHF 

00105 

COMMON 

/LCNTRL/ 

SN2FLG 

00106 

COMMON 

/LCNTRL/ 

QRSW 

001Q7 

COMMON 

/LCNTRL/ 

QRSH 

00108 

COMMON 

/LCNTRL/ 

LQS ( 30 ) 

GO  1 09 

COMMON 

/LCNTRL/ 

LOU ( 10) 

00  i 10 

c 

EQUIVALENCE 

(LTMIN 

, LOS ( 

1>) 

00111 

EQUIVALENCE 

( LTMA  X 

, LQS  ( 

2 ) ) 

00112 

EQUIVALENCE 

(LPREACC 

, LQS  ( 

3)  ) 

001  13 

EQUIVALENCE 

( LPRECON 

, LOS  ( 

4)  ) 

00114 

EQUIVALENCE 

(LHFLUX 

, LQS  ( 

5)  ) 

001  15 

EQUIVALENCE 

(LEFLUX 

, LQS  ( 

6)  ) 

001  16 

EQUIVALENCE 

(LFUSION 

, LQS  ( 

7)) 

00  1 17 

EQUIVALENCE 

(LRADSV/G 

, LQS  ( 

8 > > 



_ . 

. ~ * ..  

— 

VCNTRL 

61 

VCNTRL 

62 

VCNTRL 

63 

VCNTRL 

64 

VCNTRL 

65 

VCNTRL 

66 

VCNTRL 

67 

VCNTRL 

68 

VCNTRL 

69 

VCNTRL 

70 

VCNTRL 

71 

VCNTRL 

72 

VCNTRL 

73 

VCNTRL 

74 

VCNTRL 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRt 

79 

VCNTRL 

80 

VCNTRL 

81 

VCNTRL 

82 

VCNTRL 

83 

VCNTRL 

84 

VCNTRL 

85 

VCNIHL 

86 

VCNTRL 

87 

VCNTRL 

88 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

91 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

98 

VCNTRL 

99 

VCNTRL 

too 

VCNTRL 

101 

VCNTRL 

102 

VCNTRL 

103 

VCNTRL 

104 

VCNTRL 

105 

VCNTRL 

106 

VCNTRL 

107 

VCNTRL 

108 

VCNTRL 

109 

VCNTRL 

1 10 

VCNTRL 

1 1 1 

VCNTRL 

112 

VCNTRL 

113 

VCNTRL 

1 14 

VCNTRL 

1 15 

VCNTRL 

1 16 

VCNTRL 

1 17 

VCNTRL 

1 18 

VCNTRL 

1 19 

VCNTRL 

120 

VCNTRL 

121 

VCNTRL 

122 

VCNTRL 

123 

VCNTRL. 

124 

VCNTRL 

125 

VCNTRL 

126 

VCNTRL 

127 

VCNTRL 

128 

VCNTRL 

129 

VCNTRL 

130 

VCNTRL 

131 

3 a 

C 2; 

Sf 

fl 
£ © 
C fig 


INPUT  2 


00  113 

00119 

00120 
00121 

C 

00  122 

00123 

00124 

00 1 25 

C 

00126 
00127 
001  28 
00129 

00130 

00131 

00132 

00133 

00134 
00  135 

C 

00136 

00137 
00  138 
00139 
CO  140 
0014  1 
00  142 
00  143 
00  144 

00145 

00146 
00  147 

00148 

00149 

C 

00150 

00151 
00  152 

00153 

C 

00154 

00155 

C 

C REAL  MOOEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00156 

COMMON 

/RCNTRL/ 

RCO 

00157 

COMMON 

/RCNTRL/ 

APHEL 

00  158 

COMMON 

/RCNTRL/ 

BETA 

00159 

COMMON 

/RCNTRL/ 

COSD 

00160 

COMMON 

/RCNTRL/ 

CP 

00161 

COMMON 

/RCNTRL/ 

DAYSPY 

00162 

COMMON 

/RCNTRL/ 

DEC 

00163 

COMMON 

/RCNTRL/ 

OECMAX 

00  1 64 

COMMON 

/RCNTRL/ 

DIST 

00165 

COMMON 

/RCNTRL/ 

OLAT 

00165 

COMMON 

/RCNTRL/ 

OLON 

00167 

COMMON 

/RCNTRL/ 

DT 

00168 

COMMON 

/RCNTRL/ 

ECCN 

00169 

COMMON 

/RCNTRL/ 

GNU  1 

00170 

COMMON 

/RCNTRL/ 

GNU2 

00  171 

COMMON 

/RCNTRL/ 

GRAV 

00172 

COMMON 

/RCNTRL/ 

OMEGA2 

00  173 

COMMON 

/RCNTRL/ 

PI 

00174 

COMMON 

/RCNTRL/ 

PI  180 

00  175 

COMMON 

/RCNTRL/ 

P 1 2 

00  176 

COMMON 

/RCNTRL/ 

P5TD 

00  177 

COMMON 

/RCNTRL/ 

PIMEAN 

00178 

COMMON 

/RCNTRL/ 

PSMAX 

00179 

COMMON 

/RCNTRL/ 

PSMIN 

00180 

COMMON 

/RCNTRL/ 

PTOP 

VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
VCNTRL  135 
VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  14! 

VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  150 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  *59 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  180 
VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  109 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCNTRL  199 
VCNTRL  200 
VCNTRL  201 

VCNTRL  202  W 


EQUIVALENCE 

( LRADLWG 

, LQS ( 9)> 

equivalence 

(LICLOUD 

, LQS ( 1 O } ) 

EQUIVALENCE 

1LUFLUX 

, LOS  < ID) 

EQUIVALENCE 

< LVFLUX 

, LOS 1 12) 1 

EQUIVALENCE 

(L OMEGA 

* LQU ( 1H 

EQUIVALENCE 

UDIABAT 

♦ L QU { 2)1 

EQUIVALENCE 

t LRADSV; 

, L QU  ( 3)) 

EQUIVALENCE 

(LRADLW 

• LOU  < 4)) 

LOGICAL 

QALT 

LOGICAL 

QBEG 

LOGICAL 

QDAY 

LOGICAL 

QEND 

LOGICAL 

QOUT 

LOGICAL 

QPHY 

LOGICAL 

QSHF 

LOGICAL 

SN2FLG 

LOGICAL 

QRSW 

LOGICAL 

QRSH 

LOGICAL 

LQS 

LOGICAL 

LQU 

LOGICAL 

LTMIN 

LOGICAL 

LTMAX 

LOGICAL 

LPREACC 

LOGICAL 

LPRECON 

LOGICAL 

LHFLUX 

LOGICAL 

LEFLUX 

LOGICAL 

LFUSION 

LOGICAL 

LRADSWG 

LOGICAL 

LRADLWG 

LOGICAL 

LICLOUD 

LOGICAL 

LUFLUX 

LOGICAL 

LVFLUX 

LOGICAL 

LOMEGA 

LOGICAL 

LDIABAT 

LOGICAL 

LRADSW 

LOGICAL 

LRADLW 

EQUIVALENCE 

( LCO , LC ( 1 > ) 

LOGICAL 

LCO  t LC ( 200  > 

LO 


ORIGINAL  PASS  B 
OF  POOR  QUALITY 


00181 

COMMON 

/RCNTRL / 

RADE 

00182 

COMMON 

/RCNTRL/ 

RGAS 

00183 

COMMON 

/RCNTRL/ 

ROCP 

00184 

COMMON 

/RCNTRL/ 

RSDIST 

00185 

COMMON 

/RCNTRL/ 

sda  y 

00  1 86 

COMMON 

/RCNTRL/ 

SEASON 

00187 

COMMON 

/RCNTRL/ 

SIGE 

(25) 

001B8 

COMMON 

/RCNTRL/ 

SIND 

00189 

COMMON 

/RCNTRL/ 

SOLS 

00190 

COMMON 

/RCNTRL/ 

TSTD 

00191 

COMMON 

/RCNTRL/ 

PLEVS 

(25  ) 

00192 

COMMON 

/RCNTRL/ 

HE  A TV/ 

00193 

COMMON 

/RCNTRL/ 

HEATI 

00194 

COMMON 

/RCNTRL/ 

EPS 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

00  196 

COMMON 

/RCNTRL/ 

CALTOJ 

00197 

Q 

COMMON 

/RCNTRL/ 

PZERO 

00198 

EQUIVALENCE 

< RCOtRC(  1 ) ) 

00  1 99 

Q 

REAL 

RCO , RC ( 20Q  > 

C 

Q 

INTEGER  MODEL  CONSTANTS 

00200 

COMMON 

/ IDPARM/ 

I JUMP 

1 46) 

00201 

COMMON 

/ I DP ARM/ 

ID5P02 

00202 

COMMON 

/IDPARM/ 

INDEX 

< 72) 

00203 

COMMON 

/IDPARM/ 

IROD 

00204 

COMMON 

/IDPARM/ 

JC 

(46) 

00205 

COMMON 

/IDPARM/ 

JE 

( 2> 

00206 

COMMON 

/IDPARM/ 

JP 

(2,2) 

00207 

COMMON 

/IDPARM/ 

KSTEP 

00208 

COMMON 

/IDPARM/ 

MJ 

(46) 

00209 

COMMON 

/IDPARM/ 

NHM51 

00210 

Q 

COMMON 

/IDPARM/ 

NYMD1 

c 

LOGICAL  MODEL  CONSTANTS 

c 

— " = = = = = — — s — — 

0021  1 

COMMON 

/LDPARM/ 

FILTER 

f 46  1 

002  12 

COMMON 

/LDPARM/ 

I TAPE 

00213 

c 

COMMON 

/LDPARM/ 

START 

002  1 4 

V 

LOGICAL 

FILTER 

00215 

LOGICAL 

ITAPE 

00216 

LOGICAL 

START 

V 

c 

REAL  MODEL  CONSTANTS 

C 

: - 

00217 

COMMON 

/RDPARM/ 

ADLDP 

00218 

COMMON 

/RDPARM/ 

CONI 

00213 

COMMON 

/RDPARM/ 

CON  IDT 

00220 

COMMON 

/RDPARM/ 

C0N2 

00221 

COMMON 

/RDPARM/ 

C0N2D i 

00222 

COMMON 

/RDPARM/ 

C0N3 

00223 

COMMON 

/RDPARM/ 

CON3DT 

00224 

COMMON 

/RDPARM/ 

C0N4 

00225 

COMMON 

/RDPARM/ 

CON4DT 

00226 

COMMON 

/RDPARM/ 

C0N5 

00227 

COMMON 

/RDPARM/ 

COSL 

f 46  ) 

00228 

COMMON 

/RDPARM/ 

COSLON 

(72  ) 

00229 

COMMON 

/RDPARM/ 

CPD2 

00230 

COMMON 

/RDPARM/ 

DXP 

(46  > 

00231 

COMMON 

/RDPARM/ 

DXYP 

(46  ) 

00232 

COMMON 

/RDPARM/ 

DYP 

(46) 

00233 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

00234 

COMMON 

/RDPARM/ 

F1DT 

00235 

COMMON 

/RDPARM/ 

F2DT 

00236 

COMMON 

/RDPARM/ 

H1DT 

00237 

COMMON 

/RDPARM/ 

H2DT 

00238 

COMMON 

/RDPARM/ 

PKSTD 

00239 

COMMON 

/RDPARM/ 

PKTOP 

00240 

COMMON 

/RDPARM/ 

RLAT 

( 46) 

VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 
VCNTRL  207 
VCNTRL  20B 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 


o o 

o ^ 
o § 


§ s 

iz  Hi 


INPUT  4 


00241 

00242 

00243 

00244 

00245 

00246 

00247 

00248 

00249 

00250 
0025  1 
00252 


00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 

00262 

00263 

00264 

00265 

00266 

00267 

00268 

00269 

00270 
0027  1 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 


00280 
0028  1 
00282 

00283 


00284 

00285 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 


RLATD  (46) 
ROCPDT 
ROCPP 1 
SGNP  < 2 ) 
SINL  (46) 
SINLON  (72) 
THSTD 
THSTD2 

WSAVE  (159) 
D5IG  (9) 
SIG  (9) 
DSIGINV  (9) 


COMDECK  VQANDQT  RESOLUTION  VALUES 


IM  =72 

NLA Y =9 

JM  *-1  =46 

NLA V * 1 1 =99 

IM*NLA V* 1 1 -71 28 

JM/2-1  =23 


GLOBAL  MODEL  PROGNOSTIC  FIELDS  (NEEDED  IN  COMPO ) 


COMMON 


/ QANDQT/  QPROG(72,9, tl .46) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PHIS  (7128,1) 

SMTH  (7128,23) 

ALBEDO  (7128.11 

GT  (7128.1) 

GW  (7128.1) 

TS  (7128.1) 

SHS  (7128.1) 

P (72.99,1) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


U 

V 

T 


(72.9, 1 1 

(72.9.11, 

(72.9.11, 


1 ) 
1 ) 
1 > 


SH  (72.9. 

11.1) 

PHI  (72,9, 

11,1) 

( QPROG ( 1 . 

1 . 1 

. 1)  . PHIS 

1 . 

1 ) ) 

( QPROG ( 1 . 

2.  1 

. 1 ) .SMTH 

1 . 

1 ) ) 

(QPROGi 1 . 

3.  1 

. 1 ) .ALBEDO 

1 , 

1 ) ) 

{ QPROG  < 1 . 

4 , 1 

, 1 ) .GT 

1 . 

1 ) ) 

(QPROG  < 1 , 

5 . 1 

, 1 ) , GW 

1 . 

1 ) ) 

( QPROG ( 1 . 

6, 1 

, 1 ) ,TS 

1 , 

1 ) > 

< QPROG ( 1 . 

7 , 1 

. 1) . SHS  1 

1 , 

1 ) ) 

( QPROG ( 1 . 

8 , 1 

, 1 > ,P  ( 

1 , 

1*1) 

(QPROGI 1 . 

1,  2 

. n .u  (i.i 

, 1 ) ) 

(QPROGI 1 . 

1 , 4 

* 1 ) ,V  (1,1 

, 1 ) ) 

(QPROGI 1 , 

1 . 6 

, 1 ) . T (1,1 

, 1 ) ) 

(QPROG ( 1 . 

1 . 8 

. 1 ) , SH  (1.1 

.in 

(QPROGI 1 , 

1.10 

. 1 ) .PHI (1,1 

. i > > 

SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COMPO) 


COMMON 

DIMENSION 

EQUIVALENCE 


/QANDQT/  Q5D1 AG( 72  ,15,46) 

I OSDI AG( 72  .15.46) 

(QSDIAG. IQSDIAG) 


COMMON 


/QANDQT/  QUO I AG (72,9,  5.46) 


ONE-DIMENSIONAL  WORK  AREAS 

COMMON  CARD (10).  DATA (144) 

CHARACTER'S  CARD 


CATA ( 144 ) 


VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VQANDQT  2 
VQANDQT  3 
VQANDQT  4 
VQANDQT  5 
VQANDQT  6 
VQANDQT  7 
VQANDQT  8 
VOANDQT  9 
VOANDQT  10 
VOANDQT  11 
VQANDQT  12 
VQANDQT  13 
VQANDQT  Id 
VOANDQT  15 
VOANDQT  16 
VOANDQT  17 
VQANDQT  18 
VQANDQT  19 
VQANDQT  20 
VQANDQT  21 
VQANDQT  22 
VQANDQT  23 
VQANDQT  24 
VQANDQT  25 
VQANDQT  26 
VQANDQT  27 
VQANDQT  28 
VOANDQT  29 
VOANDQT  30 
VQANDQT  31 
VQANDQT  32 
VOANDQT  33 
VOANDQT  34 
VQANDOT  35 
VQANDQT  36 
VOANDQT  37 
VQANDQT  38 
VOANDQT  39 
VQANDQT  40 
VOANDQT  4-1 
VQANDQT  42 
VQANDQT  43 
VQANDQT  44 
VOANDQT  45 
VQANDOT  46 
VQANDQT  47 
VQANDQT  48 
VOANDQT  49 
VQANDQT  50 
VQANDQT  51 
VQANDOT  52 
VQANDQT  53 
VOANDQT  54 
VQANDQT  55 
V WORK  ID  2 
VWORK1D  3 
V WORK  ID  4 
VWORK1D  5 


o o 
•n  g 

*a  Q 

o| 

O 

50  p 

<0  "3 

C g 

r~ 


INPUT  5 


00286 

00287 


00288 

00289 


00290 


00291 


C 

C 

C 

C 


C 

c 

c 


c 

c 

c 

0 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


M0DEL  restart  record  quantities 

rufSAnruz>,o  /CORDER7'x6RDS<24>rx6wOUC  15)  *S=Si!rsst 
CHA  RACTER  *8  XORDS  , XORDU 

F MODEL  HISTORY  RECORD  QUANTITIES 

‘!"'!7‘“‘”“s  = ::ssa8S5S!!S5Ssssss 


COMMON 
CHARACTER'S 


/CORDER/  XSA 
XSA 


123). XUA 
, XUA 


1 10) 


ARRAY  TO  READ  IN  DAMPING  COEFS 
COMMON  SMTHNL ( 288 . 9 I ) 


^nputmodel  PARAMETER  NAMELIST 


SEE  MODEL  TECHNICAL  DOCUMENTATION  FOR  EXTENSIVE  DETAILS 


NAMELIST 

C 

I 

I 

I 

I 

I 

L 

R 

R 


/INPUT2/  NYMDI.  NHMSI. 

JOB.  XLABEL. 

NYMDE , 

NHMSE 

NDOUT.  NDRSW, 

NKRSH, 

MROD  . 

NDALT,  NDPHY, 
J04,  JOG , 

NDSHF , 

KLIALB,  KL1GW, 

KLISS7 

MATIN,  MLF . NOT,  NSEQ 
SN2FLG, 

• 

PIMEAN,  PSMAX, 

PSMIN. 

PSTO 

SIGE,  GNU2 , SMTHNL 

T5TD , 


VAR  LOC 


DEFAULT  DESCRIPTION 


NYMDI  / I DPARM/ 
NHMSI  /I DPARM/ 
NYMDE  / ICNTRL/ 
NHMSE  /ICNTRL/ 
JOB  /CCNTRL/ 
XLABEL  /CCNTRL/ 
NDOUT  /ICNTRL/ 
NDRSV/  /ICNTRL/ 
NKRSH  /ICNTRL/ 


000000 

000000 

000000 

000000 

10*  ' 
030000 
060000 
-1 


MROD  /ICNTRL/ 
NDALT  /ICNTRL/ 
NDPHY  /ICNTRL/ 
NDSHF  /ICNTRL/ 


25 

000000 

003000 

023000 


J04  /ICNTRL/ 
JOB  /ICNTRL/ 
KLIALB  /ICNTRL/ 
KLIGW  /ICNTRL/ 
KLISST  /ICNTRL/ 
MATIN  /ICNTRL/ 
MFL  /ICNTRL/ 
NDT  /ICNTRL/ 
NSEQ  /ICNTRL/ 
NS2FLG  /LCNTRL/ 
PIMEAN  /RCNTRL/ 
PSMAX  /RCNTRL/ 
PSMIN  /RCNTRL/ 
PSTO  /RCNTRL/ 
TSTD  /RCNTRL/ 
SIGE  /RCNTRL/ 
GNU2  /RCNTRL/ 


0 

0 

1 

1 

1 

1 

1,11*0 
34200/ IM 
1 
F 

FROM  IC 
1200  . 

300. 

1000. 

280. 

UNI  FORM 
0. 


YYMMDD  AT  START-  OF  EXPERIMENT 
H HAIMS S AT  START  OF  EXPERIMENT 
YYMMDD  AT  END  OF  EXPERIMENT 
HHMMSS  AT  END  OF  EXPERIMENT 
!LC!^.RACTER  EXPERIMENT  identifier 
80  character  experiment  description 

HHMMSS  WRITE  INCREMENT  TO  HISTORY 
WRITE  INCREMENT  TO  RESTART 
KEY  FOR  WRITE  OF  RESTART  TO  HISTORY 

n’  £25  AND  END  0F  EXPERIMENT 

0 FOR  NEVER 

N FOR  EVERY  N ' TH  DAY 
MAXIMUM  ALLOWABLE  WRITES  TO  UNIT  08 
HHMMSS  INCREMENT  FOR  ANALYSIS 
HHMMSS  INCREMENT  FOR  PHYSICS 
HHMMSS  INCREMENT  FOR  SHAPIRO  FILTER 

F0R  4'TH  0R°ER  SHAPIRO 
F0R  S'TH  ORDER  SHAPIRO 

ALBEDO  FLAG 

GROUND  WETNESS  FLAG 

SEA  SURFACE  TEMPERATURE  FLAG 

?A2~jUNO  STEPS  BEFORE  REGULAR  CYCLE 

REGULAR  CYCLE  DESCRIPTION 

TIMESTEP  IN  SECONDS 

LENGTH  OF  REGULAR  CYCLE 

PBL  SIGMA  PROFILE  FLAG 

GLOBAL  MEAN  PRESSURE 

MAXIMUM  ALLOWABLE  SURFACE  PRESSURE 

MINIMUM  ALLAWABLE  SURFACE  PRESSURE 

rfpfScKSI  F0R  NORMALIZATIor\ 

REFERENCE  TEMP  FOR  NORMALIZATION 
SIGMA  VALUES  AT  EDGES  OF  LAYERS 
CONSTANT  FOR  USE  IN  TIME  AVERAGE 


VWORK  ID 

6 

VCORDER 

2 

VCORDER 

3 

VCORDER 

4 

VCORDER 

5 

VCORDER 

6 

VCORDER 

7 

VCORDER 

8 

VCORDER 

9 

VCORDER 

10 

VCORDER 

1 1 

VCORDER 

12 

VINPUT 

IS 

VINPUT 

19 

VINPUT 

20 

VINPUT 

21 

VINPUT 

22 

VINPUTZ 

2 

VINPUTZ 

3 

VINPUTZ 

4 

VINPUTZ 

5 

VINPUTZ 

6 

VINPUTZ 

7 

VINPUTZ 

8 

VINPUTZ 

9 

VINPUTZ 

10 

VINPUTZ 

! 1 

VINPUTZ 

12 

VINPUTZ 

13 

VINPUTZ 

14 

VINPUTZ 

15 

VINPUTZ 

16 

VINPUTZ 

17 

VINPUTZ 

18 

VINPUTZ 

19 

VINPUTZ 

20 

VINPUTZ 

2 1 

VINPUTZ 

22 

VINPUTZ 

23 

VINPUTZ 

24 

VINPUTZ 

25 

VINPUTZ 

26 

VINPUTZ  27 
VINPUTZ  2B 
VINPUTZ  29 
VINPUTZ  30 
VINPUTZ  31 
VINPUTZ  32 
VINPUTZ  33 
VINPUTZ  34 
VINPUTZ  35 
VINPUTZ  36 
VINPUTZ  37 
VINPUTZ  38 
VINPUTZ  39 
VINPUTZ  40 
VINPUTZ  41 
VINPUTZ  42 
VINPUTZ  43 
VINPUTZ  44 
VINPUTZ  45 
VINPUTZ  46 
VINPUTZ  47 
VINPUTZ  48 
VINPUTZ  49 
VINPUTZ  50 
VINPUTZ  51 
VINPUTZ  52 
VINPUTZ  S3 
VINPUTZ  54 
VINPUTZ  55 


oo 

*n  aj 

3 5 

o =3 

sf 


O 

£ 

£ fi> 

£1  na 


INPUT  6 


T < •. 


SMTHNL  // 


SEE  DEFALT  DAMPING  FACTORS  FOR  GRAVITY  WAVES 

READ  INTO  TEMPORARY  ARRAY  AND  MOVED 
TO  ARRAY  SMTH  IN  COMMON  / Q A N D Q T { 


00292 

00293 

00294 

00295 


00297 

00298 

00299 

00300 
0030  1 

00302 

00303 

00304 

00305 

00306 

00307 

00308 


00309 

00310 
0031  1 


00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320 

00321 

00322 


00323 

00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 


LOGICAL  SKIP  VINPUT 

CHARACTERS  MACHI D , VERSAVE  VINPUT 

DATA  MACHID  /8HCDC  / VINPUT 

DATA  VERSAVE  /8HV00.001  / VINPUT 

£ VINPUT 

C DEBUG  VQEGDEB 

10000  CONTINUE  VBEGDEB 

C CYBER  VECTOR  VERSION  00.001  INPUT  IOO  VBEGDEB 

C CYBER  VECTOR  VERSION  00  VBEGDEB 

CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSVBEGDEB 


VINPUTZ  56 
VINPUTZ  57 
VINPUTZ  58 
VINPUTZ  59 
VINPUT  24 
VINPUT  25 
VINPUT  26 
VINPUT  27 
VINPUT  28 
VINPUT  29 
VBEGDEB  2 
VBEGDEB  3 
VBEGDEB  4 
VBEGDEB  5 


READ  AND  COPY  INPUT2  NAMELIST 
WRITE  4 3 f 6000 ) VERSAVE 
10  CONTINUE 

READ  <5,6010, END= 15 ) CARD 
WRITE  (11,6010)  CARD 
WRITE  (3,6015)  CARD 
GO  TO  10 
15  CONTINUE 

NYM01  = 0 
NHMS1  = 0 
REWIND  11 

READ  < 1 1 , INPUTZ , END=20 > 

20  CONTINUE 

INITIAL  START  OR  RESTART  FROM  L0G12 
REQUIRED  PARAMETERS  ON  INPUT  ARE 

ir/l,  JM,  NLAY , KS,  KU,  NB , ND,  JOB,  NYMD , NHMS , LOGBR 
LU  =12 
I ROD  = 0 
WRITE  (3,6020) 

* + » 

READ  INITIAL  CONDITIONS  FOR  THIS  FORECAST  SEGMENT 
SEARCH  FOR  SPECIFIC  TIME  OR  TYPE  OF  RECORD 
40  CONTINUE 

CALL  IOQ  (LU, 1,0, *810,8820) 

I ROD  = I ROD  * 1 
IOFLAG  = 1 

IFfLOGBR  . NE . 0)  IOFLAG  = 0 
IF4LOGBR  . EQ . 6)  IOFLAG  = 1 
READ  IN  DATA  BY  LATITUDE  BAND 
JMP 1 = JM  + 1 

DO  45  d=1 , JMP 1 

CALL  IOQ  (LU, IOFLAG. d , &8 1 0 , 6820) 

45  CONTINUE 

IF  ( IOFLAG . EQ . 0 ) GO  TO  40 

» » * 

START  RECORD  FOUND 

DEFAULT  PARAMETERS  IF  INITIAL  START 
READ  IN  MODEL  PARAMETER  NAMELIST 
CALCULATE  DEPENDENT  VARIABLES 

IFf  (NYMD. Ep.NYMDU  .AND,  (NHMS. EO.NHMSM)  CALL  DEFALT 

JESMTH  = JM  / 2 * 1 

DO  46  J = 1 , JESMTH 

SMTHNL (1 ,d; IMD2)  = SMTH 4 1 , J ; I MD2 ) 

46  CONTINUE 
REWIND  11 

READ  (11 .INPUTZ) 

DO  47  J = 1 , JESMTH 

SMTH4 1 , J; IMD2)  = SMTHNL 4 1 , J ; I MD2 ) 

47  CONTINUE 

VER  = VERSAVE 

WRITE  (3,6040)  NYMD.  NHMS,  LOGBR, 

S JOB,  IM,  JM.  NLAY,  KS , KU 

CCO  = MACHID 
CALL  OEPEND 
CALL  POL I NP  4NB, 1 ) 


VINPUT  31 
VINPUT  32 
VINPUT  33 
VINPUT  34 
VINPUT  35 
VINPUT  36 
VINPUT  37 
VINPUT  38 
VINPUT  39 
VINPUT  40 
VINPUT  41 
VINPUT  42 
VINPUT  43 
VINPUT  44 
VINPUT  45 
VINPUT  46 
VINPUT  47 
VINPUT  48 
VINPUT  49 
VINPUT  50 
VINPUT  51 
VINPUT  52 
VINPUT  53 
VINPUT  54 
VINPUT  55 
VINPUT  56 
VINPUT  57 
VINPUT  58 
VINPUT  59 
VINPUT  60 
VINPUT  61 
VINPUT  62 
VINPUT  63 
VINPUT  64 
VINPUT  65 
VINPUT  66 
VINPUT  67 
VINPUT  68 
VINPUT  69 
VINPUT  70 
VINPUT  71 
VINPUT  72 
VINPUT  73 
VINPUT  74 
VINPUT  75 
VINPUT  76 
VINPUT  77 
VINPUT  78 
VINPUT  79 
VINPUT  BO 
VINPUT  81 
VINPUT  82 
VINPUT  83 
VINPUT  84 
VINPUT  85 
VINPUT  86 


ORIGINAL  IS 
OF  POOR  QUALITY 


0 03  38 

00339 

00340 

00341 

00342 

00343 

00344 

00345 

00346 


00347 

00348 

00349 


00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 


00358 

00359 

00360 

00361 

00362 


50 

60 


CALL  POL I NP  ( ND , 1 ) 

CALL  POL 1 NP  (NB.2) 

CALL  POL I NP  (ND*2) 

WRITE  (6,6045)  (1,  I=1,IMD2) 

DO  50  d=2,JM 
IF  (FILTER(J) ) WRITE 
CONTINUE 


(6,6050)  d.  RLATD(d).  I5MTHU.J).  I=1,IMD2 


END-OF-FILE 

810 

W RITE  (3, 


CONTINUE 

RETURN 

ENCOUNTERED  READING 
CONTINUE 
6810)  LU 
RETURN  1 


ERROR  ENCOUNTERED  READING 
820  CONTINUE 

V/RITE  (3,6820)  LU 
RETURN  1 


6000  FORMAT 

a 

6010  FORMAT 
6015  FORMAT 
6020  FORMAT 
6040  FORMAT 

a 

& 

6045  FORMAT 
FORMAT 
FORMAT 
FORMAT 
END 


6050 

6810 

6820 


GODDARD  MODELING  AND  SIMULATION  FACILITY' 

' FOURTH-ORDER  GENERAL  CIRCULATION  MODEL  VERSION 
< 1 0A8 ) 

( 16X , 10AS ) 

( 'O INITIAL  OR  RESTART  CONDITIONS  FROM  DISK') 

< RESTART  RECORD  READ  FROM  DISK  ' 4X, 

' MODEL  TIME  ' , S 6 v 2X » 16 , 2X , 14 » 4X , ' JOB  ',A8,4X, 

GR I D ' , 5 I 4 ) 

rOGRAVITY  WAVE  FILTER  COEFF IC I ENTS ' / f T 1 7 . 20  ( 1 3 2>  ) > ) 
i'  J.  *12,'  LAT  ' ,F5.  I,  <T17,20F5.2)  ) 

!:2!I!D*OF*'FILE  ENCOUNTERED  READING  INPUT  FROM  LOG'  14) 
( OERROR  ENCOUNTERED  READING  INPUT  FROM  LOG'  *14) 


* A8  / ) 


V INPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
> VINPUT 
VINPUT 
VINPUT 
VINPUT 
VTNPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 
VINPUT 


87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
10  1 
102 
103 

104 

105 

106 

107 

108 

109 

110 
1 1 1 
1 12 
1 13 
1 14 
1 15 
116 

117 

118 

119 

120 


STATEMENT 

LABEL  MAP 

— LABEL- - 

-DEFINED 

REFERENCES 

10 

298 

302 

10000 

296 

15 

303 

299 

20 

308 

307 

40 

3 12 

322 

45 

321 

319 

46 

327 

325 

47 

332 

330 

50 

344 

342 

60 

345 

6000 

353 

297 

6010 

354 

299 

6015 

355 

301 

6020 

356 

31  1 

6040 

357 

334 

6045 

358 

34  1 

6050 

359 

343 

6810 

360 

348 

6820 

361 

35  1 

8 10 

347 

820 

350 

go 

^ aj 

*o  5 

|I 

aj 

f 2 

3b 


VARIABLE  MAP 


-NAME 

BLOCK 

TYPE 

--CLASS- 

ADATE 

CCNTRL 

CHAR*B 

SIMPLE 

ADLDP 

RDP ARM 

REAL 

SIMPLE 

ALBEDO 

QANDQT 

REAL 

ARRAY 

APHEL 

RCNTRL 

REAL 

SIMPLE 

ATIME 

CCNTRL 

CHAR  *8 

SIMPLE 

BETA 

RCNTRL 

REAL 

SIMPLE 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

CARD 

// 

CHARTS 

ARRAY 

REFERENCES 

A = ARGLIST , C = CTRL  OF  DO,  I =DA TA 

3 

16 

217 

256 

269 

157 

4 

17 

158 

196 

284 

285 

299 /R  300 / W 301/W 

REREAD* 


S=  STORE 


W=WR1TE 


INPUT  8 


CATA 

// 

REAL 

ARRAY 

264 

CC 

CCNTRL 

CHAR -8 

ARRAY 

14 

1 5 

cco 

CCNTRL 

CHAR  *,8 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 
1 3 

3 

CCSP06 

CCNTRL 

CHAR  *8 

SIMPLE 

7 

20 

CCSP07 

CCNTRL 

CHAR  *8 

SIMPLE 

8 

2! 

CCSP08 

CCNTRL 

CHAR  *8 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

218 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

2 T 9 

COM2 

RDPARM 

REAL 

SIMPLE 

220 

CON2DT 

RDPARM 

REAL 

SIMPLE 

22  1 

COM3 

RDPARM 

REAL 

SIMPLE 

222 

CON3DT 

RDPARM 

REAL 

SIMPLE 

223 

CON4 

RDPARM 

REAL 

SIMPLE 

224 

CON4DT 

RDPARM 

REAL 

SIMPLE 

225 

CONS 

RDPARM 

REAL 

SIMPLE 

226 

CORDER 

REAL 

UNKNOWN 

286 

288 

COSD 

RCNTRL 

REAL 

SIMPLE 

159 

COSL 

RDPARM 

REAL 

ARRAY 

227 

COSLON 

RDPARM 

REAL 

ARRAY 

228 

CP 

RCNTRL 

REAL 

SIMPLE 

ISO 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

CQS 

CCNTRL 

CHARTS 

ARRAY 

12 

25 

CQU 

CCNTRL 

CHAR'S 

ARRAY 

13 

26 

DATA 

// 

REAL 

ARRAY 

284 

OAYSPY 

RCNTRL 

REAL 

SIMPLE 

161 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

163 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

DSIGINV 

RDPARM 

REAL 

ARRAY 

252 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

DXP 

RDPARM 

REAL 

ARRAY 

230 

DXYP 

RDPARM 

REAL 

ARRAY 

231 

DYP 

RDPARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

F 1 DT 

RDPARM 

REAL 

SIMPLE 

234 

F2DT 

RDPARM 

REAL 

SIMPLE 

236 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

21  1 

214 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU2 

RCNTRL 

REAL 

SIMPLE 

170 

29  T 

GRAV 

RCNTRL 

REAL 

SIMPLE 

171 

GT 

QANDQT 

REAL 

ARRAY 

257 

270 

GW 

QANDQT 

REAL 

ARRAY 

258 

271 

W1DT 

RDPARM 

REAL 

SIMPLE 

236 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

HEATI 

RCNTRL 

REAL 

SIMPLE 

193 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

I 

INTEGER 

SIMPLE 

341  /W 

341 

XBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

38 

39 

49 

50 

GO 

61 

7 1 

72 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

I DP ARM 

INTEGER 

UNKNOWN 

200 

201 

I D5P02 

IDPARM 

INTEGER 

SIMPLE 

201 

I EF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

1 FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

83 

15 

4 


343 


343 


96 

29 

40 

51 

62 

73 


202 


335/S 

5 6 7 


8 


9 10  11  12 


343/C 


30 

31 

41 

42 

52 

53 

63 

64 

74 

75 

203 

204 

32 

33 

43 

44 

54 

55 

65 

66 

76 

77 

205 

206 

34 

35 

45 

46 

56 

57 

67 

6B 

78 

207 

208 

36 

37 

47 

48 

58 

59 

69 

70 

209 

210 

HH 

3 

Cj 


VO 


ORIGINAL  PACE  © 
OF  POOR  QUALITY 


v i 


\ 

I I CLOUD 

ICNTRL 

I dUMP 

IDPARM 

i 

IM 

ICNTRL 

I 

IMD2 

ICNTRL 

IMD2P 1 

ICNTRL 

] 

INDEX 

IDPARM 

INPUT 

INPUTZ 

s ' 

I OF LAG 

i 

IOMEGA 

ICNTRL 

l 

I PRE ACC 

ICNTRL 

i;,v 

I PRECON 

ICNTRL 

IQS 

ICNTRL 

I OSD I AG 

OANDQT 

» •••-• 

IOU 

ICNTRL 

1 

IRADLW 

ICNTRL 

!’ 

IRADLWG 

ICNTRL 

IRADSW 

ICNTRL 

, . : . .. 

IRADSWG 

ICNTRL 

•jfV  1 

I ROD 

IDPARM 

I TAPE 

LDPARM 

' $ ; • ; 

ITMAX 

ICNTRL 

V • •. 

ITMIN 

ICNTRL 

IUFLUX 

ICNTRL 

k 

IVFLUX 

.1 

ICNTRL 

f 

\\ 

If 


JC 

JE 

JESMTH 

JIC 

dM 

dMD2 
dMP  1 
JMT2 
JNP 
J04 

doa 

doa 

dp 

dSP 

KLIALB 

KLIGW 

KLISST 

KS 

KSTEP 

KU 

LC 

LCO 

LCNTRL 

ldiabat 

LDPARM 

LEFLUX 

LFUSION 

LHFLUX 

LICLOUD 

LOGSR 

LOMEGA 

LPREACC 

LPRECOW 

LQS 

LQU 

LRADLV/ 

LRADLWG 

LRADSW 

lradswg 

LTMAX 


I DP  ARM 
I DP ARM 

CCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 
ICNTRL 
ICNTRL 
ICNTRL 
CCNTRL 
IDPARM 
ICNTRL 
ICNTRL 
ICNTRL 
ICNTRL 
ICNTRL 
I DP ARM 
ICNTRL 
LCNTRL 
LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

ICNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR  *8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR  *8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


UNKNOWN 

88 

ARRAY 

200 

SIMPLE 

28 

334/W 

SIMPLE 

29 

326 

326 

SIMPLE 

30 

ARRAY 

202 

SUBROUTINE 

1 

SIMPLE 

291 

307 

329 

SIMPLE 

315/S 

316/S 

317/s 

UNKNOWN 

91 

UNKNOWN 

8 1 

UNKNOWN 

ARRAY 

ARRAY 

ARRAY 

UNKNOWN 

UNKN OWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 


82 

77 
89 

281 

78 
94 
87 
93 
8G 

203 
2 12 

80 

79 

89 

90 

319/C 

343 

204 

205 
324/S 

5 

32 

33 

318/S 

34 

35 

36 

37 

6 

206 

38 

39 

40 

41 

42 
207 

43 
154 

97 

97 

108 

123 
21  1 
115 
1 16 
I 14 
1 19 

44 
122 
112 
113 
108 
1 20 
109 
125 
118 

124 
117 
1 1 1 


3 19 


29! 

291 

19 


291 

291 

291 

334/W 

334  /W 
155 
154 
98 
109 

151 
212 

143 

144 
142 
147 
316 
150 
140 
14  1 
1 10 
121 
122 
153 
146 

152 

145 
139 


331 


33  1 


322 


34  I 


343 


79 

90 
282 

91 

80 

92 

81 

93 

82 

94 

83 

84 

85 

86 

87 

38 

310/S 

215 

314/S 

314 

320 

343 

325/C 

326 

326 

330/C 

331 

331 

342  X 

343 

343 

325 

18 

318 

330 

324 

334 /V/ 

342 

29  1 


334/W 


155 

99 


213 


100 


10  1 


102 


103 


104 


105 


tor. 


107 


317 

334/W 

11  1 

1 12 

1 13 

1 14 

136 

123 

124 

1 25 

137 

t 15 


1 16 


1 1 7 


1 18 


1 19 


K-.W-' 


— 


ORIGINAL  PASS  W 

INPUT  10  OF  POOR  QUALITY 


LTMIN 

LU 

LUFLUX 

LVFLUX 

MACH ID 

MATIN 

matsnx 

MATSUN 

m 

MLF 

MROD 

MSM 

NB 

ND 

NDALT 

NDAY 

NDHOG 

NDOUT 

NDPHY 

NDRSW 

ND5HF 

NOT 

NHMS 

NHMSO 

NHMS1 

NHMSE 

NKRSH 

NLAY 

NLAYMT 

NLA YP 1 

NMLEV 

NSDAY 

NSEQ 

NSTEP 

NYMD 

NYMDO 

NYMD1 

NYMDE 

N2INIT 

OMEGA 2 

P 

PHI 

PHIS 

PI 

PI  tao 
P I 2 

PIMEAN 

PKSTD 

PKTOP 

PLEVS 

PSMAX 

PSMIN 

PSTD 

ptop 

PZERO 

QALT 

QANDOT 

QBEG 

QDAY 

QEND 

QOUT 

QPHY 

QPROG 

QRSH 
QRS  VI 
QSDIAG 
QSHF 
QUDIAG 


LCNTRL 

LOGICAL 

UNKNOWN 

INTEGER 

SIMPLE 

LCNTRL 

LOGICAL 

UNKNOWN 

LCNTRL 

LOGICAL 

UNKNOWN 

CHARTS 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

IDPARM 

INTEGER 

ARRAY 

ICNTRL 

INTEGER 

ARRAY 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

IDPARM 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

IDPARM 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

ICNTRL 

INTEGER 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

QANDOT 

REAL 

ARRAY 

QANDQT 

REAL 

ARRAY 

QANDQT 

REAL 

ARRAY 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

RCNTRL 

REAL 

ARRAY 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

REAL 

UNKNOWN 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

QANDQT 

REAL 

ARRAY 

LCNTRL 

logical 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

QANDQT 

REAL 

ARRAY 

LCNTRL 

LOGICAL 

SIMPLE 

QANDQT 

REAL 

ARRAY 

1 to 

138 

309/S 

313 

320 

120 

148 

121 

149 

293 

294/1 

335 

45 

291 

46 

47 

208 

48 

291 

49 

291 

51 

52 

337 

339 

53 

338 

340 

54 

291 

55 

76 

56 

291 

57 

291 

31 

291 

58 

291 

59 

291 

60 

323 

334/W 

62 

209 

291 

305/S 

61 

291 

50 

291 

63 

334  /W 

64 

65 

75 

66 

67 

291 

69 

7 J 

323 

33  4 /VI 

73 

210 

291 

304/S 

72 

291 

74 

172 

261 

274 

266 

279 

254 

267 

173 

174 

175 

177 

291 

238 

239 

1 9 t 

178 

291 

179 

291 

176 

291 

180 

197 

98 

126 

253 

280 

283 

99 

127 

100 

128 

101 

129 

102 

130 

103 

131 

253 

267 

268 

277 

278 

279 

107 

135 

106 

134 

280 

282 

104 

132 

283 

348/W  35T/W 


323 


323 


269  270  27 1 272 


273  274  275  276 


52S 

r-tf 

a 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


HADE 

RCNTRL 

RC 

RCNTRL 

RCO 

RCNTRL 

RCNTRL 

RDPARM 

RGAS 

RCNTRL 

RLAT 

RDPARM 

RLATD 

RDPARM 

ROCP 

RCNTRL 

nocPDT 

RDPARM 

nocpp i 

RDPARM 

RSDIST 

RCNTRL 

SDAV 

RCNTRL 

SEASON 

RCNTRL 

SGNP 

RDPARM 

SH 

QANDQT 

SHS 

QANDQT 

SIG 

RDPARM 

SIGE 

RCNTRL 

SIND 

RCNTRL 

SINL 

RDPARM 

SINLON 

RDPARM 

SKIP 

SMTH 

QANDQT 

SMTHNL 

// 

SN2FLG 

LCNTRL 

SOLS 

RCNTRL 

START 

LDPARM 

T 

QANDQT 

THSTD 

RDPARM 

THSTD2 

RDPARM 

TS 

QANDQT 

TSTD 

RCNTRL 

U 

QANDQT 

V 

QANDQT 

VER 

CCNTRL 

VERSAVE 

WSAVE 

RDPARM 

XLABEL 

CCNTRL 

XORDS 

CORDER 

xonou 

CORDER 

XSA 

CORDER 

XUA 

CORDER 

PROCEDURE 

MAP 

--NAME 

TVPE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

UNKNOWN 

REAL 

UNKNOWN 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

LOGICAL 

UNKNOWN 

REAL' 

ARRAY 

REAL 

ARRAY 

LOGICAL 

SIMPLE 

REAL 

SIMPLE 

LOGICAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

CHAR  + 8 

SIMPLE 

CHAR  *8 

SIMPLE 

REAL 

ARRAY 

CHAR  *8 

ARRAY 

CHAR  *8 

ARRAY 

CHAR *8 

ARRAY 

CHAR  *8 

ARRAY 

CHAR'S 

ARRAY 

CLASS 

181 

198 

199 

156 

198 

199 

156 

157 

158 

167 

168 

169 

178 

179 

180 

189 

190 

191 

217 

218 

219 

228 

229 

230 

239 

240 

241 

250 

251 

252 

182 

240 

241 

343/W 

183 

242 

243 

184 

185 

186 

244 
265 

278 

260 

273 

25  1 
1 87 

291 

1B8 

245 

246 
292 
255 

268 

326 

290 

291 

326/S 

105 

133 

291 

189 

213 

216 

264 

277 

247 

248 
259 

272 

190 

291 

262 

275 

263 

276 

10 

23 

333/S 

293 

295/1 

297  /W 

249 
1 1 

24 

291 

286 

287 

286 

287 

288 

289 

288 

289 

159 

160 

161 

170 

171 

172 

181 

182 

183 

192 

193 

194 

220 

221 

222 

231 

232 

233 

242 

243 

244 

331/S  343/W 

331 


333 


A=ARGLIST 


REFERENCES  D“5TMT  FN  DEF, 


DEFALT 

SUBROUTINE 

323 

DEPEND 

SUBROUTINE 

336 

IOO 

SUBROUTINE 

313 

POL I NP 

SUBROUTINE 

337 

320 

338 


162 

173 

184 

19S 

223 

234 

245 


163 

174 

185 

196 

224 

235 

246 


164 

175 

1S6 

197 

225 

236 

247 


165 

166 

176 

177 

187 

188 

226 

227 

237 

238 

248 

249 

So 

38 

8$ 


3 


339 


340 


INPUT  12 


V.'  ' 


SUBROUT  I WE  T OO  (LU,  KOP . d,  ♦.  +) 

>+.  + ++  +++  + +4  4 4 + 4 ♦ •*  4 4 t *•♦  ♦ 4 < 


00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 
000  1 1 
00012 

00013 

00014 

00015 

00016 
00017 

ooo  ta 

000  19 

00020 

00021 

00022 

00023 

00024 

00025 

00026 
00027 


SUBROUTINE  IOQ 
PURPOSE 

UTILITY  SUBROUTINE  TO  SKIP,  READ,  OR  WRITE  MODEL  RESTART  RECORDS 
USAGE 

CALLED  FROM  TWRITE  AND  INPUT 
INPUT/OUTPUT  FILES  USED 

UN ! T 1 2 I/O  READS  INITIAL  CONDITIONS  IN  INPUT 

UNI T 1 2 O WRITES  RESTART  FILES  IN  TWRITE 

UNI T 1 4 O WRITES  RESTART  FILES  IN  TWRITE 

UNIT08  O WRITES  RESTART  RECORDS  TO  HISTORY  IN  TWRITE 

DESCRIPTION  OF  PARAMETERS 

LU  LOGICAL  UNIT  ON  WHICH  TO  DO  INPUT/OUTPUT 

KOP  CODE  OF  OPERATION  TO  PERFORM 

10  TO  SKIP,  ! TO  READ,  2 TO  WRITE ) 

d LATITUDE  SAND  NUMBER 

(0  FOR  HEADER  RECORD,  NEGATIVE  FOR  ALL  DATA  RECORDS) 

* EOF  RETURN 

+ ERROR  RETURN 

SUBPROGRAMS  NEEDED 
RIOQ 

RECORD  OF  MODIFICATIONS 

000  21JUL83  JIM.PF  ADDING  CHOICE  FOR  DIAGNOSTICS 

001  15SEP83  JIM.PF  FIX  TO  READ  VSRSTR  WITHOUT  DIAGNOSTICS 

002  1SJAN84  RAMESH  MAKE  IT  WORK  FOR  MIX  PRECISION 

003  O f F EBS4  JIM.PF  COMMENTS 

REMARKS: 

THIS  SUBROUTINE  READS  AND  WRITES  BETWEEN  MODEL  COMMON  BLOCK 
/ OANDOT/  AND  VSRSTR  FORMAT  DATA  SETS 

* M/A-COM  SIGMA  DATA  INC,  NASA  - GSFC 

HALF/FULL  PRECISION 

IMPLICIT  HALF  PRECISION  (A-H.0-2) 


ADDING  CHOICE  FOR  DIAGNOSTICS 

FIX  TO  READ  VSRSTR  WITHOUT  DIAGNOSTICS 

MAKE  IT  WORK  FOR  MIX  PRECISION 

COMMENTS 


PARAMETER  STATEMENTS  FOR  DIMENSIONING  RESOLUTION 


CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/CCNTRL/ 
/CCNTRL / 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/CCNTRL/ 


EQUIVALENCE 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTER  S 
CHARACTERS 


CCO 

ADATE 

ATIME 

JIC 

JOB 

CCSP06 

CCSP07 

CCSP08 

VER 

XL ABEL  (10) 
CQS  (30) 

CQU  (10) 
DSTOP (A ) 
DSLWI (4) 
DSSST ( 4 ) 
DSALB ( 4 ) 
DSGWT ( 4 ) 

<CCO.CC< I ) ) 

CCO,  CC ( 200 ) 

ADATE 

ATIME 

JIC 

dOB 

CCSP06 

CCSP07 


VIOQ 
► * VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOO 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
* V I OQ 
♦VIOQ 
♦VIOQ 
VIOQ 
VREAL 
VREAL 
VREAL 
VREAL 
VRSLV 
VRSLV 
VRSLV 
VRSLV 
VRSLV 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 
VCNTRL 


ORIGINAL  PAGE  E8 
OF  POOR  QUALITY 


00028 

00029 

00030 
0003  I 

00032 

00033 

00034 

00035 

00036 

00037 


0003B 

00039 

00040 
0004  1 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 
00065 
00056 
00067 
00088 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 
00067 
0006S 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 
00000 
00081 
00002 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 


W 

O 

JO 

ro 


CHARACTER  *8  CCSP08 

CHARACTERS  VER 

CHARACTER S XL ABEL 

CHARACTERS  CQS 

CHARACTERS  CQU 

CHARACTER  *8  OSTOP 

CHARACTER  *8  DSLWI 

CHARACTERS  DSSST 

CHARACTERS  DSALB 

CHARACTERS  DSGWT 

JWTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  / ICNTRL/  ICO 
COMMON  /ICNTRL/  IM 
COMMON  /ICNTRL/  IMD2 
COMMON  /ICNTRL/  IMD2P1 
COMMON  /ICNTRL/  NDRSW 
COMMON  /ICNTRL/  JM 
COMMON  /ICNTRL/  AID 2 
COMMON  /ICNTRL/  oMTZ 
COMMON  /ICNTRL/  JNP 
COMMON  /ICNTRL/  404 
COMMON  /ICNTRL/  JOB 
COMMON  /ICNTRL/  JSP 
COMMON  /ICNTRL/  KLIALB 
COMMON  /ICNTRL/  KLIGW 
COMMON  /ICNTRL/  KLISST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KU 
COMMON  /ICNTRL/  LOGBR 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MATSUN 
COMMON  /ICNTRL/  MLF  (12) 

COMMON  /ICNTRL/  MROD 
COMMON  /ICNTRL/  NKRSH 
COMMON  /ICNTRL/  MSM 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  ND 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDA V 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NDT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHMSE 
COMMON  /ICNTRL/  NHMSO 
COMPJ10N  /ICNTRL/  NLA Y 
COMMON  /ICNTRL/  NLAYM1 
COMMON  /ICNTRL/  NLAYPt 
COMMON  /ICNTRL/  NSDAV 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  IBLKSI2 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINIT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDHOG 
COMMON  /ICNTRL/  IQS  (30) 

COMMON  /ICNTRL/  IQU  (10) 

COMMON  /ICNTRL/  KLITOP 
COMMON  /ICNTRL/  KLILV/I 

EQUIVALENCE  (ITMIN  ,IQS<  1)) 

EQUIVALENCE  (UMAX  ,IQS(  2)) 

EQUIVALENCE  (IPREACC  >IOS(  3)1 


VCNTRL 

30 

VCNTRL 

31 

VCNTRL 

32 

VCNTRL 

33 

VCNTRL 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

38 

VCNTRL 

39 

VCNTRL 

40 

VCNTRL 

41 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

46 

VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

SO 

VCNTRL 

51 

VCNTRL 

52 

VCNTRL 

53 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

§ © 

VCNTRL 

VCNTRL 

58 

59 

VCNTRL 

60 

© 

VCNTRL 

61 

O 

VCNTRL 

62 

O s? 

VCNTRL 

63 

VCNTRL 

64 

VCNTRL 

65 

cr  & 

VCNTRL 

66 

VCNTRL 

67 

VCNTRL 

68 

VCNTRL 

69 

VCNTRL 

70 

Is 

VCNTRL 

71 

VCNTRL 

72 

VCNTRL 

73 

VCNTRL 

74 

VCNTRL 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRL 

79 

VCNTRL 

00 

VCNTRL 

81 

VCNTRL 

82 

VCNTRL 

83 

VCNTRL 

84 

VCNTRL 

85 

VCNTRL 

86 

VCNTRL 

87 

VCNTRL 

88 

VCNTRL 

09 

VCNTRL 

90 

VCNTRL 

9! 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

98 

VCNTRL 

99 

VCNTRL 

i 00 

00095 

00096 

00097 

00098 

00099 

00100 
00101 
00102 

00103 

00104 

00105 
00  106 

00107 

00108 
00109 


00  110 
00111 
00112 
00  113 

00  114 

001  15 
001  16 

00117 

00118 
001  19 
00  120 
00121 
00122 

00123 

00124 

00125 
00  126 
00127 
00  128 

00129 

00130 
00  131 

00132 

00133 

00134 

00135 
00  1 36 

00137 

00138 

00139 

00140 
00  141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 
0015! 

00152 

00153 
001B4 
00155 
00  tSG 


(IPRECON  , 1 Q5 ( 4)} 
i INFLUX  p 1 QS ( 5 ) ) 

UEFLUX  , IQS<  6)  > 

< IFUSION  , IQS(  7) ) 

(IRADSWG  , IQS(  8)) 

(IRADLWG  , 1 QS ( 9)) 

(IICLOUD  * I QS (10)) 

(IUFLUX  ,105(11)1 
( I VF  LUX  . I QS (12)) 

(IOMEGA  . I QU ( 11) 

<101 ABAT  , 1QU(  2) ) 

(IRADSW  , IOU ( 3)) 

(IRADLW  tIQU(  41) 

{ ICO, IC( 1 > ) 

ICO,  I C ( 200 1 

LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON  /LCNTRL / 

LCD 

COMMON  /LCNTRL/ 

QALT 

COMMON  /LCNTRL/ 

QBEG 

COMMON  /LCNTRL/ 

QDAY 

COMMON  /LCNTRL/ 

QEND 

COMMON  /LCNTRL/ 

QOUT 

COMMON  /LCNTRL/ 

QPHY 

COMMON  /LCNTRL/ 

QSHF 

COMMON  /LCNTRL/ 

SN2FLG 

COMMON  /LCNTRL/ 

QRSW 

COMMON  /LCNTRL/ 

QRSH 

COMMON  /LCNTRL/ 

LQ5( 30  > 

COMMON  /LCNTRL/ 

LQU { 10) 

EQUIVALENCE 

(LTMIN 

, LQS< 

1 ) ) 

EQUIVALENCE 

(LTMAX 

♦ LQS< 

2)  ) 

EQUIVALENCE 

(LPREACC 

, LQS  < 

3)  ) 

EQUIVALENCE 

( LPRECON 

« LQS  ( 

4 ) ) 

EQUIVALENCE 

(LHFLUX 

, L QS  ( 

5 ) ) 

EQUIVALENCE 

(LEFLUX 

. LQS ( 

6)  ) 

EQUIVALENCE 

(LFUSION 

. LQS  { 

7 ) ) 

EQUIVALENCE 

(LRADSWG 

,LQ5( 

8)  ) 

EQUIVALENCE 

(LRADLWG 

,LQS( 

9)  ) 

EQUIVALENCE 

(LECLOUD 

. LQS  ( 

10  ) ) 

EQUIVALENCE 

(LUFLUX 

. LOS < 1 1 > ) 

EQUIVALENCE 

( LVFLUK 

♦ LQS< 

12)  ) 

EQUIVALENCE 

(LOMEGA 

, LQU  ( 

1 ) ) 

EQUIVALENCE 

(LD1ABAT 

, LQU  ( 

2)  ) 

EQUIVALENCE 

(LRADSW 

, LQU { 

3 ) ) 

EQUIVALENCE 

< LRADLW 

, LQU  ( 

4)  } 

LOGICAL 

QALT 

LOGICAL 

QBEG 

LOGICAL 

QDAY 

LOGICAL 

QEND 

LOGICAL 

QOUT 

LOGICAL 

QPHY 

LOGICAL 

QSHF 

LOGICAL 

SN2FLG 

LOGICAL 

QRSW 

LOGICAL 

QRSH 

LOGICAL 

LQS 

LOGICAL 

LQU 

LOGICAL 

LTMIN 

LOGICAL 

LTMAX 

LOGICAL 

LPREACC 

LOGICAL 

LPRECON 

LOGICAL 

LHFLUX 

LOGICAL 

LEFLUX 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

C 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

C 

EQUIVALENCE 
INTEGER 


VCNTRL  101 
VCNTRL  102 
VCNTRL  103 
VCNTRL  104 
VCNTRL  105 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  IIO 
VCNTRL  lit 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  116 
VCNTRL  116 
VCNTRL  117 
VCNTRL  118 
VCNTRL  119 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 
VCNTRL  128 
VCNTRL  129 
VCNTRL  130 
VCNTRL  131 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
VCNTRL  135 
VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  141 
VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  150 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 


O 

JO 


03 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


o 

J3 

4N 


00157 
00  158 
00  1 59 
00  160 
0016  1 
00162 

00163 
00184 
00  165 
00166 

00167 

00168 


00  169 
00  170 
00171 
00  172 

00173 

00174 

00175 
00  1 76 

00177 

00178 

00179 

00180 
00181 
00182 
00163 
001Q4 
00  185 
00186 

00187 

00188 
001B9 
00  190 

00191 

00192 

00193 
00  194 

00195 

00196 

00197 

00198 

00199 

00200 
00201 
00202 

00203 

00204 

00205 

00206 
00207 
0020S 

00209 

00210 

0021  1 
00212 


00213 

00214 

00215 

00216 
002  17 
00218 


C 


C 


c 

c 

c 


c 


c 

c 

c 


LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


LFUSION 

lradswg 

LRADLWG 

LICLOUD 

LUFLUX 

LVFLUX 


LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


LOMEGA 

LDIABAT 

LRADSW 

LRADLW 


EQUIVALENCE 

LOGICAL 


( LCO , LC  ( 1 ) ) 
LCO . LC ( 200 ) 


SAVED  ON  HISTORY  RECORD 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RCNTRL/ 

/RCNTRL / 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 


RCO 
APHEL 
BETA 
COSD 
CP 

DAYSPY 
DEC 

DECMAX 
DIST 
DLAT 
DLON 
DT 

ECCN 
GNU  1 
GNU2 
GRAV 
0MEGA2 
PI 

PI  180 
P 1 2 
PSTD 
PIMEAN 
PSMAK 
PSMIN 
P TOP 
RAOE 
RGAS 
ROCP 
RSDIST 
SOAY 
SEASON 
SIGE 
SIND 
SOLS 
TSTD 

PLEVS  (25) 

HEATW 

HEATI 

EPS 

EPSFAC 

CALTOU 

PZERO 


(25) 


EQUIVALENCE 
HALF  PRECISION 


t RCO , RC ( 1 ) ) 
RCO  * RC ( 400 ) 


INTEGER  MODEL  CONSTANTS 


COMMON  / I DPARM/  I JUMP 
COMMON  /IDPARM/  IDSP02 
COMMON  /IDPARM/  INDEX 
COMMON  /IDPARM/  I ROD 
COMMON  /IDPARM/  4C 
COMMON  /IDPARM/  JE 


(46) 

(72) 

(46) 

(2) 


VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  180 
VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  189 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCNTRL  199 
VCNTRL  200 
VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 
VCNTRL  207 
VCNTRL  208 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  23! 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 


original  mm  m 

OF  POOR  QUALITY 


00219 

COMMON 

/ I DPARM/ 

dP 

(2.2) 

VCNTRL 

243 

00220 

COMMON 

/ I DP ARM/ 

KSTEP 

VCNTRL 

244 

00221 

COMMON 

/I DPARM/ 

Md 

(46) 

VCNTRL 

245 

00222 

COMMON 

/ I DPARM/ 

NHMS  1 

VCNTRL 

246 

00223 

COMMON 

/I DPARM/ 

NYMD1 

VCNTRL 

247 

C 

VCNTRL 

248 

C 

LOGICAL  MODEL  CONSTANTS 

VCNTRL 

249 

c 

VCNTRL 

250 

00224 

COMMON 

/LDPARM/ 

FILTER 

(46) 

VCNTRL 

251 

00225 

COMMON 

/LDPARM/ 

I TAPE 

VCNTRL 

252 

00226 

COMMON 

/LDPARM/ 

START 

VCNTRL 

253 

c 

VCNTRL 

254 

00227 

LOGICAL 

FILTER 

VCNTRL 

255 

00228 

LOGICAL 

I TAPE 

VCNTRL 

256 

00229 

LOGICAL 

START 

VCNTRL 

257 

c 

VCNTRL 

258 

c 

REAL  MODEL 

. CONSTANTS 

VCNTRL 

259 

c 

VCNTRL 

260 

00230 

COMMON 

/RDPARM/ 

ADLDP 

VCNTRL 

261 

00231 

COMMON 

/ RDP ARM/ 

CONI 

VCNTRL 

262 

00232 

COMMON 

/RDPARM/ 

CON IDT 

VCNTRL 

263 

00233 

COMMON 

/RDPARM/ 

C0N2 

VCNTRL 

264 

00234 

COMMON 

/RDPARM/ 

CON2DT 

VCNTRL 

265 

00235 

COMMON 

/RDPARM/ 

COM3 

VCNTRL 

266 

00235 

COMMON 

/RDPARM/ 

CON3DT 

VCNTRL 

267 

00237 

COMMON 

/RDPARM/ 

C0N4 

VCNTRL 

268 

00238 

COMMON 

/RDPARM/ 

CON4DT 

VCNTRL 

269 

00239 

COMMON 

/RDPARM/ 

CONS 

VCNTRL 

270 

00240 

COMMON 

/RDPARM/ 

COSL 

(46) 

VCNTRL 

271 

00241 

COMMON 

/RDPARM/ 

COSLON 

(72) 

VCNTRL 

272 

00242 

COMMON 

/RDPARM/ 

CPD2 

VCNTRL 

273 

00243 

COMMON 

/RDPARM/ 

DKP 

<46) 

VCNTRL 

274 

00244 

COMMON 

/RDPARM/ 

DXYP 

(46) 

VCNTRL 

275 

00245 

COMMON 

/RDPARM/ 

OYP 

(46) 

VCNTRL 

276 

00246 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

VCNTRL 

277 

00247 

COMMON 

/RDPARM/ 

F IDT 

VCNTRL 

278 

00248 

COMMON 

/RDPARM/ 

F2DT 

VCNTRL 

279 

00249 

common 

/RDPARM/ 

H1DT 

VCNTRL 

280 

00250 

COMMON 

/RDPARM/ 

H2DT 

VCNTRL 

281 

00251 

COMMON 

/RDPARM/ 

PKSTD 

VCNTRL 

282 

00252 

COMMON 

/RDPARM/ 

PKTOP 

VCNTRL 

283 

00253 

COMMON 

/RDPARM/ 

RLAT 

(46) 

VCNTRL 

284 

00254 

COMMON 

/RDPARM/ 

RLATD 

< 46  ) 

VCNTRL 

285 

00255 

COMMON 

/RDPARM/ 

ROCPDT 

VCNTRL 

286 

00256 

COMMON 

/RDPARM/ 

R0CPP1 

VCNTRL 

287 

00257 

COMMON 

/RDPARM/ 

SGNP 

(2) 

VCNTRL 

288 

00258 

COMMON 

/RDPARM/ 

SINL 

(46) 

VCNTRL 

289 

00259 

COMMON 

/RDPARM/ 

SINLON 

(72) 

VCNTRL 

290 

00260 

COMMON 

/RDPARM/ 

THSTD 

VCNTRL 

291 

00261 

COMMON 

/RDPARM/ 

THSTD2 

VCNTRL 

292 

00262 

COMMON 

/RDPARM/ 

WSAVE 

( 159) 

VCNTRL 

293 

0 0 263 

COMMON 

/RDPARM/ 

DSIG 

<9) 

VCNTRL 

294 

00264 

COMMON 

/RDPARM/ 

SIG 

(9) 

VCNTRL 

295 

00265 

COMMON 

/RDPARM/ 

DSIGINV 

(9) 

VCNTRL 

295 

c 

VCNTRL 

297 

c 

VCORDER 

2 

c 

IDENTIFYING  LABELS 

OF  MODEL  RESTART  RECORD 

QUANTITIES 

VCORDER 

3 

4 

00266 

c 

COMMON 

/CORDER/ 

XORDS  (24  ) . XORDUOS) 

VuUnLi C n 

VCORDER 

5 

00267 

CHARACTER  * 8 

XORDS  . XORDU 

VCORDER 

6 

c 

VCORDER 

7 

c 

IDENTIFYING  LABELS 

OF  MODEL  HISTORY  RECORD 

QUANTITIES 

VCORDER 

8 

o 

i/rnonttj 

Q 

L 

u^unucn 

t? 

00268 

COMMON 

/CORDER/ 

XSA  ( 23 ) , XUA  (10) 

VCORDER 

10 

00269 

CHARACTER  *8 

XSA  , XUA 

VCORDER 

f 1 

c 

VCORDER 

12 

c 

VQANDQT 

2 

c 

COMDECK  VQANDQT  RESOLUTION 

VALUES 

VQANDQT 

3 

c 

VQANDQT 

4 

c 

IM 

= 72 

VQANDQT 

5 

c 

NLA  V 

=9 

VQANDQT 

6 

ORIGINAL  PACaE  ® 
OF  POOR  QUALITY 


o 

o 

o\ 


00270 

0027  1 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 

00280 

0028  t 
00282 

00283 

00284 

00285 

00286 

00287 

00288 

00289 

00290 

0029  t 

00292 

00293 

00294 

00295 

00296 


00297 

00298 

00299 

00300 


0030  1 


00302 

00303 

00304 

00305 


C 

C 

C 

C 

C 


C 

C 

C 

C 


JMM 
NLAY  + I | 

I M+NLA  V ♦ I 1 
JM/2  > I 


“46 
= 99 
= 7 128 
= 23 


q FIEL°S  ( NEEDED  IN  COMPO) 


COMMON 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 
01 MENS I ON 
DIMENSION 
DIMENSION 
DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


/ Q ANDQT / QPROG (72,9,11,46) 


PHIS 

SMTH 

ALBEDO 

GT 

GW 

TS 

SHS 

P 

U 
V 
T 

SH 
PHI 


(7f  28  , I ) 
(7128,231 
(7128, 
(7128, 
(7128, 
<7128, 
(7128, 
(72,99, 


, t) 
t ) 

) 

1 ) 

1 I 
1 ) 


<72,9,11, 
<72,9,11, 
(72,9, 1 1 , 


<72,9, 
(72,9, 


( QPROG ( t , 
( QPROG( 1 , 
( QPROG ( 1 . 
( QPROG ( 1 , 
( QPROG ( 1 , 
{ QPROG  < 1 , 
( QPROG ( 1 , 
( QPROG ( f , 

( QPROG  < 1 , 
( QPROG ( 1 , 
( QPROG ( 1 , 
( QPROG  < 1 . 
( QPROG ( 1 , 


2JJ.U  ( 1 
4, 1 ) ,V  < 1 
6,  1)  , T ( 1 

a , n , sh  (i 

10,1)  .PHI  f 1 


= = C = L = = = = ,NOT  WEE°E0  IN  COMPO ) 


COMMON 

BIT 

EQUIVALENCE 

COMMON 


/ QANDQT/  QSDI AG ( 72  ,15  46) 

BQSD I AG ( 32 , 72,  15,46) 
(QSDIAG.BQSDIAG) 

/QANDQT/  QUD I AG (72,9,  5,46) 


* m + Htr 


C 

c 

c + + + + + + + ***  + * * * * 

c 

C DEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION  00.001  INPUT 

CYBER  VECTOR  VERSION  00  WD,.nc[, 

C$SSSSSSS$S$$SSSS$$$SSSSS$$$$S£SSSS$S$$SS$$SSS$S$S$SSSS$S$S$S$SSS$$$S$SSVBEGDEB 


VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VI OQ 

* f + QQ 

VIOQ 
VBEGDEB 

ino  VBEGDEB 

ro°  VBEGDEB 


1 

1 ) 

.PHIS 

( 

1 ) 

2 

1 ) 

SMTH 

( 

1 > 

3, 

1 > 

ALBEDO ( 

1 ) 

4 

1 ) 

GT 

( 

1 ) 

5 , 

■ 1 ) 

GW 

< 

1 ) 

6 . 

1 

1 ) , 

TS 

< 

1 ) 

7 , 

1 

1 ) 

SHS 

< 

1 ) 

8 , 

1 

1 ) . 

P 

( 

1 , 

1 ) ) 
I ) ) 
1 >7 
1 ) ) 
1 ) ) 


C 

G 

C 


dMPI 
KOP  1 


VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 
VIOQ 

C VIOQ 

c j oq 

C 

too  CONTINUE 


* + + * + ++  + + * + + + + + + + * + + * + + + + + + + + **  + + 1,  + + + + + + ,', 
t***'  CHECK  I/O  OPERATION  ARGUMENTS  ♦♦♦♦ 

= jm  -»  r 

= KOP  + 1 

GO  TO  (JOO,  200,  300),  KOP! 

RETURN 


7 

a 

9 
10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

4 1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

5 I 

52 

53 

54 

55 

41 

42 

43 
2 

3 

4 

5 

6 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


00306 


00307 


00308 

00309 
003  t 0 


0031  1 
00312 
003  13 


003  14 
00315 
003  I G 

00317 

00318 


00319 

00320 


00321 

00322 

00323 


00324 

00325 

00326 


00327 

00328 


00329 

00330 

00331 


00332 

00333 


00334 


C 

c 

c 


c 

c 

c 


IF  <d)  160,  120,  140 

***  + HEADER  RECORD  +♦  + * 

120  CONTINUE 

READ  <LU.END=800 , ERR =900) 

RETURN 

+ + + * DATA  BAND  RECORD  + ♦** 

* + *-**'*«‘***,'*'  + * + «'*'-»'**  + * + *>'*-t-**ir*****i»-*>***** 

140  CONTINUE 

READ  < LU ,END=800 , ERR=900) 

RETURN 

C 

C * + ♦•>  GLOBAL  DATA  RECORD  ♦ ♦♦♦ 

C ♦****lf4't'+itc*#+***'«r  + ^**-*'i*-+**  + *'+'*-**'^*^4>^*-*^* 

160  CONTINUE 

DO  180  Jd  = 1 , dMP 1 

READ  f LU , END=800 , ERR  = 900) 

ISO  CONTINUE 

RETURN 
C 

C ♦ *♦*•*♦  + + *♦♦♦••***■►♦•■  *>*♦  + *♦  + »+  *>+**'  **♦♦►*♦♦♦+♦*♦  r 

C •*  + *'*  READ 

Q ******»***1'*'*  + +**+4-4'*-*4i******-***%.*:+<f***>***  + + 

C 

200  CONTINUE 

IF  (d.NE.O)  GOTO  240 

C HEADER  RECORD  «•♦♦♦ 

220  CONTINUE 

READ  ( LU , END  = SOO , ERR  = 900 ) CC,  IC,  LC , RC  . (XORDS(K), 
£ < XORDU ( K ) , 

RETURN 

C + + + *•*♦*+♦*♦  + * 

c + ♦♦♦  DATA  BAND  RECORD  ♦ 

C **  + +**++l»’**'***:f*  + *+  '*'*4'+  + + + + 

240  CONTINUE 

CALL  RIOQ  (LU  , d ,&800t£900) 

RETURN 


K= 1 , KS ) , 
K = 1 , KU ) 


♦*+*  WRITE 

300  CONTINUE 

IF  (d.NE.O)  GOTO  340 

^tt*-***-******************  I 

+ ♦*♦  HEADER  RECORD  ► * * ♦ 

+ *♦«-*++***  + *+ + + **+-+4  ► 4 ♦ ♦ »♦  I I *■♦  4 4*4  Ml  M> 

320  CONTINUE 

WRITE  (LU)  CC,  IC.  LC,  RC,  (XORDS(K),  K=1.KS), 

$ ( XORDU ( K } , Ksl.KU) 

RETURN 

+++*  DATA  BAND  RECORD  ♦ ♦ ♦ * 


340  CONTINUE 

IF ( (KS.GT.9) .AND. (KU.GT . 10) > 


$WR I TE  ( LU ) 
$ 

$ 

$ 

$ 

S 


( ( QPROG ( 1 , K , l,d) ,1=1 ,IM) , K = 1 ,9)t 
< ( OSDI AG ( I ,K“9,d) ,1=1 , IM) , K= 1 0 , KS) t 
( ( ( OPROG(  I ,L  , K , d ) , I = t , IM)  t L=  1 , NLAV) 
,k=2,  in, 


, K = 1 1 , KU ) 


IF ( (KS.GT.9)  .AND.  (KU.EQ.  10)  ) 


SWRITE  (LU) 
S 


( ( QPROG ( I ,K , 1 . d) , 1= I , IM) ,K? 1 ,9) , 

( ( QSDIAGd  , K - 9 , d ) , 1 = 1 , I IVT ) , K = 1 0 . K S ) . 
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59 

VIOQ 

60 

VIOQ 

61 

VIOQ 

62 

VIOQ 

63 

VIOQ 

64 

VIOQ 

65 

VIOQ 

66 

VIOQ 

67 

VIOQ 

68 

VIOQ 

69 

VIOQ 

70 

VIOQ 

71 

VIOQ 

72 

VIOQ 

73 

VIOQ 

74 

VIOQ 

75 

VIOQ 

76 

VIOQ 

77 

VIOQ 

78 

VIOQ 

79 

VIOQ 

80 

♦VIOQ 

81 

♦VIOQ 

82 

♦VIOQ 

83 

VIOQ 

84 

VIOQ 

85 

VIOQ 

86 

VIOQ 

87 

VIOQ 

88 

VIOQ 

09 

VIOQ 

90 

VIOQ 

91 

VIOQ 

92 

VIOQ 

93 

VIOQ 

94 

VIOQ 

95 

VIOQ 

96 

VIOQ 

97 

VIOQ 

98 

VIOQ 

99 

VIOQ 

100 

♦'VIOQ 

101 

♦ VIOQ 

102 

♦VIOQ 

103 

VIOQ 

104 

VIOQ 

105 

VIOQ 

106 

VIOQ 

107 

VIOQ 

1 OB 

VIOQ 

109 

VIOQ 

110 

VIOQ 

1 1 1 

VIOQ 

112 

VIOQ 

113 

VIOQ 

1 14 

VIOQ 

1 15 

VIOQ 

1 16 

VIOQ 

1 17 

VIOQ 

1 18 

VIOQ 

1 19 

VIOQ 

120 

VIOQ 

121 

vioq 

122 

VIOQ 

123 

> VIOQ 

124 

VIOQ 

125 

VIOQ 

126 

VIOQ 

127 

VIOQ 

128 

VIOQ 

129 

M 

O 

rO 
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1 ••  r "/v  r y 


$ 

s 


f C ( QPROG! ! * L * K , J > ,1=1, 

.K  = 2, 


00335 


00336 


00337 


0033B 

00339 


00340 

00341 

00342 

STATEMENT 
--LABEL  - - • 


IF  < (KS. EQ.9)  . AND . ( KU . GT .10)) 

$WR1TE  <LU)  ((  QPROG ( I , K , 1 , J ) , 

| <(<  QPROG  < I , L , K , J ) , 

$ ( i ( QUDI AG  < I , L , K- to! 

S 


1 = 1 , 
1 = 1 , 
K-2 , 
J)  ( I 
K = 1 1 


IM)  . L = 1 , NL  A Y ) 
1 1 ) 


IM)  , K=  f , 9 ) , 

IM)  , L=  1 , NLA V ) 
t 1 ) , 

= 1 , I M ) , L=  1 , NLA Y ) 
,KU) 


IF  < (KS.EQ ,9)  .AND. (KU.EQ. 10)  ) 
SWRITE  <LU>  (( 


QPROG ( I , K , 1 


<(<  QPROG ( I . L , K 


J>  . 
J)  . 


C 

C 

C 


800 


900 


RETURN 

END-OF-FILE  ENCOUNTERED 

CONTINUE 
RETURN  1 

****  READ  ERROR  ENCOUNTERED 

+ ♦ f * ♦ f + f ► ♦ f » t t ^ f t M 

CONTINUE 
RETURN  2 


1 = 1 
1=  1 
l<  = 2 


, IM) >K=1  ,9) , 
IM)  t L = 1 , NL A Y ) 
It) 


<*■  ♦ ♦ i 


♦ + +t 
► ♦ + f ♦ 


END 


VIOQ 

130 

VIOQ 

131 

VIOQ 

132 

VIOQ 

133 

VIOQ 

134 

VIOQ 

135 

VIOQ 

136 

VIOQ 

137 

VIOQ 

138 

VIOQ 

139 

VIOQ 

140 

VIOQ 

141 

VIOQ 

142 

VIOQ 

143 

VIOQ 

144 

VIOQ 

145 

VIOQ 

146 

VIOQ 

147 

VIOQ 

148 

VIOQ 

149 

VIOQ 

150 

VIOQ 

151 

VIOQ 

152 

vroo 

153 

VIOQ 

154 

VIOQ 

155 

VIOQ 

156 

LABEL  MAP 

DEFINED REFERENCES 


100 

306 

304 

10000 

30  1 

120 

308 

307 

140 

3 1 1 

307 

160 

314 

307 

180 

317 

315 

200 

319 

304 

220 

32  1 

240 

324 

320 

300 

327 

304 

320 

329 

340 

332 

328 

800 

338 

309 

900 

340 

309 

3 12 
312 


316 

316 


VARIABLE  MAP 


: i 

! --NAME 

--BLOCK 

---TYPE 

--CLASS-- 

ADATE 

CCNTRL 

CHAR  *8 

SIMPLE 

t ADLDP 

RDPARM 

HALF 

SIMPLE 

ALBEDO 

QANDQT 

HALF 

ARRAY 

} 

APHEL 

RCNTRL 

HALF 

SIMPLE 

ATIME 

CCNTRL 

CHAR  * 8 

SIMPLE 

BETA 

RCNTRL 

HALF 

SIMPLE 

BQSDIAG 

QANDQT 

BIT 

ARRAY 

: 

CALTOJ 

RCNTRL 

HALF 

SIMPLE 

. ■ 

CC 

CCNTRL 

CHAR  *8 

ARRAY 

CCO 

CCNTRL 

CCNTRL 

CHAR  + 8 
HALF 

SIMPLE 

UNKNOVJN 

> 

CCSP06 

CCNTRL 

CHARTS 

SIMPLE 

;-j"  ] 

CCSP07 

CCNTRL 

CHAR+8 

SIMPLE 

ij  : 1 

CCSP08 

CCNTRL 

CHARTS 

SIMPLE 

} . j 

CONI 

RDPARM 

HALF 

SIMPLE 

CON  IDT 

RDPARM 

HALF 

SIMPLE 

['} 

CON2 

RDPARM 

HALF 

SIMPLE 

! i 

CON2DT 

RDPARM 

HALF 

SIMPLE 

"'ll 

CON3 

RDPARM 

HALF 

SIMPLE 

; 

CON3DT 

RDPARM 

HALF 

SIMPLE 

:> 

CON4 

RDPARM 

HALF 

SIMPLE 

322 

322 


-REFERENCES 

4 

230 
273 
170 

5 

17  1 
298 
209 
20 
3 
3 
14 
a 
9 
10 
23  I 

232 

233 

234 

235 

236 

237 


M 

O 

JO 

00 


A =ARGLI ST » C = CTRL  OF  DO,  I =DATA  INIT,  REREAD , S=STORE  , W=WRITE 


22 

286 

23 

299 

2 t 
20 
4 
15 
26 

27 

28 


322/R 

21 

5 

16 


330/W 


6 
1 7 


7 

18 


8 

19 


10 


1 1 


12 


13 
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ii,y.y 


\ 1 


• 4 


j:j 

n; 

i 

V 

k 

> 

I 

i 


T.j 


'f| 


C0N40T 

RDP ARM 

HALF 

SIMPLE 

238 

C0N5 

RDP ARM 

HALF 

SIMPLE 

239 

CORDER 

HALF 

UNKNOWN 

266 

268 

COSD 

RCNTRL 

HALF 

SIMPLE 

! 7 2 

CDSL 

RDPARM 

half 

ARRAY 

240 

COSLON 

RDPARM 

HALF 

ARRAY 

24  1 

CP 

RCNTRL 

HALF 

SIMPLE 

173 

CPD2 

RDPARM 

HALF 

SIMPLE 

242 

CQS 

CCNTRL 

CHAR  *8 

ARRAY 

13 

31 

CQU 

CCNTRL 

CHAR  * 8 

ARRAY 

14 

32 

DAY5PY 

RCNTRL 

HALF 

SIMPLE 

174 

DEC 

RCNTRL 

HALF 

SIMPLE 

175 

DECMAX 

RCNTRL 

HALF 

SIMPLE 

176 

DIST 

RCNTRL 

HALF 

SIMPLE 

177 

DLAT 

RCNTRL 

HALF 

SIMPLE 

178 

DLON 

RCNTRL 

HALF 

SIMPLE 

1 79 

DSALB 

CCNTRL 

CHAR*8 

ARRAY 

18 

36 

DSGWT 

CCNTRL 

CHAR  *8 

ARRAY 

19 

37 

DS1G 

RDPARM 

HALF 

ARRAY 

263 

OSIGINV 

RDPARM 

HALF 

ARRAY 

265 

OSLWI 

CCNTRL 

CHARTS 

ARRAY 

16 

34 

DSSST 

CCNTRL 

CHARTS 

ARRAY 

1 7 

35 

DSTOP 

CCNTRL 

CHAR ♦ 8 

ARRAY 

15 

33 

DT 

RCNTRL 

HALF 

SIMPLE 

180 

DXP 

RDPARM 

HALF 

ARRAY 

243 

DXYP 

RDPARM 

HALF 

ARRAY 

244 

DYP 

RDPARM 

HALF 

ARRAY 

245 

ECCN 

RCNTRL 

HALF 

SIMPLE 

181 

END 

HALF 

UNKNOWN 

309 

312 

EPS 

RCNTRL 

HALF 

SIMPLE 

207 

EPSFAC 

RCNTRL 

HALF 

SIMPLE 

208 

F IDT 

RDPARM 

HALF 

SIMPLE 

247 

F2DT 

RDPARM 

HALF 

SIMPLE 

248 

FCORLS 

RDPARM 

HALF 

ARRAY 

246 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

224 

227 

GNU1 

RCNTRL 

HALF 

SIMPLE 

182 

GNU2 

RCNTRL 

HALF 

SIMPLE 

183 

GRAV 

RCNTRL 

HALF 

SIMPLE 

184 

GT 

QANDQT 

HALF 

ARRAY 

274 

287 

GW 

QANDQT 

HALF 

ARRAY 

275 

288 

H IDT 

RDPARM 

HALF 

SIMPLE 

249 

H2DT 

RDPARM 

HALF 

SIMPLE 

250 

HEATI 

RCNTRL 

HALF 

SIMPLE 

206 

HEATW 

RCNTRL 

HALF 

SIMPLE 

205 

I 

INTEGER 

SIMPLE 

333 

333 

336/C 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

81 

IC 

ICNTRL 

INTEGER 

ARRAY 

108 

109 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

38 

108 

ICNTRL 

INTEGER 

UNKNOWN 

38 

39 

49 

50 

60 

61 

71 

72 

82 

83 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

79 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

105 

I DP  ARM 

INTEGER 

UNKNOWN 

213 

2 14 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

214 

IEFLUX 

ICNTRL 

INTEGER 

unknown 

97 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

98 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

96 

II CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

10  1 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

213 

IM 

ICNTRL 

INTEGER 

SIMPLE 

39 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

40 

IM02P  1 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

INDEX 

IDPARM 

INTEGER 

ARRAY 

215 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

104 

IOQ 

SUBROUTINE 

1 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

94 

316  322 


333 

333/C 

334 

322  /R 
109 

330 /W 

40 

4 1 

42 

5 t 

52 

S3 

62 

63 

64 

73 

74 

75 

84 

85 

86 

215 

216 

217 

q 9 
•*2 
sfi 

G 2 
O % 
73  p 

<o  s 

C > 

£ 2 

3® 


334 

334/0 

335 

43 

44 

45 

54 

55 

66 

65 

66 

67 

76 

77 

78 

87 

68 

89 

2 1 B 

219 

220 

335 

335 /C 

336 

46 

47 

48 

57 

58 

59 

68 

69 

70 

79 

80 

81 

90 

91 

22  1 

222 

223 

w 

o 

o 

VO 


---,-=--<  >~l- 


I- 


> I 

.k  I 


I PRECON 
IQS 


IQU 


IRADLW 

IRADLWG 

IRAOSW 

r RAOSV/G 

I ROD 

ITAPE 

ITMAX 

I TWIN 

IUFLUX 

IVFLUX 

J 


JC 

JE 

urc 

dd 

JM 

JMD2 

JMP  1 

dMT2 

JNP 

J04 

JOB 

d OB 

JP 

JSP 

K 


KLI ALB 
KLIGW 
KLILWI 
KLISST 
KLI TOP 
KOP 
KOP  1 
KS 

KSTEP 

KU 

L 

LC 

LCO 

LCNTRL 


LDIABAT 

LDPARM 

LEFLUX 

LFUSIOM 

LHFLUX 

LICLOUD 

L0G8R 

L OMEGA 

LPREACC 

LPRECON 

LQS 


LQU 

LRADLW 

LRADLWG 

LRADSW 


LRADSWG 
LIMA  X 
LTMIN 
LU 

LUFLUX 
L VF  LUX 


ICNTRL 

ICNTRL 


ICNTRu 


ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

LDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


IDPARM 
I DP ARM 
CCNTRL 


ICNTRL 

ICNTRL 


ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

CCNTRL 

IDPARM 

ICNTRL 


ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


ICNTRL 

IDPARM 

ICNTRL 


LCNTRL 

LCNTRL 


LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

ICNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 


LCNTRL 

LCNTRL 


INTEGER 

INTEGER 


INTEGER 

INTEGER 

CHAR  *8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR  * 8 

INTEGER 

INTEGER 

INTEGER 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

LOGICAL 

INTEGER 


LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


LOGICAL 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 


UNKNOWN 

ARRAY 


INTEGER 


ARRAY 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 


ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 


UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 


ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 


UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

UNKNOWN 

UNKNOWN 


95 

88 

102 

89 


107 

100 

106 

99 

216 

225 

93 

92 

102 

103 


334 

217 

218 
6 

315/C 

43 

44 

302/S 

45 

46 

47 

48 
7 

219 

49 
322 
334 

50 

51 
9 1 

52 
90 

1 

303/S 

53 

220 

54 
333 
167 
1 10 
1 10 
121 

136 
224 
128 
129 
127 

132 

55 
135 

125 

126 
121 

133 
122 
138 
131 

137 


130 

124 

123 

1 

133 

134 


92 
103 
1 04 


93 


105 


94 

106 


95 

107 


96 


97 


98 


99 


100 


101 


228 


307 

335 


320 

335 


325 

335 


328 

336 


333 

336 


333 


333 


333 


334 


334 


24 
302 
3 15 


25 


322/C 

334 


322/C 

334/C 


330 

334/C 


330/C 

335 


330/C 

335 


333 

335/C 


333 
335 /C 


323 

336 


333/C 

336/C 


333 

336 


3 03 
304 
333 


322 
333/C 
168 
167 
1 1 f 
122 
164 
225 

156 

157 
155 
160 


334 

335 

336 

330 

33  3 

333 

334 

334/C 

335 

335/C 

336/C 

322 /R 

330 /W 

168 

1 12 

113 

1 14 

115 

226 

335 


335  336 


1 16 


117  118 


1 19 


120 


(63 

153 

154 
123 

134 

135 
166 
159 
165 


158 
152 
15  1 
309 
161 
162 


24 

125 

1 26 

127 

49 

36 

137 

138 

150 

1 2 

316 

322 

325 

128  129  130  131 


132 


330  333  334  335 


336 
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( V- 


MATIN 

ICNTRL 

INTEGER 

SIMPLE 

56 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

57 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

58 

Md 

I DP ARM 

INTEGER 

ARRAY 

221 

MLF 

ICNTRL 

INTEGER 

ARRAY 

69 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

60 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

62 

NB 

ICNTRL 

INTEGER 

SIMPLE 

S3 

ND 

ICNTRL 

INTEGER 

SIMPLE 

64 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

65 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

66 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

87 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

67 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

68 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

42 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

69 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

70 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

71 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

73 

NHMS1 

IDPARM 

INTEGER 

SIMPLE 

222 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

72 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

61 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

74 

NLA YM 1 

ICNTRL 

INTEGER 

SIMPLE 

75 

NLAYP 1 

ICNTRL 

INTEGER 

SIMPLE 

76 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

86 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

77 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

78 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

80 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

82 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

84 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

223 

NYMPE 

ICNTRL 

INTEGER 

SIMPLE 

83 

NZIKIT 

ICNTRL 

INTEGER 

SIMPLE 

85 

0MEGA2 

RCNTRL 

HALF 

SIMPLE 

185 

P 

QANDQT 

HALF 

ARRAY 

278 

291 

PHI 

QANDQT 

HALF 

ARRAY 

283 

296 

PHIS 

QANDQT 

HALF 

ARRAY 

27  1 

284 

PI 

RCNTRL 

HALF 

SIMPLE 

186 

PI  ISO 

RCNTRL 

HALF 

SIMPLE 

187 

PI  2 

RCNTRL 

HALF 

SIMPLE 

188 

PI MEAN 

RCNTRL 

HALF 

SIMPLE 

190 

PKSTD 

ROPARM 

HALF 

SIMPLE 

25  1 

PKTOP 

RDPARM 

HALF 

SIMPLE 

252 

PLEV3 

RCNTRL 

HALF 

ARRAY 

204 

PSMAX 

RCNTRL 

HALF 

SIMPLE 

191 

P5MIN 

RCNTRL 

HALF 

SIMPLE 

192 

PSTD 

RCNTRL 

HALF 

SIMPLE 

189 

PTOP 

RCNTRL 

HALF 

SIMPLE 

193 

PZERO 

RCNTRL 

HALF 

SIMPLE 

2 10 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

1 1 1 

139 

QANDQT 

HALF 

UNKNOWN 

270 

297 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

1 12 

MO 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

113 

141 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

1 14 

142 

OOUT 

LCNTRL 

LOGICAL 

SIMPLE 

1 15 

143 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

1 16 

144 

QPROG 

QANDQT 

HALF 

ARRAY 

270 

284 

294 

295 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

120 

148 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

1 19 

147 

QSDIAG 

QANDQT 

HALF 

ARRAY 

297 

299 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

1 17 

145 

QUDIAG 

QANDQT 

HALF 

ARRAY 

300 

333  /W 

RADE 

RCNTRL 

HALF 

SIMPLE 

194 

RC 

RCNTRL 

HALF 

ARRAY 

2 1 1 

2 1 2 

RCO 

RCNTRL 

HALF 

SIMPLE 

169 

2 t 1 

RCNTRL 

HALF 

UNKNOWN 

169 

170 

1 BO 

181 

19  1 

192 

tj  sa 
o s 
o > 

r* 

.o  tJ 

c 5 

£ ® 

r*  P8 


285 

286 

287 

288 

289 

290 

291 

292 

293 

296 

333  /W 

333  /W 

334/W 

334/W 

335  /W 

335  /W 

336/W 

336 

333 /W 

334/W 

335  /W 

322/  R 
212 

330/ W 

17  1 

172 

173 

174 

175 

176 

177 

178 

179 

182 

183 

184 

185 

186 

187 

188 

189 

190 

193 

194 

195 

196 

197 

198 

199 

200 

201 

R DP ARM 


UNKNOWN 


RGAS 

RLAT 

RLATD 

ROCP 

ROCPDT 

ROCPP1 

RSDIST 

SDAY 

SEASON 

SGNP 

SH 

SHS 

SIG 

SIGE 

SIND 

SI  NL 

SINLON 

SMTH 

SN2FLG 

SOUS 

START 

T 

THSTD 

THSTD2 

TS 

TSTD 

U 

V 

VER 

WSAVE 

XLABEL 

XORDS 

XORDU 

XSA 

XUA 

PROCEDURE 

--NAME 


RCNTRU 

ROPARM 

RDPARM 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

QANDQT 

QANDQT 

RDPARM 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

QANDQT 

LCNTRL 

RCNTRL 

LOPARM 

QANDQT 

ROPARM 

RDPARM 

QANDQT 

RCNTRL 

QANDQT 

QANDQT 

CCNTRL 

RDPARM 

CCNTRL 

CORDER 

CORDER 

CORDER 

CORDER 


MAP 

TYPE 


HALF 


HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

LOGICAL 

half 

LOGICAL 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

CHAR  *8 

HALF 

CHAR*  8 

CHAR *8 

CHAR ►S 

CHAR +8 

CHAR  *8 


SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 


202 
230 
24  1 

252 

263 

195 

253 

254 

196 

255 

256 

197 

198 

199 

257 
282 
277 

264 

200 
201 

258 

259 
272 
1 18 
202 
226 
28  1 

260 
26! 
276 
203 

279 

280 
1 1 

262 

12 

266 

266 

268 

268 


CLASS 


REFERENCES 


SUBROUTINE 


325 


203 

231 

242 

253 

264 


295 

290 


285 

146 

229 

294 


289 

292 

293 

29 

30 
267 
267 
269 
269 


204 

232 

243 

254 

265 


205 

233 

244 

255 


206 

234 

245 

256 


207 

235 

246 

257 


208 

236 

247 

258 


209 

237 

248 

259 


210 

238 

249 

260 


239 

250 

261 


240 

251 

262 


322/R  330/W 

322/R  330  /Vi 


T- 


b 


RIOQ 


D = STMT  FN  DEF , A = A RGL I ST 


ORIGINAL 

OF  POOR  QUALITY 


, a 


00002 


SUBROUT I WE  LAPSE  (J.GAWI) 

C*'****»ut*****t*»i-»Mi  r * * * ♦ * * 

C PURPOSE 
C 
C 
C 

c 
c 
c 
c 
c 
c 

c* 
c* 
c * 
c 

CCOMDECK  VREAL 
C HALF/FULL  PRECISION 

C = = - = 2 = = ^ = . = = =rS;:s 

IMPLICIT  REAL  (A-H.O-Z) 

C 

CCOMDECK  VCNTRL 

C CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


► + * * * * : 

COMPUTE  LAPSE  RATE  FOR  HI GH -LA T I TUDE  MODIFIED  TEMPERATURE 
USAGE 

CALLED  FROM  AVRX 
DESCRIPTION  OF  PARAMETERS 

ti  - INDEX  FOR  LATITUDE  BAND 

GAM  *•  LAPSE  RATE 

SUBPROGRAMS  NEEDED 
RECORD  OF  MODIFICATIONS 
REMARKS: 

► ***■♦*►*  + .4*****,****.**,.  ***.******  ► * * ******  * * * * * 

M/A-COM  SIGMA  DATA  INC.  NASA 

| *♦*♦*♦*  + *..***.****,***  **********  *■«•***♦♦****♦♦  Mtttf  » ******** 


G 


00003 

COMMON  /CCNTRL / 

CCO 

00004 

COMMON  /CCNTRL/ 

ADATE 

00005 

COMMON  /CCNTRL/ 

ATIME 

00006 

COMMON  /CCNTRL/ 

JIC 

00007 

COMMON  /CCNTRL/ 

JOB 

00008 

COMMON  /CCNTRL/ 

CCSP06 

00009 

COMMON  /CCNTRL/ 

CCSP07 

000  JO 

COMMON  /CCNTRL/ 

CCSP08 

000  1 f 

COMMON  /CCNTRL/ 

VER 

00012 

COMMON  /CCNTRL/ 

XLABEL  (10) 

00013 

COMMON  /CCNTRL/ 

CQS  (30) 

000  14 

COMMON  /CCNTRL/ 

CQU  (10) 

000  15 

V 

EQUIVALENCE 

(CCOtCC(  1 > > 

00016 

CHARACTER* B 

CCO,  CC ( 200 

00017 

CHARACTER  +8 

ADATE 

000  IB 

CHARACTER ♦ 8 

ATIME 

00019 

CHARACTER'S 

die 

00020 

CHARACTER  *8 

JOB 

00021 

CHARACTER  *8 

CCS P 06 

00022 

CHARACTER+8 

CCSP07 

00023 

CHARACTER+8 

CCSP08 

00024 

CHARACTER  + B 

VER 

00025 

CHARACTER  * 8 

XLABEL 

00026 

CHARACTER*  8 

CQS 

00027 

C 

CHARACTERS 

CQU 

C 

C 


INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


“ - s s cs  z 


00028 

COMMON 

/ ICNTRL / 

ICO 

00029 

COMMON 

/ICNTRL / 

IM 

00030 

COMMON 

/ICNTRL/ 

IMD2 

0003  1 

COMMON 

/ICNTRL/ 

IMD2P 1 

00032 

COMMON 

/ICNTRL/ 

NDRSW 

00033 

COMMON 

/ICNTRL/ 

JM 

00034 

COMMON 

/ICNTRL/ 

JMD2 

00035 

COMMON 

/ICNTRL/ 

JMT2 

00036 

COMMON 

/ICNTRL/ 

JNP 

00037 

COMMON 

/ICNTRL/ 

d04 

00038 

COMMON 

/ICNTRL/ 

JOB 

00039 

COMMON 

/ICNTRL/ 

JSP 

00040 

COMMON 

/ICNTRL/ 

KLIALB 

00041 

COMMON 

/ICNTRL/ 

KLIGW 

00042 

COMMON 

/ICNTRL/ 

KLISST 

00043 

COMMON 

/ICNTRL/ 

KS 

00044 

COMMON 

/ICNTRL/ 

KU 

00045 

COMMON 

/ICNTRL/ 

L0G8R 

SVLOOO 10 
******* ♦SVL00020 
SVL00030 
FILTER  $VL00040 
SVL00050 
SVL00060 
SVL00070 
SVL  00080 
SVL00090 
SVLOO 100 
SVLOO  1 10 
$VLOO 1 20 
** *SVL00130 
S F C ♦'SVLOO  1 40 
* * *♦ ♦ ^♦♦SVLOO 150 
SVLOO 160 
SVLOO 170 
SVLOO 180 
SVLOO 190 
SVL00200 
SVL00210 
SVL00220 
SVL00230 
SVL00240 
SVL00250 
SVL00260 
SVL00270 
SVL00280 
SVL00290 
SVL00300 
SVL00310 
SVL  0 03  20 
SVL00330 
SVL00340 
SVL00350 
SVL00360 
SVL00370 
SVL00380 
SVL00390 
SVL00400 
SVL00410 
SVL00420 
SVL00430 
SVL00440 
SVL00450 
SVL00460 
SVL00470 
SVL00480 
SVL00490 
SVL00500 
SVL00510 
SVL00520 
SVL00530 
SVL00S40 
SVL  00550 
SVL00560 
SVL 005 70 
SVL00580 
SVLO059O 
SVL00600 
SVL006 1 0 
SVL  00620 
SVL00630 
SVL00640 
SVL00650 
SVL00660 
SVL00670 
SVL00680 
SVL00690 
SVL00700 
SVL00710 


o o 

-n  g 

-o  55 
02 
O 35 
SJ  P 


a 


ta 


00046 

COMMON 

/ ICNTRL / 

MATIN 

00047 

COMMON 

/ ICNTRL / 

MATSNX 

00048 

COMMON 

/ICNTRL/ 

MATSUN 

00049 

COMMON 

/ICNTRL/ 

MLF  (12) 

00050 

COMMON 

/ICNTRL/ 

MROD 

0005  1 

COMMON 

/ICNTRL/ 

NKRSH 

00052 

COMMON 

/ICNTRL/ 

MSM 

00053 

COMMON 

/ICNTRL/ 

NB 

00054 

COMMON 

/ICNTRL/ 

ND 

00055 

COMMON 

/ICNTRL/ 

NDALT 

00056 

COMMON 

/ICNTRL/ 

NDAY 

00057 

COMMON 

/ICNTRL/ 

NDOUT 

00058 

COMMON 

/ICNTRL/ 

NDPHY 

00059 

COMMON 

/ICNTRL/ 

NDSHF 

00060 

COMMON 

/ICNTRL/ 

NOT 

0006  1 

COMMON 

/ICNTRL/ 

NHMS 

00062 

COMMON 

/ICNTRL/ 

NHMSE 

00063 

COMMON 

/ICNTRL/ 

NHMSO 

00064 

COMMON 

/ICNTRL/ 

NLAY 

00065 

COMMON 

/ICNTRL/ 

NLAYM1 

00066 

COMMON 

/ICNTRL/ 

NLAYP  t 

00067 

COMMON 

/ICNTRL/ 

NSDAY 

00068 

COMMON 

/ICNTRL/ 

NSEQ 

00069 

COMMON 

/ICNTRL/ 

ICSP53 

00070 

COMMON 

/ICNTRL/ 

NSTEP 

00071 

COMMON 

/ICNTRL/ 

IBLKSIZ 

00072 

COMMON 

/ICNTRL/ 

NYMD 

00073 

COMMON 

/ICNTRL/ 

NYMDE 

00074 

COMMON 

/ICNTRL/ 

NYMDO 

00075 

COMMON 

/ICNTRL/ 

NZINIT 

00076 

COMMON 

/ICNTRL/ 

NMLEV 

00077 

COMMON 

/ ICNTRL / 

NDHOG 

00078 

COMMON 

/ICNTRL/ 

IQS  (30) 

00079 

0 

COMMON 

/ICNTRL/ 

IQU  (10) 

00080 

EQUIVALENCE 

f ITMIN 

, IQSC 

1 ) ) 

0008  1 

EQUIVALENCE 

(UMAX 

, I QS  ( 

2 ) ) 

00082 

EQUIVALENCE 

< IPREACC 

. IQS( 

3 ) ) 

00083 

EQUIVALENCE 

< IPRECON 

. IQS< 

4 ) ) 

00084 

EQUIVALENCE 

( IHFLUX 

, IQS( 

5)  ) 

00085 

EQUIVALENCE 

( I EPLUX 

, IOS( 

6)  ) 

00086 

equivalence 

( I FUSION 

, IQS( 

7)  ) 

00087 

EQUIVALENCE 

< IRADSWG 

, I QS  { 

8)  ) 

00088 

EQUIVALENCE 

< IRADLWG 

. IGS( 

9)  ) 

00089 

EQUIVALENCE 

( I I CLOUD 

, I QS { 10) ) 

00090 

EQUIVALENCE 

( I UF  LUX 

, I QS ( 1 1 > > 

0009  1 

Q 

EQUIVALENCE 

( I VF  LUX 

♦ IQSi 12)) 

00092 

EQUIVALENCE 

(IOMEGA 

, IQU< 

1 ) ) 

00093 

EQUIVALENCE 

( IDIABAT 

, IQU< 

2 ) ) 

00094 

EQUIVALENCE 

( IRADSW 

. IQU( 

3)  ) 

00095 

EQUIVALENCE 

( IRADLW 

, IQU( 

4 ) ) 

00096 

EQUIVALENCE 

( ISENSBL 

♦ IQU( 

5 ) ) 

00097 

Q 

EQUIVALENCE 

( I LATENT 

. IQU  ( 

> 

00098 

EQUIVALENCE 

< I CO , !C ( 1 ) ) 

00099 

INTEGER 

ICO,  IC ( 200 ) 

C LOGICAL  PflODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00  too 

COMMON 

/LCNTRL / 

LCO 

00  10  1 

COMMON 

/LCMTRL/ 

QALT 

00102 

COMMON 

/LCNTRL/ 

QBEG 

00103 

COMMON 

/LCNTRL/ 

QDAY 

00104 

COMMON 

/LCNTRL/ 

QEND 

00  105 

COMMON 

/LCNTRL/ 

QOUT 

00106 

COMMON 

/LCNTRL/ 

QPHY 

00  107 

COMMON 

/LCNTRL/ 

QSHF 

00  108 

COMMON 

/LCNTRL/ 

SN2FLG 

00  109 

COMMON 

/LCNTRL/ 

QRSV/ 

00110 

COMMON 

/LCNTRL/ 

QRSH 

SVL00720 
SVL00730 
SVL00740 
SVLOO750 
SVL00760 
$VLO0770 
SVLO0780 
SVL00790 
SVLOOSOO 
SVL00810 
SVL00820 
$VL  00830 

$VL0084o 

SVLOOdSO 
SVL00860 
SVL00870 
SVL00880 
SVL00890 
SV  L 00  900 
SVL0091O 
SVL00920 
SVL00930 
SVL00940 
SVL00950 
$VL  00960 
SVL00970 
SVL00980 
SVL00990 
SVLOIOOO 
$VL0 1 0 1 0 
SVLO  1020 
SVLO  t 030 
SVLO 1040 
SVLO 1050 
SVLO 1060 
SVLO 1070 
SVL01080 
SVLO 1090 
SVLO  t 100 
SVLOt 1 10 
SVLO 1 120 
SVLO 1 130 
SVLO  J 140 
SVLO I ISO 
SVLO 1 160 
SVLO 1 170 
SVLO 1 180 
SVLO 1 190 
SVLO 1 200 
SVLO 12 10 
SVLO 1220 
SVLO 1230 
SVLO 1240 
SVLO 1250 
SVLO 1260 
SVLO 1270 
SVLO 1280 
SVLO 1290 
SVLO 1 300 
SVLO 13 10 
SVLO 1 320 
SVLO 1 330 
SVL01340 
SVLO 1350 
SVLO 1360 
SVLO 1 370 
SVLO 1 380 
SVLO 1390 
SVLO 1 400 
SVL014  10 
SVLO 1420 


00111 
00  112 

00113 

00114 
001  15 
00  116 
00117 
001  18 
00119 
00  120 
00121 
00  122 

00123 

00124 

00125 

00126 

00127 

00128 
00129 
00  130 

00131 

00132 

00133 

00134 

00135 
00  136 

00137 

00138 

00139 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 

00153 

00154 

00155 

00156 

00157 

00158 

00159 
00  160 

00  161 
00162 


00163 

00164 

00165 

00166 

00167 

00168 
00  1 69 
00  170 

00171 

00172 


C 


C 


C 


c 


COMMON  /LCNTRL/  LQS (30) 
COMMON  /LCNTRL/  LQU(10> 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(LTMIN 

t LQS< 

1 > ) 

(LTMAX 

*lqs< 

2)  > 

(LPREACC 

« LQS  ( 

3)  ) 

< LPRECGN 

« LOS  ( 

4)  ) 

(LHFLUX 

, LQS ( 

5 ) ) 

(LEFLUX 

» LQS{ 

6)  ) 

(LFUSION 

.LQS( 

7)  > 

( LRAD5WG 

» LQS  ( 

8)  ) 

t LRAOLWG 

,lqs< 

9)  ) 

(LICLOUD 

,LQS{ 10) ) 

( LUFLUX 

♦ LQS<  ID) 

< LVFLUX 

» LQS  ( 

12)  ) 

(LQMEGA 

, LQU  ( 

1 ) ) 

(LDIABAT 

• LQU  ( 

2)  ) 

(LRADSW 

• LQU  ( 

3)  > 

(LRADLW 

» LQU  ( 

4)  ) 

(LSENSBL 

, LQU  ( 

5)  ) 

(LLATENT 

, LQU  ( 

6)  ) 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


QALT 

QBEG 

QDAV 

QEND 

QOUT 

QPHY 

QSHF 

SN2FLG 

QRSW 

QRSH 


LOGICAL 

LQS 

LOGICAL 

LQU 

LOGICAL 

LTMIN 

LOGICAL 

LTMAX 

LOGICAL 

LPREACC 

LOGICAL 

LPRECON 

LOGICAL 

LHFLUX 

LOGICAL 

LEFLUX 

LOGICAL 

L FUSION 

LOGICAL 

LRADSWG 

LOGICAL 

LRADLWG 

LOGICAL 

LICLOUD 

LOGICAL 

LUFLUX 

LOGICAL 

LVFLUX 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


LOMEGA 

LDIABAT 

LRADSW 

LRADLW 

LSENSBL 

LLATENT 


EQUIVALENCE  (LCO.LCt 1 > ) 

LOGICAL  LCO . LC1200) 

MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON  /RCNTRL/  RCO 
COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSD 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYSPY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  DECMAX 
COMMON  /RCNTRL/  DIST 
COMMON  /RCNTRL/  DLAT 


SVLO 1430 
$VLO  1440 
SVLO 1 450 
SVLO 1460 
SVLO 1470 
SVLO 1480 
SVLO 1490 
SVLO 1500 
SVLO 1510 
SVL01520 
SVLO 1 530 
SVLO 1540 
SVLO 1 550 
SVLO 1 560 
SVLO 1570 
SVLO 1 580 
SVLO 1590 
SVLO 1 600 
SVL01610 
SVLO  *62'' 
SVLO 

SVLOlZ  ;o 
SVLO 1650 
SVLO 1 660 
SVLO 1 670 
SVLO 1680 
SVLO 1690 
SVLO 1700 
SVLO 17 10 
SVLO 1720 
SVLO 1730 
SVLO 1740 
SVLO 1750 
SVLO 1760 
SVLO 1770 
SVLO 1780 
SVLO 1790 
SVLO 1800 
SVLO 1810 
SVLO 1520 
SVLO 1830 
SVLO 18*0 
SVLO 1850 
SVLO 1 860 
SVLO 1870 
SVLO 1880 
SVLO 1890 
SVLO 1 900 
SVLO 1910 
SVL01920 
SVLO 1 930 
SVLO 1940 
SVLO 1 950 
SVLO 1960 
SVLO 1970 
SVLO 1 980 
SVLO 1990 
SVL02000 
SVL02010 
SVL02020 
SVL02030 
SVL02040 
SVLO 2050 
SVL02060 
SVL02070 
$VL 02080 
SVL02090 
SVLO 2 1 00 
SVL021 10 
SVL02120 
SVL02I30 


CD 

S3 


U> 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


, i 


00173 

00174 

00175 
0017d 

00177 

00178 

00179 

00180 
00181 
00182 
00  183 

00184 

00185 
00  186 

00187 

00188 

00189 

00190 
00  191 

00192 

00193 

00194 

00195 

00196 

00197 

00198 

00199 

00200 
00201 
00202 

00203 

00204 

00205 

00206 


COMMON  /RCNTRL / DLON 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNU  1 
COMMON  /RCNTRL/  GNU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  OMEGA 2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PIMEAN 
COMMON  /RCNTRL/  PSMAX 
COMMON  /RCNTRL/  PSMIN 
COMMON  /RCNTRL/  PTOP 
COMMON  /RCNTRL/  RADE 
COMMON  /RCNTRL/  RGAS 
COMMON  /RCNTRL/  ROCP 
COMMON  /RCNTRL/  RSDIST 
COMMON  /RCNTRL/  SDA Y 
COMMON  /RCNTRL/  SEASON 
COMMON  /RCNTRL/  SIGG  <251 
COMMON  /RCNTRL/  SIND 
COMMON  /RCNTRL/  SOLS 
COMMON  /RCNTRL/  TSTD 
COMMON  /RCNTRL/  PLEVS  (25) 
COMMON  /RCNTRL/  HEATW 
COMMON  /RCNTRL/  HE AT  I 
COMMON  /RCNTRL/  EPS 
COMMON  /RCNTRL/  EPSFAC 
COMMON  /RCNTRL/  CALTOd 
COMMON  /RCNTRL/  PZERO 
C 

EQUIVALENCE  (RCO.RCt 1 ) ) 

CHANGE  TO  HALF  DELETE  1 

REAL  RCO , RC  < 200 ) 

CHANGE  TO  HALF  COMMENT  1 
C HALF  PRECISION  RCO , RC(400> 

C 

C INTEGER  MODEL  CONSTANTS 


C 


00207 

COMMON 

/ IDPARM/ 

I JUMP 

(46) 

00208 

COMMON 

/ I DPARM/ 

IDSP02 

00209 

COMMON 

/IDPARM/ 

INDEX 

(72) 

00210 

COMMON 

/IDPARM/ 

IROD 

0021  1 

COMMON 

/IDPARM/ 

JC 

(46) 

00212 

COMMON 

/IDPARM/ 

JE 

(2) 

00213 

COMMON 

/IDPARM/ 

JP 

(2,2) 

00214 

COMMON 

/IDPARM/ 

KSTEP 

00215 

COMMON 

/IDPARM/ 
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282 


283 


tr* 

& 

co 

P3 


VO 


’A 


RL  AT 

RLATD 

ROCP 

ROCPDT 

ROCP  P t 

RSDIST 

SDAY 

SEASON 

SGMP 

SH 

SHS 

SIG 

SIGE 

SIND 

S I ML 

SINLON 


QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

1 10 

1 40 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

1 09 

1 39 

QSDI AG 

OANDQT 

REAL 

ARRAY 

287 

289 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

107 

137 

OUDI AG 

QANDQT 

REAL 

ARRAY 

290 

RADE 

RCNTRL 

REAL 

SIMPLE 

188 

RC 

RCNTRL 

REAL 

ARRAY 

205 

206 

RCO 

RCNTRL 

REAL 

SIMPLE 

163 

205 

206 

RCNTRL 

REAL 

UN75QOWN 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

1 85 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

20  1 

202 

203 

204 

RDPARM 

REAL 

UNKNOWN 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

24  1 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

RGAS 

RCNTRL 

REAL 

SIMPLE 

189 

307 

RHOS 

DLAPSE 

REAL 

ARRAY 

29  1 

307/S 

308 

RDPARM 
RDP ARM 
RCNTRL 
RDPARM 
RDPARM 
RCNTRL 
RCNTRL 
RCNTRL 
RDPARM 
QANDQT 
QANDQT 
RDPARM 
RCNTRL 
RCNTRL 
RDPARM 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 


247 

248 
190 

249 

250 
19  1 

192 

193 

251 
272 
267 
258 

194 

195 

252 


285 

280 


o o 


SS 


l 

5MTH 

QANDQT 

REAL 

ARRAY 

262 

275 

,Y 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

1 08 

138 

y 

SOLS 

RCNTRL 

REAL 

SIMPLE 

196 

fc  i START 

LDP ARM 

LOGICAL 

SIMPLE 

220 

223 

l T 

QANDQT 

REAL 

ARRAY 

27  1 

284 

297 

. THSTD 

RDPARM 

REAL 

SIMPLE 

254 

' THSTD2 

RDPARM 

REAL 

SIMPLE 

255 

TL 

DLAPSE 

REAL 

ARRAY 

292 

297/S 

30  1 

301  303 

TLE 

DLAPSE 

REAL 

ARRAY 

293 

301  /S 

303/S 

303  304 /S 

TS 

QANDQT 

REAL 

ARRAY 

266 

279 

304 

307 

TSTD 

RCNTRL 

REAL 

SIMPLE 

197 

i 

U 

QANDQT 

REAL 

ARRAY 

269 

282 

V 

QANDQT 

REAL 

ARRAY 

270 

283 

' 

VER 

CCNTRL 

CHAR ♦ 8 

SIMPLE 

1 1 

24 

WSAVE 

RDPARM 

REAL 

ARRAY 

256 

} 

HLABEL 

CCNTRL 

CHAR  *8 

ARRAY 

1 2 

25 

PROCEDURE 

MAP 

- -NAME 

TYPE 

CLASS 

— 

-REFERENCES 

D=STMT 

FN  DEF . 

A = ARGL I ST 

Q8SSUM 

REAL 

INTRINSIC 

309 

o 

S3 


r- 


*o 

> 

r* 


300 


2 

£) 

P5 


308 


— I-...!" 


m 


LAPSE  10 


OOOOI 


00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 
00011 
00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 
00026 
00027 
000  28 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 


00041 

00042 

00043 

00044 

00045 

00046 

00047 


C 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SSSE < 72  , 10) 
HHE  < 72  , 10 ) 

CVQ (72,9) 


SWI1_  (72.9) 


SUBROUTINE  L INKHOf  LLAY . NF LW . I DAY , LA TO . dNP  , I QB ) 

► * * 

RADIATION  AND  SOURCE  TERM  FIELDS 

COMMON  /RADCOM/  AS(7Z,9>,  RE(72,10) 

COMMON  /RADCOM/  PL (72, 9),  PLE(72t10) 

COMMON  /RADCOM/  PLK(72t9>,  PLKE(IO) 

COMMON  /RADCOM/  TL(72,9>,  TLE(72,I0) 

COMMON  /RADCOM/  TG(72)  ,TH(72.9> 

COMMON  /RADCOM/  SHL(72,9)t  SHLE(72,10) 

COMMON  /RADCOM/  SHG(72),  CL0UD(72,12) 

COMMON  /RADCOM/  SHSAT(72,9>,  GAM(72r9) 

COMMON  /RADCOM/  RH(72,9) 

COMMON  /RADCOM/  SSS<72,9> 

COMMON  /RADCOM/  HH<72.9), 

COMMON  /RADCOM/  HHS<72,9> 

COMMON  /RADCOM/  CVT<72,9) 

COMMON  /RADCOM/  CXDE(9) 

COMMON  /RADCOM/  SWALE(72,10) 

COMMON  /RADCOM/  AL<72,10) 

COMMON  /RADCOM/  TAUL (72,10),  OZALE (72,10) 

COMMON  /RADCOM/  T0PABS<72> 

COMMON  /RADCOM/  RN(9),  TN<9>,  SRS{9),  STN(9> 

COMMON  /RADCOM/  TCONDO),  TPENE  { 9 ) 

COMMON  /RADCOM/  TLOWL.TMIDL.  NLAYOZ 
COMMON  /RADCOM/  FK(5),  XK(5),  NFK 
COMMON  /RADCOM/  OLJANM9),  0LAPR(19) 

COMMON  /RADCOM/  OCM22(23),  OCM30(23) 

COMMON  /RADCOM/  PROCM(23),  QCMX X < 23 ) , 

COMMON  /RADCOM/  CZH(72>,  WET<72),  EVAP , PREP (72),  Wl(72> 

COMMON  /RADCOM/  COSZ(72),  SO,  RADTRM 1 72 ) , CXL 
COMMON  /RADCOM/  SG(72).  SP(72) 

COMMON  /RADCOM/  RSURF(72),  RCLOUD(72>,  J ALB 
COMMON  /RADCOM/  LAND ( 72 ) . 0CEAN(72),  ICE(72) 

COMMON  /RADCOM/  SNOW (72).  MIXWM72),  FROST  (72) 

LOGICAL  LAND,  OCEAN , ICE,  SNOW,  MIXWI,  FROST 

DIMENSION  T03 ( 19,19), TI 1(19), TI2(19) 

COMMON  /V/UDATA/  T01  ( 1 9 f 5 ) , T02  ( 1 9 , 5 ) , TR03  ( 1 9 , 1 9 , 5 ) 

COMMON  /WUDATA/  CTI NF ( 1 9 , 2 > , CTRANS ( 1 9 , 1 9 . 2 > , CTI N < I 9 , 2 ) 
DIMENSION  DP { 19) 

DIMENSION  G(2) ,C( 10) . 

1APRI (5) , BPRI (5) , X ( 10 ) , CNUCUB ( 10) ,DELNU( to) 

DIMENSION  SG( 10),  CM (19), BB 1(10). SS 1(10), WTR I NF ( 1 9 , 1 0 > , 

1TINF( 19, 10) * I UP (9) 

DIMENSION  CAPPS  I (37, 10)  .CONK  37)  .SMO.IOJ, 

1 TRAD (21  ) ,R( 19,  19 , 1 1 ) , P(37)  , PHI  ( 37 ) ,W(37 ) , VAR(  19 ) , 


OLJUL ( 19 ) . OLOCT ( 19 ) 
OCM38 ( 23 ) t 0CM46423) 
NOZ,  TOTOZ ( 4 ) , CDATE  < 6 ) 


K 37) ,0(37) 


BB( 21 , 1 1 > ,SS<  21 « 1 1)  , CAP (37 ,10), 

DATA 

s K,  Kd,  PH, 

S L,  KK,  PM, 

$ M,  LA,  Q 1 , 

S N,  LLt  Q2 , 

S AG,  L2,  TS. 

S AV,  L3.  TT, 

S CG,  NF . TI  , 

$ II  i NK,  T2. 

S Id,  NN,  XX. 

S dd,  PD,  YY, 

S /9232*ZOOOOOOOO/ 

DATA  APRI 
DATA  BPRI 

DATA  G /i 

DATA  C / 1 1 00 . , 2 1 7 . 03 1 9 , 18 . 463 18 , 1 . 49369 , . 086965 . 

1 .014317,1 .8675,51 .31344,350.0512,26.79471/ 

DATA  * /20 1 . 4 18 , 474 „ 77 1 , 633 . 028 . 834 . 446 . 1050 . 25 , 

1 1 438 ► 7 , 1834 .34,2014.18,2301.92. 2733 .53/ 

DATA  CNUCUB  / 1 02 . 658 , 1 344 . 47 , 3 1 86 . 9 , 7299 . 53 . 

1 14553.9,37412.  ,77542.0, 10  2658.  , 153  240.  ,256609./ 

DATA  DELNU  / 280 . , 1 00 . , 1 20 . , 1 60 . , 1 40 . , 400 . , 1 50 . , 


2 

2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 
19 


AVI  , 

NLE  , 

ttt. 

SURF  L , 

BB, 

PLE 

CMI  , 

PDG . 

CAP  1 , 

SURFU, 

BG. 

S51 

DPI  , 

PDF. 

CAP2 . 

TERM1 . 

CM, 

TI  1 

DP2 , 

pdq. 

CMI  1 . 

TERM2, 

DP. 

T I 2 

III, 

PDT , 

NLEV, 

IRAQI  . 

PL. 

TO  1 

Jdd. 

SSB, 

PHI  I , 

IdTEST, 

SS. 

T02 

JM 1 . 

SSD  , 

TERM, 

P , 

BB  1 . 

T03 

KKK  , 

SUM. 

CONTI , 

Q , 

CAP  , 

VAR 

LAY. 

TRB  , 

CONT2 , 

s, 

IUP  , 

CONT 

NFL, 

TRD  , 

LLLAY , 

T, 

PHI  , 

CTIN 

/o. , 

/O  . , 
15.21 

.76/ 

-38. 

9.08, 15. 
1 , "54. 1 . 

, 1 , 13.469,21  . : 
,-120. , -74 . 94. 

TINF 

TRAD 

TR03 

CTINF 


VLINKHO 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM  20 
VRADCOM  21 
VRADCOM  22 
VRADCOM  23 
VRADCOM  24 
VRADCOM  25 
VRADCOM  26 
VRADCOM  27 
VRADCOM  28 
VRADCOM  29 
VRADCOM  30 
VRADCOM  31 
VRADCOM  32 
VRADCOM  33 
VRADCOM  34 
VRADCOM  35 
VRADCOM  36 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
VLINKHO 
.VLINKHO 
.VLINKHO 
, VLINKHO 
, VLINKHO 
.VLINKHO 
.VLINKHO 
.VLINKHO  23 
, VLINKHO  24 
VLINKHO  25 
VLINKHO  26 
VLINKHO  27 
VLINKHO  28 
VLINKHO  29 
VLINKHO  30 
VLINKHO  31 
VLINKHO  32 
VLINKHO  33 
VLINKHO  34 
VLINKHO  35 
VLINKHO  36 
VLINKHO  37 
VLINKHO  38 


4 

5 

6 
7 
a 

9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 


r 


o o 

TI  g 

*0  0 

O 3* 

70  p 

iO  TI 

c 5 

r*  rfl 


m 


LINKHO  1 


00048 

00049 


00050 
0005  t 
00U52 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
00081 
00082 

00083 

00084 

00085 

00086 

00087 

00088 
00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 
0010  1 
00102 

00  103 

00104 

00105 

00106 
00107 
00  108 
00109 
00110 
00111 
00112 

001  13 
00114 


1 100.  ,300.  , 300 . / 

0AT4  KURT/O/1 *P2’XY’NFF/1 ‘013EQ* »*B3, 5.E3,5. 89527, 10/ 
CALL  ERRSETI207 , 256, - 1 , 1 , 0,209) 


LAY=LLAY- 1 
NF  = 5 

NFLW=NFF 
NFL=NFLWM 
LA-LAY- 1 
LLLAY  = LLAYM 
NLEV=LLAY*4-M 
NLE=NLEV-2 
L2=LLAY*2+1 
LL=L2+1 
L3  = LL+ 1 
K = 0 

DO  2555  1=1, LLAY 

IF ( SHL ( IBB, I > .EQ.  0.)  SHL ( I BB , I > = 1 . E-8 
PLfXBB'I>cPMXBB(nM.63 

PLE( IBB, I >=PLE( IBB. I ) * 1 . E3 
I F < CLOUD  1 I BB , I ) .GT.  O.)  K=I 
2555  I UP ( I ) =K 

I F ( SHG ( IBB ) EQ.  0.)  SHG< IBB ) = 1 , E-8 

PLE 1 IBB , LLLAY ) =PLE  < I9B , LLLAY) * 1 .63 

DP  1 =P2 -P 1 

DP2-PLE { IBB , 1 )-P2 

CALL  ZEI TBEG (8HSTRATPrf  ) 

CALL  STRATM<  T 1 , T2, I DAY , LATD I 

CALL  ZEI TEND 

DO  2324  d=1 , LLAY 

dd=2*d 

Id=4*J 

DP { dd- 1 ) = - ( RLE  < 1 BB , d ) -PL ( IBS , J ) ) /2 
DP( Jd)=-(PL< I SB , d ) -PLE { IBB  r d+ 1 ) >/2. 

P(Id~3)=PLG< IBB.d) 

Pf Id-2) =PLE{ IBB, J)+DP(dd- 1 ) 

P( Id-1 )=PL< IBB, d) 

P< Id)  =PL { I BB , d ) +DP { Jd ) 

PHI { Id- t ) =P ( Id- 1 > /GRNDP 
PHI  1 Id-2) =P( Id-2) /GRNDP 
PHI ( Id-3) = P< Id -3 ) /GRNDP 
PHKIJ  ) = PUJ  ) /GRNDP 
2324  CONTINUE 

P (NLEV) = PLE  ( IBB , LLLAY ) 

PHI f NLEV  ) = P (NLEV ) /GRNDP 
IF (KURT  .EQ.  1 ) GO  TO  9000 
DO  20  N= 1 , 2 
DO  20  1=3,21 

10  FORMAT? i 3F6  5}«F‘*-a.*".OTIM(I-a.M».CCTRAWa(J.2.l 

20  CONTINUE 
DO  80  N=1 , 2 
DO  SO  1 = 1 ,L2 
DO  80  J= 1 , I 

80  CTRANS ( I , d , N ) =CTRANS ( J, I ,N) 

DO  6 N=1 ,5 

REAO (55,9) (TOI { I ,N) , 1= 1 . L2) 

READ (55,9) (T02( 1 ,N) , 1=1 ,L2  J 
DO  7 1 = 1 ,L2 

7 READ ( 55 , 9 ) ( TR03{ I ,J.N) ,d=1 ,L2) 

9 FORMAT  < 10F8.5  > 

6 CONTINUE 
9000  KURT  = 1 

CALL  ZEITBEGf 8H03INT  ) 

CALL  03 1 NT ( T0 1 ,T02.TR03.TI 1 , T I 2 , T03 . dALB ) 

CALL  ZEI TEND  * 

CONTI = EXP{ 1 745 ./T1-XY) 

CONT2  = EXP ( 1745./T2-XY) 

TS=TLE( IBB, LLLAY) 


-2 ,N)  . J = 3 , I I 


VLINKHO  39 
VLINKHO  40 
VLINKHO  41 
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VLINKHO  43 
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VLINKHO  63 
VLINKHO  64 
VLINKHO  65 
VLINKHO  66 
VLINKHO  67 
VLINKHO  S3 
VLINKHO  69 
VLINKHO  70 
VLINKHO  71 
VLINKHO  72 
VLINKHO  73 
VLINKHO  74 
VLINKHO  75 
VLINKHO  76 
VLINKHO  77 
VLINKHO  78 
VLINKHO  79 
VLINKHO  80 
VLINKHO  81 
VLINKHO  82 
VLINKHO  83 
VLINKHO  84 
VLINKHO  85 
VLINKHO  86 
VLINKHO  87 
VLINKHO  SB 
VLINKHO  89 
VLINKHO  90 
VLINKHO  91 
VLINKHO  92 
VLINKHO  93 
VLINKHO  94 
VLINKHO  95 
VLINKHO  96 
VLINKHO  97 
VLINKHO  98 
VLINKHO  99 
VLINKHOIOO 
VLINKH0101 
VLINKH0102 
VLINKHO 103 
VLINKMO104 
VLINKHO 105 
VLINKHO 106 
VLINKHO 107 
VLJNKHO108 
VL I NKHOI 09 
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00  115 

DO  5354  1=1,3 

VLINKHOI 10 

0011G 

Tt 1 ) =TL  < IBB . 1 1 

VLINKHOI 1 1 

00117 

5354 

CONTINUE 

VLINKHOI 12 

00  118 

DO  11  1=1, LAY 

VLINKHOI 13 

00  119 

I F ( SHL ( I BB , 1+1 ) ,LE. 1 . E -8 . OR . SHL < IBB , I ) , LE . 1 . E -8 > GO  TO  7777 

VLINKHOI 14 

00120 

PDO - SHL ( I BB , I > / SHL  < I BB .1*1) 

VLINKHOI 15 

00121 

GO  TO  7778 

VLINKHOI 16 

00122 

7777 

PDQ  = 1 . 

VLINKHOI 17 

00  123 

7778 

CONTINUE 

VLINKHOI 18 

00124 

PDT  = TLUBB,  I*  1 ) -TL< I8B.  11 

VLINKHOI 19 

00125 

PDP=ALOG(PL<  IBB,  I)  /PLUBB,  I*  U ) 

VLINKH0120 

00126 

PD=PDT/PDP 

VLINKH0121 

00127 

L=  1 2-1 ) ♦ < LA - 1 > 

VLINKH0122 

001  28 

I F ( L . LE  , 0 > GO  TO  12 

VLINKHOI 23 

00  129 

M-2 

VLINKHOI 24 

00130 

IF  (I  .EO.  1>  M=3 

VLINKHOI 25 

00131 

DO  13  K=1.M 

VLINKH0126 

00132 

IF  (I  .EO.  1 ) GO  TO  14 

VLINKH0127 

00133 

dJ*NlE*K 

VLINKH0128 

00134 

PDG= ALOG  (P(dJ)/P(NLEV)  J 

VLINKH0129 

00135 

AV  = ALOG (P(NLE)/P(  NLE  V ) > 

VLINKHOI 30 

00136 

T ( JJ ) =TS- < TS-TL  t I BB , LLAY ) J *PDG/AV 

VL I NKHO 131 

00137 

PDG=PDG/AV 

VLINKH0132 

00138 

I F ( SHG ( IBB ) . LE . 1 . E-8 ) GO  TO  1256 

VL INKH01 33 

00139 

Q( JJ) =SHG( IBB) * < SHL ( IBB, LLAY) /SHG ( IBB)  ) **PDG 

VL I NKHO 1 34 

00140 

GO  TO  15 

VlINKHOI 35 

00141 

14 

J J=4-K 

VL 1 NKHO 1 36 

00142 

PDG=ALOG<  P 1 JJ ) /PL { IBB , 1 + 1 > ) /PD P 

VLINKH0137 

00143 

I F < SHL ( IBB , I > .LE . 1 . E-8)G0  TO  1256 

VL I NKHO 1 38 

00144 

Q< JJ ) =SHL ( IBB , 1*1 ) *PDQ~PDG 

VLINKHOI 39 

00  1 45 

IF ( SHL ( IBB ,1*1)  .LE.  1 . E-8 ) 0 * JJ ) =SHL  1 IBB, I > 

VL I NKHO 1 40 

00146 

15 

CONTINUE 

VL I NKHO 141 

00147 

TT- ( T ( JJ) -260.  ) * 1 . E-3 

VLINKHOI 42 

00  148 

TTT  = TT * TT 

VLI NKHO 1 43 

00149 

CONT ( JJ ) =EXP 1 1745 . /T(  Jd  > -XV  > 

VLINKHOI 44 

00160 

IF(Qfdd)  .LE.  .00001)  GO  TO  1256 

VLI NKHO 145 

0015  1 

CONT ( dd ) -CONT( dd ) *0  < JJ ) *PH I * dd ) *Q( dd) 

VLINKH0146 

00152 

GO  TO  1257 

VL I NKHO 1 47 

00153 

1256 

CONTINUE 

VLINKH0148 

00154 

CONT 1 JJ ) =0  . 

VLINKH0149 

00155 

Q( Jd ) =0. 

VL I NKHO 150 

00  156 

DO  1333  N= 1 , NFLW 

VL I NKH01 5 1 

00157 

1333 

CAP (dd ,N) =0 . 

VLINKH0152 

00158 

GO  TO  18 

VLINKH01S3 

00159 

1257 

CONTINUE 

VLINKH0154 

00160 

DO  19  N= 1 , NFLW 

VLI NKHO 1 55 

00161 

CAPPSI ( JJ , N )-1. 

VLINKHOI 56 

00  162 

1 F { N .GT,  NF)  GO  TO  5859 

VLI NKHO 157 

00  163 

CAPPSI (Jd ,N) =EXP( APR! IN) *TT*BPRI ( N ) * TTT > 

VLI NKHO 1 58 

00  164 

5859 

CONTINUE 

VL I NKHO 1 59 

00165 

CAP  ( dd  .N>  =Q  ( dd  > -'CAPPSI  ( JJ  ,N>  * PHI  ( Jd  ) 

VLI NKHO 160 

00166 

19 

CONTINUE 

VL  * NKHO 161 

00167 

18 

CONTINUE 

VLI NKHO 162 

00168 

13 

CONTINUE 

VLI NKHO 1 63 

00169 

12 

K J = 4 *1  - 1 

VLI NKHO 1 64 

00170 

DO  11  K = 1 , 4 

VL I NKHO 1 65 

00  17  1 

JJ=K J*K 

VLI NKHO 1 66 

00172 

PDG  = ALOG<  P < dd ) /PL ( IBB . I *1)1 

VL I NKHO 167 

00173 

T( Jd) -TL( IBB ,1*1) -PDG*PD 

VL I NKHO 1 68 

00174 

I F ( SHL < IBB . I ) . LE . 1 . E-8 . AND.  SHL  < I BB ,1*1)  .LE.  1.E-8)  GO  TO  4300 

VLI NKHO 1 69 

00175 

IF < SHL( IBB . I ) . LE  . 1 . E-B . AND.  K .EO.  1)  GO  TO  4300 

VLI NKHO 170 

00  176 

IF  (SHL ( IBB r I * 1 ) . LE.  1 . E-8 . AND . K .GT.  2)  GO  TO  4300 

VL INKH017 1 

00  1 77 

IF < SHL( IBS . I + U . LE  . 1 . E-8 . AND . K .LE.  2)  GO  TO  4302 

VLI NKHO 172 

00178 

PDG=PDG/PDP 

VL I NKHO 173 

00  1 79 

Q * d J ) =SHL( IBB, 1 + 1 ) * PDO  * * PDG 

VL I NKHO 1 74 

00180 

GO  TO  4301 

VL INKH01 75 

00181 

4302 

Qf JJ) =Q( JJ-1 1 

VL INKH0176 

00182 

4301 

CONTINUE 

VLINKHOI 77 

00183 

TT-f T< JJ) -260. > *1  . E-3 

VLINKH017Q 

00  184 

TTT  = TT  * TT 

VLI NKHO 1 79 

00185 

CONT < dd ) - E XP ( 1745 . /T ( JJ ) - X Y ) 

VL I NKHO 1 80 

*0 

S 


i 


LINKHO  3 


it 


00  186 
00  187 
00188 
00  189 
00  190 
00  191 
00  192 
00  193 

00194 

00195 
00  196 

00197 

00198 

00199 

00200 
0020  1 
00202 

00203 

00204 

00205 

00206 

00207 

00208 

00209 

00210 
0021  1 
00212 

00213 

00214 

00215 

00216 
00217 
002  18 

00219 

00220 
00221 
00222 

00223 

00224 

00225 

00226 

00227 

00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 

0024  1 

00242 

00243 

00244 

00245 

00246 

00247 

00248 

00249 

00250 

0025  1 

00252 

00253 

00254 


CONT (dd  > = CONT < dd) *0  < dd) *PH1  I dd 1 *0( dd  > 

DO  21  Ns  1 , NFLW 
CAPPS I < JJ , N )s1. 

I F < N .GT.  NF  > GO  TO  5858 

CAPPSI (dd .N)=EXP(APRI  < N > * TT  -*  BPR  I <N) -TTT) 

5858  CONTINUE 

CAP(dJ.N)=9(dd)  •’CAPPSI  (dd.N)  "PHI  < Jd  1 
21  CONTINUE 
GO  TO  11 
4300  0 ( dd  > =0 . 

CONT ( Jd>=0. 

DO  2333  N« 1 .NFLW 
2333  C AP ( dd , N ) = 0 . 

11  CONTINUE 
TRAO 1 s T 1 
TRAO  < 1 > sT2 
TRAD  < 2 ) = T ( 1 ) 

DO  30  I=3,NLEVt2 
K« ( 1 * 1 1 /2*  1 
30  TRAD  < K ) = T I I ) 

TRAD  1 L3 1 =TS*2 . -TL < IBB .L LAY) 

DO  1000  N= 1 , NFLW 
DO  1100  1=1 tL3 
XX  = X IN ) /TRAD  ( 1 > 

YY=EXP<  XX>-1 . 

BB(  I , N ) =CNUCUB  < N) / YY 

SS  f I t N ) =BB { I , N ) * X X M YY * 1 . } / f VY'TRAD ( I ) ) 

1 100  CONTINUE 

BG(N) =CNUCUB(N>/ (EXP(X<N> /TG< IBB  > 1 - 1 . ) 

X X = X f N ) /TRAD  1 
YY=EXP ( ) - 1 . 

BB1 ( N > =CNUCUB  f N ) / YY 

SSHN)sB0KN|*XXMYYM  . ) / ( V Y "TRAD  1 > 

1000  CONTINUE 
CMf  f > =0 
DO  tOS  J=2.L2 
L = d/2 
Jd  = 2 •’d-  I 

CM< J>  =CM<  d- 1 ) * ( CONT ( d J 1 4 4 . -CONTI dd- 1 M CONT I dd-2)  > *DP( d- t > 

1 / 3 . / 9B0 . 

108  CONTINUE 
01=0(1) 

Q2=Q( 1 ) 

DO  301  N= 1 .NFLW 
DO  301  1=1 ,L2 
DO  301  J= 1 f I 
R ( I . d , N > = 1 . 

301  R<  J f I (N) « 1 . 

DO  100  N= 1 .NFLW 
NN=N-4 
NK=N-3 
CG=0. 

IF  < N .EO.  5 .OR.  N .EO.  6)  CG=G( NN ) 

VAR ( 1 ) =0.0 

DO  200  d=2 , L2 
L = d / 2 
JJ  = 2 *d- 1 

VARfJ)  = VAR  ( d-  1 ) + (CAPfdd  . N)  *4.  * CAP  < Jd-  1 , N)  ♦CAP  ( dd-2  , N ) > ♦ 

IDP(J-t)  / 2940 . 

JM  T = J- 1 

DO  300  I -2 , dMI 

MslU/2)*2"n*1(I/2)*2"IIM(d/2)-2-J)*Hd/2)*2-d) 

IFf  M .EQ.  0)  GO  TO  300 
PM=VAR(d>  -VAR ( I > 

A V= tCM(d) -CM( I ) ) 

PD=CG  * AV  + SOR T ( C ( N > * PM ) 

I F < PD  .GT.  9.)  GO  TO  2896 

R ( I ,J,N) sEXPC-PD) 

IF ( N . LT . 4 .OR.  N .GT.  6)  GO  TO  25 

I F ( N . EQ . 6 > GO  TO  26 

Rt I . J.N)=R(I , d . N > *CTRANS ( I . d , NK ) 


VLINKH0181 
VLINKH01B2 
VL 1 NR HO  1 83 
VLINKH0184 
VLINKH0185 
VLINKH0186 
VLINKH0187 
VL INK HO 188 
VLINKH0189 
VLINKHO190 
VLINKH0191 
VLINKH0192 
VL INKH0193 
VLINKH0194 
VLINKH019S 
VLINKH0196 
VLINKHQ197 
VL I NKH0198 
VL1NKH0199 
VL l NKH0200 
VLINKH0201 
VL I NKH0202 
VL I NKHO203 
VLINKH0204 
VL  I NKHO20S 
VLINKH0206 
VLINKH0207 
VL I NKH0208 
VL I NKH0209 
VLINKH0210 
VLINKH021 1 
VLINKH0212 
VL I NKH02 1 3 
VLINKH0214 
VLINKH021S 
VLINKHC2 16 
VLINKH0217 
VLINKH0218 
VLINKH0219 
VL I NKHO220 
VLINKH022! 
VL I NKH0222 
VLI NKH0223 
VLINKH0224 
VLINKH0225 
VLI NKH0226 
VLI NKH0227 
VLI NKH0228 
VL 1 NKH0229 
VL I NKH0230 
VLI NKH0231 
VLI NKH0232 
VL I NKH0233 
VL I NKH0234 
VL I NKH0235 
VLINKH0236 
VLINKH0237 
VLINKH0238 
VLI NKH0239 
VL INKH0240 
VL INKH024 1 
VLINKH0242 
VLI NKH0243 
VL I NKH0244 
VLI NKH0245 
VLINKH0246 
VLI NKH0247 
VLINKH0248 
VLINKH0249 
VLINKH02S0 
VLINKH0251 


LINKHO  4 


00255 

00256 

00257 

00258 

00259 

00260 
00261 
00262 

00263 

00264 

00265 

00266 

00267 

00268 
00263 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 

00280 
0028  1 
00282 

00283 

00284 

00285 

00286 

00287 

00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 
003  1 0 
0031  1 

00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320 

00321 

00322 

00323 

00324 


26 

2896 


25 

300 


86 

1896 


85 

200 


1 1 1 
1 12 


GO  TO  25 

R<  X . d ,N> -R ( I * d . N ) *T03  < I . J ) 

GO  TO  25 
CONTINUE 
R ( I fU,N)=0. 

Rid, I , N ) =R  ( I , J,N) 

CONTINUE 
PM=VAR(d) 

AV=CM<d) 

PD=CG  -AV+SQRT  tC<N)*PM) 

I F < PD  .GT.  9 . ) GO  TO  1896 

R< 1 ,d ,N)=EXP(-PD) 

IF ( N . L T . 4 .OR.  N . GT . 6)  GO  TO  85 

1 F ( N . EQ . 6 ) GO  TO  86 
R{ 1 fd,M)sR(l , d , N ) -CTRAN5 ( 1 ,d.NK) 

GO  TO  85 

R(  1vd»M)~R( 1« J , N ) * T03  < 1 td) 

GO  TO  85 
CONTINUE 
R ( 1 . J,N>=0. 

RIJ, 1 ,N)=R1 1 . J.N) 

CONTINUE 

IF ( N .GT,  NF)  GO  TO  111 
TT  = 1 T 1 -260 . ) ♦ 1 . E - 3 
TTT  = TT  * TT 

CAP  1 = EXP < APR 1 IN) * TT  +BPR I (N>  -TTT) 

TT= (T2-260. >-  1 . E -3 
ttt=tt*tt 

CAP2  = EXPt  APR  I <N)*TT+BPRI  f N > * TTT  > 

GO  TO  112 
CAP  1 - 1 . 

CAP2= 1 . 

TERM1  = (CAP2*Q2-P2/GRNDP  + CAP < 1 , N ) ) -DP2  /1960. 
tIrmItermimcap^oi  *P1-CAP2-02*P2):DP1  / < 1960  ;grnop  1 

CMI 1=TCONT2-Q2-P2*DP2  ♦Q2/GRNDP*  CONT 1 U - DP 2 ) / 1 960 . 

CMI -CMI 1 + (CONT 1 *Q1 -PI -DPI  *0 1 *CONT2 -Q2 -P2-DP 1 *02)/<1960 

DO  100  1=1 ,L2 
PHII=TERM*VAR< I > 

PH  = TERM1 +VAR 1 I ) 

AVI =CMI 1 * CM ( I ) 

AV=CM1  +CM(I> 

PD  = CG  -AVI -SORT <C(N) -PH) 

I F f PD.GT.  9 . ) GO  TO  5890 

TINF ( I ,N) =EXP<-CG  -AV  -SORT t C ( N ) - PH I I ) > 

WTRINF  ( 1 .N)=EXP<-PD> 

I F ( N .LT.  4 .OR.  N.GT.  6)  GO  TO  100 
IF<N  .EQ.  6)  GO  TO  101 
TINFU  ,N>  = TINF  1 1 tN>  -CTINF  U ,NK) 

WTRINF  U , N ) =WTR I NF  < I , N ) -CT  I N ( I ,NK) 

GO  TO  100 

TINF(I,N)=TINF<X,N)-TI1(I) 

WTRINF  t I ,N)=WTRINF (I,N)*T12(I> 

GO  TO  100 
CONTINUE 
TINF  < I , N > =0 . 

WTRINFri ,N>=0. 

CONTINUE 
DO  507  1=1,21 
SS( I , NFL ) -0 . 

OO  507  N=  1 , NFLW 

SS< I ,NFL)=SS< I , NFL ) *SS  < I ,N> -DELNU(N) 

CONTINUE 
DO  508  d = 1 , L2 
DO  508  1 = 1 ,L2 
R< I , J , NFL  ) = 0 . 

°Rf f?d,NFL)=R( I ,d,NFL>  *R< I ,d.N>  *SS( 1 + 1 tN> -DELNU(N) 

605  CONTINUE 

R ( I , d . NFL  > =R ( I , d , NFL ) /SS ( I * 1 .NFL) 

508  CONTINUE 

DO  QUADRATURE 


101 

5890 

too 

507 


VLINKH0252 
VL I NKHQ253 
VLINKH0254 
VLINKH0255 
VLINKH0256 
VLINKH0257 
VL l NKH0258 
VLINKH0259 
VLINKH0260 
VLINKH0261 
VLINKH0262 
VL INKH02G3 
VLINKH0264 
VLINHH026S 
VLINKHD266 
VLINKH0267 
VL I NKH0268 
VLINKH0269 
VL I NKH0270 
VLINKH0271 
VLINKH0272 
VLINKH0273 
VLINKH0274 
VLINKH027S 
VL1NKH0276 
VL I NKH0277 
VLINKH0278 
VLINKH0279 
VL I NKH0280 
VLINKH0281 
VLINKH0282 
VL I NKH0283 
VL I NKH0284 
VL I NKH0285 
VL I NKH0286 
-GRNDP ) VL INKH0287 
VLI NKH028B 
VLINKH0289 
VL I NKH0290 
VLINKH0291 
VL I NKH0292 
VL I NKH0293 
VLI NKH0294 
VLI NKH0295 
VLI NKH0296 
VLINKH0297 
VLINKH0298 
VL I NKH0299 
VL I NKH0300 
VLINKHO301 
VL I NKH0302 
VLI NKH0303 
VLINKH0304 
VLINKH0305 
VLI NKH0306 
VLI NKH0307 
VLI NKH0308 
VLI NKH0309 
VLINKH0310 
VLI NKH03 1 1 
V L I NKH03 1 2 
VLI NKH03 1 3 
VLINKH0314 
VLINKH0315 
VLINKH0316 
VLINKH03T7 
VL I NKH03 18 
VL INKHG319 
VLI NKHO320 
VLI NKH032 1 
VL I NKH0322 


O G 
■n  gj 

s 

O 3? 
70  P 

iO  -o 

c 5* 

pi 

3® 


:i 

! 

i 


LINKHO  5 


00325 

00326 

00327 

00328 
00323 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 

00340 
0034  1 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 
0035B 

00359 

00360 


00361 

00362 

00363 

00364 

00365 

00366 

00367 

00363 

00369 

00370 

00371 

00372 

00373 

00374 

00375 

00376 

00377 
00373 

00379 

00380 

00381 

00382 

00383 

00384 

00385 

00386 

00387 

00388 


DO  2000  1 = 1 , LLL A V 
II 1=2* I 
11*111-1 
SUM  = 0 . 

SURF  L = 0 . 

SURFU=0 . 

K = 1 

IF  1 I . EQ . 1 ) GO  TO  3366 

IFU  . EQ . LLLAY  .AND.  IUP1I-1)  . EQ 
IFU  .GT.  lUP(I-t))  K = I UP  <1  — 15  t 

3366  CONTINUE 
KKK=K*2 
KK=KKK- 1 

DO  2100  d=K,LLAY 
S (I « d ) =0 . 
ddd=2*d 


VLINKH0323 
VLINKH0324 
VLINKHQ325 
VLINKH0326 
VL I NKH0327 
VLINKHD328 
VL1NKHQ329 
VL I NKH0330 

LLAY)  GO  TO  2115  VLINKHQ331 

VL l NKH0332 
VLINKH0333 
VLINKH0334 
VL I NKH0335 
VL I NKH0336 
VLINKH0337 
VLI NKH0338 
VLINKH0339 
VLINKHO340 
VLINKH0341 
VLINKH0342 
VLINKHD343 
VLINKHD344 
VL1NKH0345 
VLINKH0346 
VLI NKH0347 
VL  2 NKH0348 
VL 1 NKH0349 
VLINKH0350 
VL2NKH035 I 
VL I NKH0352 
VLI NKH03S3 
VLI NKH0354 
VLI NKH0355 
VLI NKH0356 
VLINKH0357 
VLI NKH0358 
VHNKH0359 
VLI NKH0360 
V L I N K H 0*3  6 1 
VL I NKH0362 
VL1NKH0363 
VL I NKH0364 
VL I NKH0365 
VL I NKH0366 
VL I NKH0367 
VL I NKH0368 
VLI NKH0369 
VL I NKH0370 
VLINKH0371 
VLINKHQ372 
VLI NKH0373 
VL  INKH037** 
VLINKH0375 
VLINKH0376 
VL I NKH0377 
VLI NKH0378 
VLINKH0379 
VLIMKHO380 
VLI NKH038 1 
VLI NKH0382 
VLINKH0383 
VLINKH0384 
VLINKH0385 
VLINKH0386 
VLI NHH0387 
VL I NKH0388 
VLINKH0389 
VLINKH0390 
VLI NKH039 1 
VL I NKH0392 
VL I NKH0393 


Jd= ddd- 1 

TF{d  .EQ.  I UP ( d > ) GO  TO  2116 
IdTESTM I-d) M2M I-d>-3» 
iFMdTEST)  2001,2082.2083 

2081  DO  2210  Nsl.NFLW 
XF<R(XX-1,IXaN>  .LT.  ,98  ) GO  TO  3053 

AG=  MBBUlI-I.N) -BB UII.NM*M.+R<II-1,IT*N))MBBUII-2,N)- 
18Q  U 1 1 - 1 * N ) )MR(IZ-1  ,IItN)*R(II-2tII,NM)/2. 

GO  TO  3054 

3053  CONTINUE 

TRB=  . 125*  (G.  *R<  dd+1  . I I , N ) *3  . * R f dd  , 1 1 ,N>-R<dd+2(  I I ,NM 
SSB=. 125* (6. *SS<ddd,N) *3. *SS(ddd+1 fN> -5Sfddd-1 ,N) ) 

TERM2= ( TRAD  1 Jdd  ) - TRAD  { ddd  + 1MMSS(JddfN)*R<dd,U  ,NM4.  *5SB  *TRB  * 
*SSIJUd+1  ,N)*R<dd+1  ,11  ,NM/G. 

IF(RUI-1,II,M>  .GE.  .7)  GO  TO  1515 
TERM1  = ( 1 . /G.  +RU  I - I t II  ,NH  MBB(  II 1-1  ,N>  -BBUII  ,NH 
AG=  TERM 1 + TERM2 
GO  TO  3054 
1515  CONTINUE 

TRD=.  1 25*  <6.*R(dd«-1  ,11  ,N>*3.*R(  JJ  + 2,  II  ,N)-R<dd,II  fN>  ) 

SSD= . 125*16. *S5fddd+2.N>  * 3 . *SS < ddd M . N > -SSf ddd*3.N>  ) 

AG- TERM 2 

1 x ( TRAD  < ddd+ 1 ) -TRAD ( ddd*2 ) > MSSCdddM ,N>*R<dd+1aXI.Nt»4.* 

2SSD  *TRD  + S5(ddd4-2tN)  *R(dd*2,II,N))/6. 

3054  CONTINUE 

SCI ,d>=S(r ,d)*AG  *DELNU<  N 1 
2210  CONTINUE 

GO  TO  2400 

2082  DO  2220  N=1,NFLW 

IF  <R(  XIM  9 1 X ,N>  .LT.  .98  J GO  TO  3063 

AG=(<BB{IlI,N)-BBUXIM,NHM1.+R<tIM'XI,N)  JMBBUII*  J .Ml- 
1BBUII+2,N)  )*(R(II+1  4II  ,N)*R<II-»-2,II  ,N)  ) )/2. 

GO  TO  3064 

3063  CONTINUE 

TRD= . 125* <6. *Rf dd+1 , II ,N>+3 . *R<dd+2 pII(N)-R<«Jd,Il,NU 
SSD=  .125*16.  *SSf  ddd+2 , N ) +3  . *SS<  ddd  + 1 , N 1 -SS  ( Odd-* 3 , N ) > 

TERM2= (TRADC ddd+1 ) -TRAD ( ddd*2 ) > * ( SS < ddd  + 2 , N > *R ( dd  + 2 , I I ,N)  + 

14. *SSD*TRD*SS<ddd*1 ,N>*R(dd*1,II.N>>/6. 

IFfRUI  + 1 ,11 ,N)  .GE - .7)  GO  TO  1616 

TERM  1 = ( 1 ./6.+RMI  + 1 , 1 1 tN)  )*<  BB  (III  t N ) -BB  ( X 1 1 + 1 ,NM 
AG=TERM1 +TERM2 
GO  TO  3064 
1616  CONTINUE 

TRB=  . 125  + <6,  *R  (dd+1  . 1 X ,tt)  *3  . »R  (Ud  . 1 1 ,N)  -R(  Jd  + 2 , X Z ,NH 

SSB- . 1 25*  < 6. +SSC  ddd , N > +3 . *SS( ddd+ 1 , N) -SS<  ddd- 1 , N ) ) 

AG= C TRAD <ddd>- TRAD CdddM ) > * ( SS < ddd , N ) * R < dd , IX ,N)+4. *SSB*TRB* 
ISSJdddM ,N)*R(dd+1 ,II,N))/6. 

AG-AG*T£RM2 

3064  CONTINUE 

SI  I , d > =S ( I ♦ d ) +AG  *OELNU IN) 

2220  CONTINUE 

GO  TO  2400 

2083  N=NFL 

TR0=  . 1 25 M6.*RCdd-M  ,11  fN)*3,*R(dd,  II  ,N)-R(dd+2,II  ,N)  ) 

SSB  = .125*16. *SS(ddd ,N)*3. *SS ( ddd+ 1 , N ) -SSCddd- 1 .NM 


ss 

SB 

80 

Si 


V v ^ 


. $ 


00389 

00390 
0039  1 

00392 

00393 

2400 

C 

C 88 

00394 

00395 

2100 

00396 

00397 

00398 

00399 

2115 

00400 

00401 

00402 

8 

00403 

2156 

00404 

2500 

00405 

00406 

25  12 

00407 

00408 

2556 

00409 

2501 

004  10 
004  1 1 
004  1 2 

2510 

00413 

00414 
004  15 
00416 

2000 

00417 
004  1 Q 

00419 

00420 

5552 

TRD=  . 125M6.*R(dJ**  t , I I , N > *3.*R(dd4'2#J  l,N)“R(Jd„II  , N ) > 
SSD=  . 1 25  * ( 6 „ ♦ SSC  ddd*2 , N)  + 3 . *SS  IdddM.N)  -SS  ( d Jd  + 3 , N ) > 
TERM2-  ( TRAD<  ddd)-TRAD1 dd J*  1 > ) * f SS  I ddd  ,N)*R  (JJt!I,N)M 
*SS<  dJd*  f<N)+RfddM,II«N}  1/6. 

1 A < TRAD  i Jd  J 4 i > -TRA0(ddd*2>  ) MSS<  JJJH  ,N)  *R<  JJM,  II  ,N)* 
2SS0  *TRD*SS<  ddd  * 2 , N > *R(Jd^2  , II  .N)  )/6. 

S( I ,d)=S<  I ,d)iTHRM2 
CONTINUE 

WRITE <6. 88  ) l.d.  S < I t J ) 

F0RMAT<2X.2I5.E12,5) 

SUM=SUM+S 1 I , J I 

CONTINUE 

CONTINUE 

S<  I , LLLAY ) *0  * 

IF  < 1 . EQ.  1 ) GO  TO  8 

IFfI  .EQ.  LLLAY  , ANO . IUP'I-1)  .EQ.  LLAV)  d=LLLAY 


CONTINUE 
I F ( d . EQ  . 
IF<  d .EQ, 


LLLAY)  GO  TO  2156 
IUP<d> ) GO  TO  25 12 
DO  2500  N= 1 , NFLW 

SURFL  = SURFL4-  C 8G < N ) -BB ( LL . N ) > *R ( L 2 , 1 1 » N > *DELNU  ( N ) 

IF  (I  .EQ.  U GO  TO  2556 
I F { IUP f I - 1 ) .NE.  0}  GO  TO  25  10 
DO  2501  N= 1 , NFLW 

S< I .LLLAY ) =S< I .LLLAY)  MTINF1  II . N ) * SS 1 1 N ) *4 . *WTR I NF  ( 1 
1R<  1 , II  ,N>  *SS<  2 ,N)}MT1-Ttn)/6>  »DELNU  < N ) 

SURFU  = SURFU*  BB  1 (N)»TINF<II,N>  ♦DELNU(N) 

CONTINUE 

RE  ( IBB,  I ) =SURF L J-SURFU- SUM-S  ( I , LLLAY) 

PE( IBB , I )=RE ( IBB, I ) * . 2064E-2 
CONTINUE 

00  5552  1 = 1 , LLA Y 

PL< IBB, I )= PL (IBB, I > + t , E-3 

PLE 1 IBB, I ) =PLE( IBB. I ) * 1 . E-3 

CONTINUE 

PLE< IBB .LLLAY >=PLE( IBB, LLLAY > * 1 .£-3 

RETURN 

END 


VLINKH0394 
VL INKHC395 
*SSB*  TRB  * VLINKH03BS 

VL INKH0397 
4,*  VLINKH0398 

VL I NKH0399 
VL I NKH0400 
VL INKH040 1 
VL I NKH0402 
VLINKHO403 
VLINKH0404 
VLINKH0405 
VLINKH0406 
VL I NKHO407 
VL I NKH040B 
VL I NKH0409 
VL INKH0410 
VLINKH041 1 
VLINKH0412 
VLINKH0413 
VLINKH04 14 
VLINKH04 15 
VLINKH0416 
VLINKH04 17 
,NI*SSM  , N ) * VL  INKH04  18 
VLINKH04 19 
VL 1 NKHQ420 
VL I NKH042 1 
VL 1 NKH0422 
VL INKH0423 
VLINKH0424 
VLINKH0425 
VLINKH0426 
VLINKH0427 
VLINKH0428 
VL I NKH0429 
VLINKH0430 
VLINKH0431 
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276 
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2400 
25 

2500 

2501 
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25  1 2 

2555 

2556 

26 
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30 

300 
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3053 
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3064 
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4301 
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6 
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7 
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7778 

8 
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85 
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9 

9000 

VARIABLE 
--NAME  — 

AG 

AL 

APRI 

AS 

AV 
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BB 

BB1 

BG 

BPRI 

C 
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CAPPSI 
CDATE 
CG 

CLOUD 
CM 
CM  I 
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396 

403 
363 
334 

88 

198 

393 

260 

404 
409 
4 10 

405 
67 

407 

256 

258 

205 

261 

232 

349 

361 

369 

382 

335 

195 

182 

181 
316 
324 
1 17 
417 
191 
164 
308 

107 
322 

105 
122 
123 
400 
100 
275 
271 

106 

108 


333 

401 

345 
365 

75 

197 

364 

252 
403 
407 
406 

402 
62 

405 

253 
250 
203 
244 
228 

346 
348 

3 66 
368 
332 
174 
180 

177 
312 
317 
1 15 

4 14 
189 
162 
297 
101 
320 
104 
1 19 
121 
398 

97 

267 

268 
102 

91 


342 


385 
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356 

376 
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3 14 
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00 
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RADCOM 

RADCOM 


-type CLASS- 

REAL  SIMPLE 

REAL  ARRAY 

REAL  ARRAY 

REAL  ARRAY 

REAL  SIMPLE 

REAL  SIMPLE 

REAL  ARRAY 

REAL  ARRAY 

REAL  ARRAY 

REAL  ARRAY 

REAL  ARRAY 

REAL  ARRAY 

REAL  SIMPLE 

REAL  'SIMPLE 

REAL  ARRAY 

REAL  ARRAY 

REAL  SIMPLE 

REAL  ARRAY 
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REAL  SIMPLE 
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63/S  119 

174  175 


313/S  315/S 

359  359 

379  379 

391  391 


383/S  383 


139  139 
119  120 
176  177 


315  315 
359  360 
380  380 
391  408 


392/S  392 


120  139 

179 


327  323 
360  371 
388  388 
408 


394 


397/S 


40E 


143  144 


14S 


351  351 
371  371 
388  390 


351 

372 

390 


ORIGINAL  PASS  IB 

LINKHO  11 


f 


SSI 

REAL 

ARRAY 

SSB 

REAL 

SIMPLE 

SSD 

REAL 

SIMPLE 

SSS 

RADCOM 

REAL 

ARRAY 

SSSE 

RADCOM 

REAL 

ARRAY 

STN 

RADCOM 

REAL 

ARRAY 

SUM 

REAL 

SIMPLE 

SURFL 

REAL 

SIMPLE 

SURFU 

REAL 

SIMPLE 

SWALE 

RADCOM 

REAL 

ARRAY 

SWIL 

RADCOM 

REAL 

ARRAY 

T 

REAL 

ARRAY 

T 1 

REAL 

SIMPLE 

T2 

REAL 

SIMPLE 

TAUL 

RADCOM 

REAL 

ARRAY 

TCOND 

RADCOM 

REAL 

ARRAY 

TERM 

REAL 

SIMPLE 

TERM1 

REAL 

SIMPLE 

TERM2 

REAL 

SIMPLE 

TG 

RADCOM 

REAL 

ARRAY 

TH 

RADCOM 

REAL 

ARRAY 

T I t 

REAL 

ARRAY 

TI2 

REAL 

ARRAY 

TINF 

REAL 

ARRAY 

TL 

RADCOM 

REAL 

ARRAY 

TLE 

RADCOM 

REAL 

ARRAY 

TLOWL 

RADCOM 

REAL 

SIMPLE 

TMIDL 

RADCOM 

REAL 

SIMPLE 

TN 

RADCOM 

REAL 

ARRAY 

T0 1 

WUDATA 

REAL 

ARRAY 

T02 

WUDATA 

REAL 

ARRAY 

T03 

REAL 

ARRAY 

TOPABS 

RADCOM 

REAL 

ARRAY 

TOTOZ 

RADCOM 

REAL 

ARRAY 

TPENE 

RADCOM 

REAL 

ARRAY 

TRAD 

REAL 

ARRAY 

TRAD  1 

REAL 

SIMPLE 

TRB 

REAL 

SIMPLE 

TRD 

REAL 

SIMPLE 

TR03 

WUDATA 

REAL 

ARRAY 

TS 

REAL 

SIMPLE 

TT 

REAL 

SIMPLE 

TTT 

REAL 

SIMPLE 

VAR 

REAL 

ARRAY 

W 

REAL 

ARRAY 

WET 

RADCOM 

REAL 

ARRAY 

WI 

RADCOM 

REAL 

ARRAY 

WTRINF 

REAL 

ARRAY 

WUDATA 

REAL 

UNKNOWN 

X 

REAL 

ARRAY 

XK 

RADCOM 

REAL 

ARRAY 

XX 

REAL 

SIMPLE 

XV 

REAL 

SIMPLE 

YY 

REAL 

SIMPLE 

39 

218/S 

408 

35  I /S 

352 

379/S 

380 

359/S 

360 

37  1 /S 

372 

1 1 

1 1 

20 

328/S 

394/S 

394 

4 1 1 

329/S 

404/S 

404 

4 1 1 

330/S 

409/S 

409 

4 1 1 

16 

16 

40 

1 16/S 

136/S 

147 

73 

1 1 2 

200 

278 

73 

113 

201 

28  1 

18 

2 1 

288  /S 

292 

287/S 

288 

293 

354  /S 

352/S 

355 

360 

37  2,' S 

6 

2 14 

6 

34 

1 10 

305 

34 

\ * 4? 

306 

39 

* 'd  iS 

302/S 

302 

5 

1 i 5 

1 24 

1 24 

5 

114 

22 

22 

20 

35 

102/R 

1 10 

35 

103/R 

1 10 

34 

1 10 

256 

27  1 

19 

26 

21 

40 

201/S 

202/S 

205  /S 

372 

372 

380 

380 

200/S 

215 

218 

350/S 

352 

378/S 

380 

358/S 

360 

370/S 

372 

35 

105/R 

1 10 

114/S 

136 

136 

206 

147/S 

148 

148 

t 63 

280 

281/S 

282 

282 

148/S 

163 

184/S 

190 

40 

238/S 

242/S 

242 

40 

27 

27 

39 

299/S 

303/S 

303 

35 

36 

38 

45/1 

209 

714 

23 

209/S 

210 

212 

215/S 

48/1 

1 1 2 

1 13 

149 

2 1 0 / S 

2 1 1 

2 12 

212 

388/ S 391 
390/S  391 


149  173/S  183  185 

408 


355  374/S  375 

375  381  391/S  392 


305/S  305  309/S  408 

136  173  206 


206/S 

209 

212 

352 

39  I 

391 

391 

39  1 

387/S 

391 

389/S 

391 

183/S 

283 

184 

1 84 

190 

279/S 

280 

282/S 

283 

247 

247 

262 

292 

306/S 

306 

310/S 

408 

2 15 

216 

218 

185 
2 1 6 / S 

2 17 

2 IB 

2 18 

202  205 


409 


352  360 


278/S  279 


293 


33 

O 


to 


40S 


360 


279 


PROCEDURE  MAP 


-NAME 

--TYPE 

CLASS 

REFERENCES 

ALOG 

REAL 

INTRINSIC 

1 25 

134 

EXP 

REAL 

INTRINSIC 

1 12 

1 13 

03 1 NT 

280 

283 

SUBROUTINE 

! 10 

SORT 

REAL 

INTRINSIC 

249 

264 

STRATM 

SUBROUTINE 

73 

ZEI TBEG 

SUBROUTINE 

72 

109 

ZEI TEND 

SUBROUTINE 

74 

1 1 1 

0 = STMT  FN  DEF,  A = ARGL 1ST 
135  142  172 

149  163  185  190  210  214  216  251 

298  299 

296  298 


266 


ORIGINAL  PASS  IM 
OF  POOR  QUALITY 


35.J 


00001 

00002 


00003 

00004 

00005 

00006 
00007 
ooooa 

00009 

00010 
0001  1 
00012 

00013 

00014 


SUBROUTINE  MOIST 

C IMPLICIT  REAL  ( A-H , 0-Z) 

C 

GCOMDECK  VCNTRL 

C CHARACTER  MODEL  PARAMETERS  SAVED  ?N^HI STOR YRECORD 

° ""  COMMON  /CCNTRL/  CCO 

COMMON  /CCNTRL/  ADATE 
COMtf'lM  /CCNTRL/  AT I ME 
COMMON  /CCNTRL/  JIG 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSPOB 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  (10) 

COMMON  /CCNTRL/  CQS  (30) 

COMMON  /CCNTRL/  CQU  (10) 


000  15 
00016 
00017 
000  1 B 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 
00027 


00028 

00029 

00030 

00031 

00032 

00033 

00034 
00036 

00036 

00037 

00038 

00039 
00R40 
0004  t 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 
00066 
00067 

00058 

00059 

00060 
00061 


C 

c 

C 


EQUIVALENCE 
CHARACTERS 
CHARACTER *8 
CHARACTERS 
CHARACTERS 
CHARACTER S 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 


(CCO,CC( 1 ) ) 

CCO.  CC ( 200 ) 

ADATE 

ATIME 

JIC 

JOB 

CCSPOB 

CCSP07 

CCSP08 

VER 

XLABEL 

CQS 

CQU 


INTEGER  MODEL  PARAMETERS  SAVED  ON  STOP _ RECORD 

COMMON  /ICNTRL/  ICO 
COMMON  /ICNTRL/  IM 
COMMON  /ICNTRL/  IMD2 
COMMON  /ICNTRL/  IMD2P1 
COMMON  /ICNTRL/  NDRSW 
COMMON  /ICNTRL/  JM 
COMMON  /ICNTRL/  JMD2 
COMMON  /ICNTRL/  JMT2 
COMMON  /ICNTRL/  JNP 
COMMON  /ICNTRL/  J04 
COMMON  /ICNTRL/  JOB 
COMMON  /ICNTRL/  JSP 
COMMON  /ICNTRL/  KLIALB 
COMMON  /ICNTRL/  KLI^V 
COMMON  /ICNTRL/  KLIiSST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KU 
COMMON  /ICNTRL/  LOGBR 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MAT5UN 
COMMON  /ICNTRL/  MLF  (12) 

COMMON  /ICNTRL/  MROD 
COMMON  /ICNTRL/  NKRSH 
COMMON  /ICNTRL/  MSM 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  ND 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDAY 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NDT 
COMMON  /ICNTRL/  NHMS 


SVM00010 

$VM00020 

SVM00030 

SVM00040 

SVMOOOBO 

SVM00060 

SVM00070 

SVMOOOBO 

SVMOOOBO 

SVM00100 

SVMOO  t 1 O 

SVM00120 

SVMOO 130 

SVMOO 140 

SVMOO 150 

SVMOO 160 

SVMOO 170 

SVMOO 1 BO 

SVMOO 1 90 

SVM00200 

SVM002 10 

SVM00220 

SVMOO 230 

SVM00240 

SVMOO 250 

SVM00260 

SVMOO 270 

SVM00280 

SVM00290 

SVM00300 

SVM00310 

SVM00320 

SVM00330 

SVM00340 

SVM00350 

SVM00360 

SVM0037C 

SVMOoar 

SVMOn  j 

SVijuudQO 

SVM00410 

SVM00420 

SVM00430 

SVM00440 

SVM00450 

SVM004G0 

SVM00470 

SVM004B0 

SVM00490 

SVM00500 

SVMOO 5 1 0 

SVM00520 

SVM00530 

SVM00540 

SVM00550 

SVM00560 

SVM00570 

SVM00580 

SVM00590 

SVM00600 

SVM00610 

SVM00620 

SVM00630 

SVM00640 

SVM00650 

SVM00660 

SV MO 0670 

SVM00680 

SVM00690 

SVM00700 

SVM00710 


O 

H 

CC 


(— 1 
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00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00 074 

00075 

00076 

00077 

00078 

00079 

00080 
0008  1 
00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COP/MON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

INTEGER 


’ NHMSE 
' NHMSO 
NLA  Y 
NLAYM1 
NLA YP 1 
NSOAY 
NSEQ 
ICSP53 
NSTEP 
IBLKSIZ 
NYMD 

nvmde 

NYMDO 
NZINIT 
NMLEV 
NDHOG 
IQS  (30) 
IQU  (10) 

(ITMIN 
(ITMAX 
( IPREACC 
{ IPRECON 
( I HE  LUX 
(IEFLUX 
( I FUSION 
< IRADSWG 
(IRADLWG 
{ 1 1 CLOUD 


* IQS<  1)) 
. I QS ( 2)) 
► I QS ( 3 ) ) 
,IQS(  4)) 
,IQS(  5)) 
. I QS ( 6)  ) 
,IQS(  7)) 
» I QS ( 8)) 
fIOS(  9)) 
, IQS{ 10) > 


(IOMEGA  , I QU ( I)) 

(IOIABAT  , I QU ( 2 ) ) 
(IRADSW  , I QU ( 3)) 
(IRAOLW  , I QU ( 4 ) ) 

(ICO.IC(I) ) 

ICO,  IC ( 200 ) 


2 = = t = SAVED  ON  HISTORY  RECORD 

COMMON  /LCNTRL/  LCO  ="  = " = = = « = : = = 

COMMON  /LCNTRL/  QALT 

COMMON  /LCNTRL/  QBEG 

COMMON  /LCNTRL/  QDAY 

COMMON  /LCNTRL/  QEND 

COMMON  /LCNTRL/  QOUT 

COMMON  /LCNTRL/  QPHY 

COMMON  /LCNTRL/  QSHF 

COMMON  /LCNTRL/  SN2FLG 

COMMON  /LCNTRL/  QRSW 

COMMON  /LCNTRL/  QRSH 

COMMON  /LCNTRL/  LQS(30> 

COMMON  /LCNTRL/  LQU(10> 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(LTMIN 

(LTMAX 

( LPREACC 

(LPRECON 

( LHFLUX 

(LEFLUX 

(LFUSION 

(LRADSWG 

( LRADLWG 

(LICLOUD 


► LQS ( 1)) 
,LQS(  2)) 
.LQS(  3)> 
• LQS(  4)) 
,LQS(  5)) 
,LQS<  6)) 
» LQS ( 7)) 
, LQS ( 8)) 
* LQS ( 9)) 
, LQS( 10)) 


(LOMEGA  , LQU ( 1)) 
(LDIAQAT  , LQU ( 2)) 
(LRADSW  , LQU ( 3) > 
( LRADLW  , LQU ( 4 ) ) 


00123 


LOGICAL 


QALT 


SVM00720 
SVM00730 
SVM00740 
SVM00750 
$VM00760 
SVM00770 
SVM007BO 
SVM00790 
SVM00800 
SVM00810 
SVM00820 
SVM00830 
SVM00840 
SVM00850 
SVM00860 
SVM00870 
SVM00880 
SVM00890 
SVM00900 
SVM00910 
SVMO 09 20 
SVMO 0930 
SVM00940 
SVM00950 
SVM00960 
$VM00970 
$VM00980 
$VM00990 
$VMO 1 000 
SVM01010 
SVM01020 
SVM01030 
SVM01040 
SVMO 1050 
SVMO 10 60 
SVM01070 
SVMO 1 080 
$VMO 1 090 
SVMO 1 100 
$VMO 1 110 
SVMO 1 1 20 
SVMO 1 130 
SVMO 1 140 
SVMO 1 150 
SVMO 1 160 
SVMO 1 170 
SVMO 1 180 
SVMO 1 190 
SVMO 1200 
SVMO 1210 
SVMO 1220 
SVMO 1230 
SVMO 1 240 
SVMO 1250 
SVMO 1260 
SVMO 1270 
SVMO 1280 
SVMO 1290 
SVMO 1300 
SVMO 1310 
SVMO 1320 
SVMO 1330 
SVMO 1340 
SVMO 1350 
SVMO 1360 
SVMO 1370 
SVMO 1380 
SVMO 1390 
SVMO 1400 
SVM01410 
SVMO 1420 
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00124 

LOGICAL 

QBEG 

00125 

LOGICAL 

QDAY 

00126 

LOGICAL 

QEND 

00127 

LOGICAL 

QOUT 

00128 

LOGICAL 

QPHY 

00129 

LOGICAL 

QSHF 

00130 

LOGICAL 

SN2FLG 

00131 

LOGICAL 

QRSW 

00132 

LOGICAL 

QRSH 

00133 

u 

LOGICAL 

LQS 

00134 

LOGICAL 

LQU 

00136 

LOGICAL 

LTMIN 

00136 

LOGICAL 

LTMAX 

00137 

LOGICAL 

LPREACC 

00138 

LOGICAL 

LPRECON 

00139 

LOGICAL 

LHFLUX 

00140 

LOGICAL 

LEFLUX 

00141 

LOGICAL 

LFUSION 

00142 

LOGICAL 

LRADSWG 

00143 

LOGICAL 

LRADLWG 

00144 

p 

LOGICAL 

LI CLOUD 

00145 

V 

LOGICAL 

LOMEGA 

00146 

LOGICAL 

LDIABAT 

00147 

LOGICAL 

LRADSW 

00148 

P 

LOGICAL 

LRAOLW 

00149 

V 

EQUIVALENCE 

( LCO  * LC  f 1 ) ) 

00150 

LOGICAL 

LCO , LC ( 200 ) 

C REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00151 

COMMON 

/RCNTRL/ 

RCO 

00152 

COMMON 

/RCNTRL/ 

APHEL 

00153 

COMMON 

/RCNTRL/ 

BETA 

00154 

COMMON 

/RCNTRL/ 

COSD 

00165 

COMMON 

/RCNTRL/ 

CP 

00156 

COMMON 

/RCNTRL/ 

DAYSPY 

00157 

COMMON 

/RCNTRL/ 

DEC 

00158 

common 

/RCNTRL/ 

DECMAX 

00159 

COMMON 

/RCNTRL/ 

DIST 

00160 

COMMON 

/RCNTRL/ 

DLAT 

00161 

COMMON 

/RCNTRL/ 

DLON 

00162 

COMMON 

/RCNTRL/ 

DT 

00163 

COMMON 

/RCNTRL/ 

ECCN 

00164 

COMMON 

/RCNTRL/ 

GNU  1 

00165 

COMMON 

/RCNTRL/ 

GNU2 

00166 

COMMON 

/RCNTRL/ 

GRAV 

00167 

COMMON 

/RCNTRL/ 

0MEGA2 

00168 

COMMON 

/RCNTRL/ 

PI 

00169 

COMMON 

/RCNTRL/ 

P 1 1 80 

00170 

COMMON 

/RCNTRL/ 

PZ2 

00171 

COMMON 

/RCNTRL/ 

PSTD 

00172 

common 

/RCNTRL/ 

PIMEAN 

00173 

COMMON 

/RCNTRL/ 

PSMAX 

00174 

COMMON 

/RCNTRL/ 

PSMIN 

00175 

COMMON 

/RCNTRL/ 

PTOP 

00176 

COMMON 

/RCNTRL/ 

RADE 

00177 

COMMON 

/RCNTRL/ 

RGAS 

00178 

COMMON 

/RCNTRL/ 

ROCP 

00179 

COMMON 

/RCNTRL/ 

RSDIST 

00180 

COMMON 

/RCNTRL/ 

SDAY 

00181 

COMMON 

/RCNTRL/ 

SEASON 

00182 

COMMON 

/RCNTRL/ 

SIGE 

(25) 

00183 

COMMON 

/RCNTRL/ 

SIND 

00184 

COMMON 

/RCNTRL/ 

SOLS 

00185 

COMMON 

/RCNTRL/ 

TSTD 

001  86 

COMMON 

/RCNTRL/ 

PLEVS 

(25) 

00187 

COMMON 

/RCNTRL/ 

HEATW 

00188 

COMMON 

/RCNTRL/ 

HEATI 

$VMO 1430 
$VM0 1440 
$VM0 1450 
SVM01460 
SVM01470 
SVM01480 
$VM0 1490 
$VM0 1 BOO 
$VMO 1510 
SVM01520 
SVM01530 
SVM01540 
SVM01550 
$VMO 1560 
$VMO 1570 
$VM01580 
SVM015S0 
SVM01600 
SVM01610 
$VM01620 
SVM01S30 
SVM01640 
SVM01650 
SVM01660 
SVM01670 
SVM01680 
SVM01690 
SVM01700 
SVM0I710 
$VM01 720 
$VM0 1730 
SVM01740 
$VM01 750 
SVM01760 
SVM01770 
$VM0 1 780 
SVM01790 
SVM01800 
$VM0 1810 
$VM0182C 
SVM01830 
SVM01840 
SVM01850 
SVM0I860 
$VM0 1870 
$VM0 1880 
$VMO 1890 
SVM01900 
SVM01910 
$VM01920 
SVM01930 
SVM01940 
$VMO 1950 
SVM019G0 
SVM01970 
SVM01980 
SVM01990 
SVM02000 
SVM02010 
SVM02020 
SVM02030 
SVM02040 
SVM02050 
SVM0206O 
SVM02070 
SVM020B0 
SVM02090 
SVM02100 
$VM021 10 
SVM02120 
SVM02 130 

O 

zn 
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K 

O 


00189 

00190 

00191 

00192 

001 93 

00194 


00195 

00196 

00197 
00  198 

00199 

00200 
00201 
00202 

00203 

00204 

00205 


00206 

00207 

00208 

00209 

00210 
00211 


00212 

00213 

00214 

00215 

00216 

00217 

00218 

00219 

00220 
00221 
00222 

00223 

00224 

00225 

00226 
00227 
0022B 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 
0023S 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 


COMMON  /RCNTRL/  EPS 
COMMON  /RCNTRL/  EPSFAC 
COMMON  /RCNTRL/  CALTOd 
COMMON  /RCNTRL/  PZERO 


C 

C 

C 


EQUIVALENCE 

REAL 


(RCO.Rcm  > 
RCO,  RC { 200 ) 


C 

c 

c 


c 

c 

c 


INTEGER  MODEL  CONSTANTS 

COMMON  /IDPARM/I JUMP 
COMMON  /IDPARM/  IDSP02 
COMMON  /IDPARM/  INDEX 
COMMON  /IDPARM/  IROD 
COMMON  /IDPARM/  dC 
COMMON  /IDPARM/  dE 
COMMON  /IDPARM/  JP 
COMMON  /IDPARM/  KSTEP 
COMMON  /IDPARM/  Md 
ggfJMON  /IDPARM/  NHMS1 
COMMON  /IDPARM/  NYMD1 

LOGICAL  MODEL  CONSTANTS 

COMMON  /LDPARM/  FILTER  (45) 
COMMON  /LDPARM/  1 TAPE 
COMMON  /LDPARM/  START 


(46) 

(72) 

(46) 

(2) 

(2,2) 

(46) 


LOGICAL 

logical 

LOGICAL 


FILTER 

ITAPE 

START 


REAL  MODEL  CONSTANTS 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RDpARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 


ADLDP 

CONI 

CON 1 DT 

C0N2 

CON2DT 

C0N3 

C0N3DT 

CON4 

CON4DT 

CONS 

COSL 

COSLON 

CPD2 

DXP 

DXYP 

DYP 

FCORLS 

F IDT 

F2DT 

H IDT 

H2DT 

PKSTD 

PKTOP 

RLAT 

RLATD 

ROCPDT 

R0CPP1 

SGNP 

SI  NL 

SINLON 

THSTD 

THSTD2 

WSAVE 

DSIG 

SIG 

DSIGXNV 


(46) 

(72) 

(46) 

(46) 

(46) 

(46) 


(46) 

(46) 


(2) 

(46) 

(72) 


( 159) 
(9) 
(9) 
(9) 


SVM02140 

$VM02!50 

SVM02160 

6VM02 1 TO 

SVM02180 

$VM02 190 

SVM02200 

$VM02210 

SVM02220 

SVM02230 

SVM02240 

SVM02250 

SVM02250 

SVM02270 

SVM02280 

SVM02290 

SVM02300 

$VM023 1 0 

SVM02320 

SVM02330 

SVM02340 

SVM02350 

SVM02360 

SVM02370 

SVM023S0 

SVM02390 

SVM02400 

SVM02410 

SVM02420 

SVM02430 

SVM02440 

SVM02450 

$VM02460 

SVM0247O 

$VM02480 

SVM02490 

SVM02500 

$VM025 1 0 

SVM02520 

SVM02530 

SVM02540 

SVMO2550 

SVM02560 

$V MO 25 70 

SVM02580 

SVM02590 

SVM02600 

SVM026 1 0 

SVM02620 

SVM02630 

SVM02640 

SVM02650 

SVM02660 

SVM02670 

SVM02680 

SVM02690 

SVM02700 

SVM02710 

SVM02720 

$VM02730 

SVM02740 

SVM02750 

SVM02760 

SVM02770 

SVM02780 

SVM02790 

SVM02S00 

SVM02810 

SVM02820 

SVM02830 

SVM02B40 


cn 

4>- 


ORIGINAL  PAGE  Si 
OF  POOR  QUALITY 


CCOMDECK  VCNTRLP 

C PHYSICS  PARAMETERS  AND  CONSTANTS 


( 9 ) 


00248 

COMMON 

/CNTRLP/ 

CDFR 

00249 

COMMON 

/CNTRLP/ 

CD  XL 

00250 

COMMON 

/CNTRLP/ 

CDXO 

00251 

COMMON 

/CNTRLP/ 

CLH 

00252 

COMMON 

/CNTRLP/ 

COE 

00253 

COMMON 

/CNTRLP/ 

COEF 

00254 

COMMON 

/CNTRLP/ 

COEFS 

00255 

COMMON 

/CNTRLP/ 

COSROT 

00256 

COMMON 

/CNTRLP/ 

CPP 

00257 

COMMON 

/CNTRLP/ 

CTID 

00258 

COMMON 

/CNTRLP/ 

CUMDAY 

00259 

COMMON 

/CNTRLP/ 

CUMRAT 

00260 

COMMON 

/CNTRLP/ 

CIO 

00261 

COMMON 

/CNTRLP/ 

C100 

00262 

COMMON 

/CNTRLP/ 

C40 

00263 

COMMON 

/CNTRLP/ 

DELTA 

00264 

COMMON 

/CNTRLP/ 

DTC3 

00265 

COMMON 

/CNTRLP/ 

OTOUT 

00266 

COMMON 

/CNTRLP/ 

ED 

00267 

COMMON 

/CNTRLP/ 

EDNM 

00268 

COMMON 

/CNTRLP/ 

FCOEF 

00269 

COMMON 

/CNTRLP/ 

FMU 

00270 

COMMON 

/CNTRLP/ 

FWET 

00271 

COMMON 

/CNTRLP/ 

gahifac 

00272 

COMMON 

/CNTRLP/ 

GTOPO 

00273 

COMMON 

/CNTRLP/ 

HICE 

00274 

COMMON 

/CNTRLP/ 

NDTC3 

00275 

COMMON 

/CNTRLP/ 

NFLW 

00276 

COMMON 

/CNTRLP/ 

PIM 

00277 

COMMON 

/CNTRLP/ 

QHOG 

00278 

COMMON 

/CNTRLP/ 

SHLTOP 

00279 

COMMON 

/CNTRLP/ 

SIWROT 

00280 

COMMON 

/CNTRLP/ 

SHOWN 

00281 

COMMON 

/CNTRLP/ 

SNOWS 

00282 

COMMON 

/CNTRLP/ 

ST80 

00283 

COMMON 

/CNTRLP/ 

STERP1 

00284 

COMMON 

/CNTRLP/ 

STERP2 

00285 

COMMON 

/CNTRLP/ 

TICE 

00286 

COMMON 

/CNTRLP/ 

TLTOP 

00287 

COMMON 

/CNTRLP/ 

XDAY 

00288 

COMMON 

/CNTRLP/ 

ZLNCO 

00289 

LOGICAL 

QHOG 

CCOMDECK  VRADCOM 
C 


00290 

C RADIATION 
COMMON 

00291 

COMMON 

00292 

COMMON 

00293 

COMMON 

00294 

COMMON 

00295 

COMMON 

00296 

COMMON 

00297 

COMMON 

00298 

COMMON 

00299 

COMMON 

00300 

COMMON 

00301 

COMMON 

00302 

COMMON 

00303 

COMMON 

00304 

COMMON 

00305 

COMMON 

00306 

COMMON 

00307 

COMMON 

00308 

COMMON 

00309 

COMMON 

00310 

COMMON 

0031  1 

COMMON 

)>,  RE  <72, 10) 
)),  RLE  172, 10) 
,9)t  PLKE(IO) 
3),  TLE  < 72, 10) 
» TH ( 72,9  > 


CLOUD ( 72 . 12) 


SSSE ( 72 , 10) 
HHE<72t 10) 


CVQ<72.9> 


SWI L < 72 , 9 ) 


TN{9)  t SRS ( 9 ) . STN<9> 


SVM02S50 

SVM02B60 

SVM02S70 

SVM02B80 

$VM02890 

$VM02900 

$VM02910 

$VM02920 

SVM02930 

$VM02940 

SVM02950 

SVM02960 

SVM02970 

SUM029Q0 

$VM02990 

SVM03000 

$VM030 1 0 

SVM03020 

SVM03030 

$VM03040 

$VM03050 

$VM03060 

$VM03070 

SVM03080 

SVM03090 

SVM03100 

$VM031 10 

$VM03120 

SVM03130 

$VM03140 

SVM03150 

$VM03160 

$VM03 170 

$VM03 180 

SVM03190 

SVM03200 

SVM03210 

SVM03220 

SVM03230 

SVM03240 

$VM032S0 

$VM03260 

$VM03270 

GVM03280 

SVM03290 

$VM03300 

SVM03310 

$\/M03320 

SVM03330 

SVM03340 

SVM03350 

SVM03360 

SVM03370 

5UM033S0 

SVM03390 

$VM03400 

$VM03410 

SVM03420 

$VM03430 

$VM03440 

$VM03450 

$VM03460 

SVM03470 

SUM03480 

5VM03490 

SVM03500 

$VM03B1o 

SVM03520 

SVM03530 

$VM03540 

SVM035S0 


s 

o 

W 

03 

H 


Ln 
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06313 
60314 
003  t 5 

00316 

00317 

00318 

00319 

00320 
0032  1 


00322 

00323 

00324 
00326 


00326 

00327 

00328 

00329 

00330 

00331 


00332 

00333 

00334 

00335 

00336 


00337 

00338 

00339 

00340 

00341 

00342 

00343 

00344 

00345 

00346 

00347 

00348 


00349 

00350 
0035  1 

00352 

00353 

00354 


§M|s  jgjggss? 

S3SSS  «8K  "" 

sa  Kitts;  Easj«?:-jasv?H*,io«a, 

S!7^EA;j!7^i!koSRos;j?,?i  „0ST 


CCOMDECK  VPCON 


C 

C 


C 

C 


PREfinSM^T50^LI,E^DS„E.R.?y.SyMULUS  CONVECTION 


COMMON 

COMMON 

COMMON 

COMMON 


PCON  / 
PCON  / 
PCON  / 
PCON  / 


PCMI  D ( 72 ) 
PCPEN { 72 ) 
PCLOW  < 72 ) 
PMDI ST ( 72 ) 


COMMON  /DMO I ST / EX (72) 

COMMON  /DMOIST / CFLUX(72) 
COMMON  /DMOIST/  DSHLM1(72) 
COMMON  /DMOIST/  DSHL{72 
COMMON  /DMOIST/  DTLMK72) 
COMMON  /DMOIST/  DTL(72) 


C 

C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


ZERO  s O.OEO 
ONE  = 1.0E0 

DO  10  1-1 , IM 
PMOIST(I)  = ZERO 

10  CONTINUE 



I”;  eliminate  negative  specific  humidity  ini 

*********.*******,.**„,  •**«**.  ***** ***„**.  ..mi 

DO  11  L=2.NLAV 
LM1  = L-J 

D0Df2GIIl?IMG<LM1  >/DSIGa> 

11,  ffHUI.LMD.GE. ZERO!  GO  TO  12 

JhMiIuWI)  l lEnoI,U  + SHL<I*'-M1)*DDSIG 

12  CONTINUE 

11  CONTINUE 

00  13  1=1  , IM 

13  cSNTfNulI•NLAY,•LT•2EBO,  SHL{ I , NLA Y)  = ZERO 

;;"***“**• 

INITIALIZE  DRY  AND  MOIST  STATIC  FNERPTP*?  III! 

III!  USING  TlnnMficMMiH|MipHn«S?.iSTURE  ADJUSTMENTS  **** 
**»*  FR0M  CUMULUS  PARAMETERIZATION  **** 

•*****•*■.*•+.****+*„*+*„„  **** ...  *******  .**»***, mi 

DO  20  L= 1 , NLAY 
DO  20  1 = 1,  IM 

SSSU.L)  = SSS(I.L)  + CVT(I.L) 

uuoii'h}  = SSS(  I , L > + CLH*  SHLU.L) 

20  CONTINUE  = SSS(I-L)  + CLH*SHSAT ( l , L > 



+ *** 


SVM03560 

$VM03570 

$VM035B0 

SVM03590 

SVM03GOO 

$VM03610 

SVM03620 

SVM03630 

SVM03640 

SVM03B50 

$VM036G0 

SVM03670 

SUM03680 

SVM03690 

SVM03700 

SVM03710 

SVM03720 

SVM03730 

SVM0374O 

SVM03750 

SVM03760 

SVM03770 

SVM03780 

SVM03790 

SVM03800 

SVM03810 

SVM03820 

SVM03B30 

SVM03B40 

SVM03850 

SVM038B0 

SVM03870 

SVM03B80 

$VM03890 

SVM03900 

SVM03910 

SVM03920 

SVM03930 

SVM03940 

SVM03950 

SVM03960 

$VM03970 

SVM03980 

SVM03990 

SVM04000 

SVM04010 

SVM04020 

SVM04030 

SVM04040 

SVM04050 

SVM04060 

SVM04070 

$VM04080 

SVM04090 

$VM04 1 00 

SVM041 10 

$VM04120 

$VM04 130 

SVM04140 

SVM04150 

SVM04160 

SVM04170 

SVM04180 

SVM04190 

$VM04200 

SVM04210 

SVM04220 

SVM04230 

$VM04240 

$VM04250 

SVM04260 


o 

M 

CO 

h-3 


on 
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00355 

00356 

00357 

00358 

00359 

00360 

00361 

00362 

00363 


00364 

00365 


00366 


00367 

0036B 

00369 


00370 


00371 

00372 

00373 


00374 

00375 

00376 

00377 

00378 

00379 


****  M01ST  ADIABATIC  ADJUSTMENT  LOOP  ++** 

*o«*  *******************  ******^*^^^^^^^^^*2** 


C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

rs 

-i 

-f 


DO  30  N=1 .3 
L = NLA V 

DO  40  LL=  1 , NLAYM1 
LMt  = L-l 

FACLM1  : gSIG<L>/«DSrG(L»+DStG<LM1,, 

ASGL  = ONE  / DSIG( L ) 

ASGLMJ  = ONE  / DSIG(LMI) 

DO  SO  1=1  , IM 

llll****** *********"'*************•****•***••»** ****** 

till  TEST  FOR  CONVECTIVE  INSTABILITY 

**»»**»**»**.«*»»»»*» *»•»»********»»»*.*»**»»*,.»**** 

155  *2-7  HH(I.L)  - HHS(I.LMI) 

IF(  EX ( I ) .LE.  ZERO  ) GOTO  50 

**»***’r******’,‘,,,*********'''***'‘'****','****'*,***’,'*,'*‘,*’‘’''’*** 

;;**  COMPUTE  EDGE  VALUES  llll 

: = *»********«****»****1.«*»***»»*»*t»* 

SSSEd, L>  * FACLM1*SSS{I,L)  + FACL*SSS( I ,LM1 J 
| - F ACLM 1 *FACL» ( PL ( I . L ) -PL ( I . LM1 > >*ROCP 

s *<  TL  ( I , L ) -TL  ( I , LM1  ) J/PLd.LMI) 

if,  IEJtS{i:t{  .5e"HSiTLI,’u  * '“■-••"••■•um 

* IhlI!’ :!:>  : !SM!il^:cr,/SHLe,,-L' 

5 SHSATd.LMI)  + (SSSd  . LM1  ) -SSSEd  , L >) /CLH  ) 

HHEd.LI  = SSSEd,  L)  ♦ CLH*SHLE  d , L ) 

nn***  ***********************  **********.******.***** 

****  COMPUTE  EVAPORATED  MOISTURE  •**+ 

»***»*********»*****,  ****  = .»*****,,****.*. 

DQEL  = FAiL*<DOEM1>'SSS<I’L)  * E* < 1 > * < ONE ♦GAMd . LM1 ) ) >/CLH 
DQELMt  s DQE  - DQEL 

ZIU  COMPUTE  MASS  FLUX  INTO  CLOUD  till 

****************  ***«*-***#l,***!i,i,*w  + t,9ft  + m*mi*aittKllll 

glafili : LIS!  IT?5’”  ? , ! * ,■  .g  alii  >■««  * -SSSE  < , . L . -ocH-o0et„ , 

"tsiui! : i;m''’o;Lu«"i!i-u'BHE‘i-1'  ”asol 
»fl  oFL<ixi!!:g?:gl!l!T!  ! gfi:S!!J!  : gliilT! 

*2* ** ***** *** ********** ****** tf* ******* *****  *********  * 

Hi!  **.~C2MPUTE  TEMPERATURE  llll 

****  and  moisture  adjustments  **** 


SVM04270 
SVM04280 
SVM04290 
SVM04300 
SVM04310 
SVM04320 
SVM04330 
SVM04340 
SVM04350 
5VM043SO 
SVM04370 
SVM04380 
SVM04390 
SVM04400 
SVM04410 
SVM04420 
SVM04430 
SVM04440 
SVM04450 
SVM04460 
SVM04470 
SVM04480 
SVM04490 
SVM04500 
SVM045 1 0 
SVM04520 
SVM04S30 
SVM0454O 
SVM04550 
SVM04560 
$VM04570 
$VM04580 
SVM04590 
$VM04600 
SVM04610 
SVM04620 
SVM04630 
SVM04640 
SVM04650 
SVM04660 
SVM04670 
SVM04680 
SVM04690 
SVM04700 
SVM04710 
SVM04720 
SVM04730 
SVM04740 
SVM04750 
SVM047G0 
$VM04770 
SVM04780 
SVM04790 
SVM04B00 
SVM04810 
SVM04820 
SVM04830 
SVM04840 
SVM048S0 
) SVM04860 
SUM04870 
SVM048S0 
SVM04890 
SVM04900 
SVM04910 
SVM04920 
SVM04930 
SVM04940 
SVM04950 
$VM04960 
SVM04970 


o o 

SB 

S| 

<0  «g 

£25 

forj 


3 


US?. 


MOIST  7 


Y > 1 A 


00380 
0038  t 

00382 

00383 


00384 

00385 

00386 

00387 

00388 

00389 

00390 

00391 

00392 

00393 

00394 

00395 

00396 

00397 

00398 

00399 

00400 

00401 

00402 


00403 

00404 

00405 

00406 

00407 

STATEMENT 

—LABEL--- 


C***+  -*•*** 

Q ***********+********************,*.,i,l|.******,l*lfc(#,**1,#l|f|t.+.# 

c 

OSHLMKI)  = CFLUX(I)  * ( SHSAT(I.LMI)  - SHLE(I.L)  + DQELM1 

SDC.MI,T,  + SrJll1U;tl?1,*EX(n/{  CLH»(OME+GAMU,LM1>)  ) 1+ASGLM1 
0 DSHL(I)  = CFLUH(I)  « < SHLE ( I , L ) - SHL ( I , L > + DOEL  i-ASGL 

DTLMI(l)  B CFLUX(I)  * < SSS<I,LM1)  - SSSE(I.L)  - CLH*DQELM1 

® + EX(I)  / {CNE+GAM < I , LM1 ) ) ) * ASGLM1 

c OTU(t)  = CFLUX<I>  * ( SSSEU.L)  - SSStl.L)  - CLH»DQEL  )*ASGL 

C ****  **** 

c ****  UPDATE  TEMPERATURE  AND  MOISTURE  FIELDS  **** 

C ****  AND  DRV  AND  MOIST  STATIC  ENERGIES  **** 

****  **** 


C 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


SHMI.LMO  - SHLU.LMM  + DSHLMKJ) 

SHL { I ,L)  = SHL ( I * L > + DSHL <I> 

TL(I,LM1>  = TL { I f LM1 ) + DTLM1 ( I > 

TLU.L)  = TL  < I # L ) + DTL(I) 

SSSU.LMI)  = SSSU.LMIJ  + DTLMHI) 

SSS { I t L ) = SSS(I,L)  + DTL ( I ) 

uSn,F?1>  ” HSH  •h?1  J + DTLM1<I)  + CLH*DSHLM1<I> 

HH( I » L ) = HH(I.L)  + DTL  { I ) + CLH*DSHL(I) 

itJIATjl.LMn  = QSAT  ( TL  ( I tLM1  ) i PL  (I  , LM1  ) ) 

SHSAT ( I p L ) = QSAT ( TL(I,L>  ,PL(I,L>  ) 

S*K5i ) 2 6AHFAC*SHSAT( I , LM1 > /TL  U , LM1 > **2 
GAMU.L)  = GAMFAC*SHSAT(I ,L>  /TL(I,L)**2 

HHfnAMt)  = SSSU.LM1)  + CLH*SHSAT ( I * LM1  ) 

HHS( I r L ) = SSS ( I » L ) + CLH*SHSAT  < I , L ) 


= PMOIST(I)  - DSHLM1 (I )*DSIG(LM1 ) - DSHL < I ) *OSIG ( L ) 


PMOIST ( I ) 

50  CONTINUE 

L = LM1 
40  CONTINUE 
30  CONTINUE 
C 

C ******* ******************* **** **  + **♦♦*•*♦******«,****«, 

c **** 

c ****  SCALE  PRECIPITATION  **•» 

c ****  **** 

c ************************************  ***-.*** 
c 

DO  60  1 = 1 , IM 

60  cSnTINuI’  * PWOISTC I ) * . 1E0*SP ( I ) /GRAV 

c 

RETURN 

END 

LABEL  MAP 

DEFINED REFERENCES 


341 

350 


10 

336 

334 

1 1 

345 

337 

12 

344 

340 

13 

348 

346 

20 

354 

349 

30 

402 

355 

40 

401 

357 

50 

399 

363 

SVM04980 

SVM04990 

SVM05000 

$VM05010 

$VM05020 

SVM05030 

SVM05040 

$VM05050 

SVM05060 

SVM05070 

SVM05080 

$VM05090 

SVM05 100 

$VM051 10 

SVM05120 

SVM05 130 

SVM05140 

$VM05 150 

$VM05 160 

SVM05170 

$VM05 1 80 

SVM05190 

SVM05200 

SVM05210 

SVM05220 

SVM05230 

$VM0S240 

SVM05250 

SVM05260 

SVM05270 

SVM052B0 

SVM05290 

SVM05300 

$VM0B3 1 0 

SVM05320 

SVM05330 

SVM05340 

SVM05350 

SVM05360 

$VM05370 

SVM05380 

SVM05390 

SVM05400 

$VM05410 

SVM05420 

SVM05430 

SVM05440 

$VM05450 

$VM05460 

SVM05470 

SVM05480 

SVM0549O 

SVM05500 

SVM055 1 0 

SVM05520 

$VM05530 

$VM05540 

SVM05550 

SVM05560 


O 

hM 

Ui 

H 

00 


O O 
*n  gj 

T3  Q 
02 

S3  p“ 

O *3 

C 'g 

J»  @ 

r*  SCO 


365 


60 


406 


403 


VARIABLE  MAP 


NAME 

---SLOCK 

-""TYPE 

-"CLASS 

■--REFERENCES 

A = 

ARGLIST. 

CsCTRL 

OF  DO  » I 

= DATA 

INI T , REREAD*  S= 

STORE,  W 

=WRITE 

ADATE 

CCNTRL 

CHARTS 

SIMPLE 

4 

17 

ADLDP 

RDPARM 

REAL 

SIMPLE 

212 

AL 

RADCOM 

REAL 

ARRAY 

305 

APHEL 

RCNTRL 

REAL 

SIMPLE 

162 

AS 

RADCOM 

REAL 

ARRAY 

290 

ASGL 

REAL 

SIMPLE 

361/S 

376 

381 

383 

ASGLM1 

REAL 

SIMPLE 

362/S 

375 

3B0 

382 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

6 

IS 

BETA 

RCNTRL 

REAL 

SIMPLE 

153 

CIO 

CNTRLP 

REAL 

SIMPLE 

260 

cioo 

CNTRLP 

REAL 

SIMPLE 

261 

C40 

CNTRLP 

REAL 

SIMPLE 

262 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

191 

CC 

CCNTRL 

CHARTS 

ARRAY 

15 

16 

CCO 

CCNTRL 

CHAR*B 

SIMPLE 

3 

16 

16 

CCNTRL 

REAL 

UNKNOWN 

a 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

CCSP06 

CCNTRL 

CHARTS 

SIMPLE 

1 4 
a 

21 

CC5P07 

CCNTRL 

CHARTS 

SIMPLE 

3 

22 

CCSP08 

CCNTRL 

CHAR+8 

SIMPLE 

10 

23 

CDATE 

RADCOM 

REAL 

ARRAY 

314 

CDFR 

CNTRLP 

REAL 

SIMPLE 

24B 

CD  XL 

CNTRLP 

REAL 

SIMPLE 

249 

CDXO 

CNTRLP 

REAL 

SIMPLE 

250 

CFLUX 

DMOIST 

REAL 

ARRAY 

327 

374/S 

375/S 

375 

376/S 

376 

377/S 

377 

378 

378/S 

379 

379/S 

380 

381 

382 

383 

CLH 

CNTRLP 

REAL 

SIMPLE 
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COMMON  CARD  < 1 0 ) . DATA  < (44  (,  CATAM44* 
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ATYP(8> * IWI D ( 8 ) , rDEC(8).  NUT ( 8 ) 

CHARACTER  *8  OUT(4) 

EQUIVALENCE  ( OUT ( 1 ) , NUT { I ) ) 

CHARACTER* 1 ATYP 

DATA  AT YP /6»  1 HA , 2 * 1 HI / , IWI D /6*4 . 2*6 / , IDEC/8*0/ 

CHA  RACTER  *8  BLANK  /8H  / WB  ' 

C * *■  4 
C DEBUG 
10000  CONTINUE 

C ****  CYBER  VECTOR  VERSION  00.001  INPUT  IOO 

#***  CYBER  VECTOR  VERSION  00 

C$SSSSSSSSSSSSSS$SSSSSSSSS$SSSS$S£SSSSSSSS£$$SSSSS$SSSSSSSSSSSS 

flllT  / (I  — mn 


OUT ( 1 ) = JOB 
OUT ( 2 ) = ADATE 
OUT ( 3 ) a AT1ME 
CALL  FORMSG  ('JOB  SS  : 
3 ATYP.IWJD 

CALL  WTO  < CARD , 80 ) 


BEGAN  SS 

, I DEC . OUT . CARD . 80 ) 


C RELAY  START  TIME 
OUT  < 1 ) =;  JOB 

OUT ( 2 ) - BLANK 
OUT ( 3 ) 
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= BLANK 
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RELAY  CURRENT  TIME 
OUT  < 1 ) = JOB 
OUT ( 2 ) = BLANK 
OUT ( 3 > = BLANK 
NUT  < 7 ) = NYMD 

NUT(B)  = NHMS 
CALL  FORMSG  ('JOB  SS  : 
* ATYP , IWID 

CALL  WTO  ( CARD , 80 ) 

► * 4> 

RELAY  END  TIME 
OUT ( 1 > = JOB 
OUT i 2)  a BLANK 
OUT ( 3 ) = BLANK 

NUT ( 7 ) = NVMDE 
NUT ( 8 ) = NHMSE 
CALL  FORMSG  ('JOB  SS  : 
3 ATYP,  IV/ ID, 

CALL  V/TO  (CARD.  80) 
RETURN 

END 


SS  SS  S S CURRENT  MODEL  TIME#' 
IDEC .OUT .CARD, 80  > 


SS  SS  S $ END  MODEL  TIME#/' 
IDEC . OUT .CARD , 80 ) 
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RSDIST 

RCNTRL 

REAL 

SIMPLE 

l 

SDA  V 

RCNTRL 

REAL 

SIMPLE 

I 

SEASON 

RCNTRL 

REAL 

SIMPLE 

SGNP 

RDPARM 

REAL 

ARRAY 

} 

SIG 

RDPARM 

REAL 

ARRAY 

SIGE 

RCNTRL 

REAL 

ARRAY 

) 

SINO 

RCNTRL 

REAL 

SIMPLE 

SI  NL 

RDPARM 

REAL 

ARRAY 

SINLON 

RDPARM 

REAL 

ARRAY 

• V'  : 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

SOLS 

RCNTRL 

REAL 

SIMPLE 

START 

LDP ARM 

LOGICAL 

SIMPLE 

THSTD 

RDPARM 

REAL 

SIMPLE 

THSTD2 

RDPARM 

REAL 

SIMPLE 

\ 

TSTO 

RCNTRL 

REAL 

SIMPLE 

A* 

VER 

CCNTRL 

CHARTS 

SIMPLE 

tv 

WSAVE 

RDPARM 

REAL 

ARRAY 

XLABEL 

CCNTRL 

CHAR  *8 

ARRAY 

-4 

; * 

PROCEDURE 

MAP 

pi 

* 

- -NAME  — ** " 

TYPE  - - * - ' 

FORMSG 

SUBROUTINE 

if 

1 

WTO 

SUBROUTINE 

156 

157 

1 58 

167 

168 

169 

178 

179 

180 

189 

190 

191 

217 

218 

219 

22B 

229 

230 

239 

240 

24  1 

250 

25  1 

252 

182 

240 

241 

183 

242 

243 

184 

185 
1B6 

244 
251 

187 

188 

245 


159 

160 

161 

170 

17  1 

172 

181 

162 

183 

192 

193 

194 

220 

221 

222 

231 

232 

233 

242 

243 

244 

162 

163 

164 

173 

174 

175 

184 

185 

186 

195 

IBS 

197 

223 

224 

2 25 

234 

235 

236 

245 

246 

247 

246 
105 

189 
213 

247 

248 

190 
10 

249 
1 1 


133 

216 

23 

24 


REFERENCES  D = STMT  FN  OEF  f A = ARGlIST 

265  272  279  286 

266  273  280  287 


t65  166 
176  177 
187  188 

226  227 
237  238 
24B  249 


J 

b 


rw 


00001 


, JM 

, 1 YNHMS 1 
♦CYXLABEL 
, I YNDRSW 
, I VNDPHY 
, I V JOS 


. 1MD2 
, I YNYMDE 


. IFIRST 
, I YNHMSE 


\ IYNHRSH  , t YMROD 
, I YNDSHF  * 


I YKL I ALB , I YKL1GW 
I YMATI N . I YMLF 


I YKLISST .1YKLIT0P, IYKLILW1 . 
IYNOT  . I YNSEQ  , 


, R YPSMI N , R YPSTD  , RYTSTD 


SUBROUTINE  NAMEZ  t IM 
$ I YNYMD 1 

$ CY JOB 

$ IYNDOUT 

$ IYNDALT 

$ I YJ04 

$ 

$ - - 

$ LYSN2FLG, 

$ RYPIMEAN, RYPSMAX 

$ RYSIGE  , R YGNU2 

Q*  ♦ ♦«'+*♦♦#■*  + ♦**♦♦♦*  ♦ ♦ + 

c PURPOSE  

TO  READ  MODEL  CONTROL  NAMELIST  INPUTH. 

USAGE 

CALLED  BY  INPUT 

INITIALIZE  FULL  PRECISION  WITH  DEFAULT  VALUES. 

THEN  READ  IN  THE  NAMELIST  FOLLOWED  BY 
INITIALIZING  WITH  INCOMING  VALUES. 

ARGUMENTS  DESCRIPTION 

GRID  POINT  LATITUDE  DIRECTION. 

GRID  POINT  LONGITUDE  DIRECTION. 

i (0  WHEN  BEFORE  READING  INITIAL  CONDITION) 
FOLLOWING  ARGUMENTS  ARE  RELATED  TO  NAMELIST 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IM 
JK 
IMD2 
IFIRST 


I YNYMD 1 
I YNHMS 1 
I YNYMDE 
I YNHMSE 
CY  JOB 
CYXLABEL 
IYNDOUT 
IYNDRSW 
IYNHRSH 


-1 


I YMROD 

IYNDALT 

IYNDPHY 

I YNDSHF 

I YJ04 

I YJ08 

1 YKLIALB 

I YKL I GW 

IYKLISST 

I VKLITOP 

IYKLILWI 

IYMATIN 

IYMFL 

IYNDT 

I YNSEQ 

LYSN2FLG 

RYPIMEAN 

RYPSMAX 

RYPSMIN 

RYPSTD 

RYTSTD 

RYSIGE 

RYGNU2 

I/O 


YYMMDD  AT  START  OF  EXPERIMENT 
HHMMSS  AT  START  OF  EXPERIMENT 
YYMMDD  AT  END  OF  EXPERIMENT 
HHMMSS  AT  END  OF  EXPERIMENT 
S CHARACTER  EXPERIMENT  IDENTIFIER 
80  CHARACTER  EXPERIMENT  DESCRIPTION 
HHMMSS  WRITE  INCREMENT  TO  HISTORY 
HHMMSS  WRITE  INCREMENT  TO  RESTART 
KEY  FOR  WRITE  OF  RESTART  TO  HISTORY 
FOR  START  AND  END  OF  EXPERIMENT 
0 FOR  NEVER 
N FOR  EVERY  N#  TH  DAY 
MAXIMUM  ALLOWABLE  WRITES  TO  UNIT  08 
HHMMSS  INCREMENT  FOR  ANALYSIS 
HHMMSS  INCREMENT  FOR  PHYSICS 

HHMMSS  INCREMENT  FOR  SHAPIRO  FILTER  CALLS 
BAND  LIMIT  FOR  4'TH  ORDER  SHAPIRO 
BAND  LIMIT  FOR  S'TH  ORDER  SHAPIRO 
ALBEDO  FLAG 
GROUND  WETNESS  FLAG 
SEA  SURFACE  TEMPERATURE  FLAG 
TOPOGRAPHY  REPLACEMENT  FLAG 
LAND-WATER- ICE  KEY  REPLACEMENT  FLAG 
MATSUNO  STEPS  BEFORE  REGULAR  CYCLE 
REGULAR  CYCLE  DESCRIPTION 
TIMESTEP  IN  SECONDS 
LENGTH  OF  REGULAR  CYCLE 
PBL  SIGMA  PROFILE  FLAG 
GLOBAL  MEAN  PRESSURE 

MAXIMUM  ALLOWABLE  SURFACE  PRESSURE 
MINIMUM  ALLAWABLE  SURFACE  PRESSURE 
REFERENCE  PRESSURE  FOR  NORMALIZATION 
REFERENCE  TEMP  FOR  NORMALIZATION 
SIGMA  VALUES  AT  EDGES  OF  LAYERS 
CONSTANT  FOR  USE  IN  TIME  AVERAGE 
DDNAME  DESCRIPTION 


1 1 


REWINDABLE  COPY  OF  CARD- IMAGE  DATA  FROM  UNIT  5 
REWINDED  IN  THE  CALLING  ROUTINE. 

SUBPROGRAMS  NEEDED 
NONE 

RECORD  OF  MODIFICATIONS 


1 TEMPNL I 


10/15/83 

02/02/84 

02/02/84 


RAMESH 
JIM.PF 
JIM. PF 


NEW  SUBROUTINE  FOR  HALF  PREC 
COMMENTS 

TOP  AND  LWI  REPLACEMENT  FLAGS 


VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

♦VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 

VNAMEZ 


2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 
GO 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 


-- 
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25 


\ 

$ 

:!!> 

: 

• > 

« i 

J 

K 

IV 

i 

i 

I. 

» 

j; 

i 

ye 

r.. 


00030 

00031 

00032 

00033 


REMARKS: 

DESIGNED  TO  READ  NAMELIST  IN  FULL  PRECISION  AND  CONVERT  IT 
IF  NECESSARY  TO  HALF  PRECISION. 

M/A-COWI  SIGMA  DATA  INC.  NASA  - GSFC 


C 

c 
c 
c* 

C* 

c* 

C 

C HALF/FULL  PRECISION 
C =================== 


SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COMPO ) 


COMMON 

BIT 

EQUIVALENCE 

COMMON 


/QAMDQT/  QSDIAG<72  ,15,46) 

8Q5DI AG ( 32 , 72, 15,46) 

( QSDI AG, BQSD1 AG ) 

/ QANDQT/  OUDI AG  <72,9,  S,46> 


VNAMEZ 
VNAMEZ 
VNAMEZ 
♦ VNAMEZ 
♦VNAMEZ 
♦VNAMEZ 
VNAMEZ 
VREAL 
VREAL 


73 

74 

75 

76 

77 

78 

79 
2 
3 


00002 

IMPLICIT  HALF  PRECISION 

(A-H.O-Z) 

VREAL 

4 

C 

VREAL 

5 

C 

VRSLV 

2 

C 

PARAMETER  STATEMENTS  FOR  DIMENSIONING  RESOLUTION 

VRSLV 

3 

C 

================== 

VRSLV 

4 

C 

VRSLV 

5 

C 

VRSLV 

6 

c 

VQANDQT 

2 

c 

COMDECK  VQANDQT  RESOLUTION 

VALUES 

VQANDQT 

3 

c 

=============== 

VQANDQT 

4 

c 

IM  -72 

VQANDQT 

5 

c 

NLA Y =9 

VQANDQT 

6 

c 

JM4 1 =46 

VQANDQT 

7 

c 

NLA  Y ♦ 1 t =99 

VQANDQT 

8 

c 

IM»NLAY*1I  =7128 

VQANDQT 

9 

c 

JM/2M  -23 

VQANDQT 

10 

c 

VQANDQT 

1 1 

c 

GLOBAL  MODEL  PROGNOSTIC  FIELDS  (NEEDED  IN  COMPO) 

VQANDQT 

12 

c 

VQANDQT 

13 

c 

VQANDQT 

14 

00003 

COMMON 

/QANDQT / QPR0G<72, 9, 11 ,46) 

VQANDQT 

15 

c 

VQANDQT 

16 

00004 

DIMENSION 

PHIS 

(7128,1) 

VQANDQT 

17 

00005 

DIMENSION 

SMTH 

(7128,23) 

VQANDQT 

18 

00006 

DIMENSION 

ALBEDO 

(7128,1) 

VQANDQT 

19 

00007 

DIMENSION 

GT 

(7128,1) 

VOANDQT 

20 

00008 

DIMENSION 

GW 

(7128,1) 

VQANDQT 

21 

00009 

DIMENSION 

TS 

(7123,1) 

VQANDQT 

22 

00010 

DIMENSION 

SHS 

(7128,1) 

VQANDQT 

23 

00011 

DIMENSION 

P 

(72.99,1) 

VQANDQT 

24 

c 

VQANDQT 

25 

00012 

DIMENSION 

U 

(72,9,11.1) 

VQANDQT 

26 

00013 

DIMENSION 

V 

(72,9,11.1) 

VQANDQT 

27 

00014 

DIMENSION 

T 

(72.9, 11,1) 

VQANDQT 

28 

00015 

DIMENSION 

SH 

(72,9,11.1) 

VOANDQT 

29 

00016 

DIMENSION 

PHI 

(72,9,11.1) 

VQANDQT 

30 

c 

VQANDQT 

31 

00017 

EQUIVALENCE 

( QPROG( 

i , i.i,n  ,pnrs  (i,i)> 

VQANDQT 

32 

oooia 

EQUIVALENCE 

{ QPROG ( 

1 , 2.1,1), SMTH  (1  . 1 ) ) 

VOANDQT 

33 

00013 

EQUIVALENCE 

(QPROGI 

1 , 3,1,1)  , ALBEDO ( 1,1)) 

VQANDQT 

34 

00020 

EQUIVALENCE 

( QPROG ( 

1 , 4,1,1), GT  (1.1)) 

VQANDQT 

35 

00021 

EQUIVALENCE 

( QPROG  ( 

1 , 5 , 1 . 1 ) , GW  (1,1)) 

VQANDQT 

36 

00022 

EQUIVALENCE 

( QPROG  ( 

1 , 6,1,1), TS  (1,1)) 

VQANDQT 

37 

00023 

EQUIVALENCE 

( QPROG  ( 

1 , 7,1,1)  .SHS  (1,1)) 

VQANDQT 

3B 

00024 

EQUIVALENCE 

{ QPROG ( 

1 , 8, 1 , 1 ) ,P  ( 1 , 1 , 1 ) ) 

VQANDQT 

39 

c 

VOANDQT 

40 

00025 

EQUIVALENCE 

( QPR0G1 

1,1,  2,  1 ) ,U  ( 1 , 1 , 1 , 1 ) ) 

VQANDQT 

41 

00026 

EQUIVALENCE 

( QPROG { 

1,1.  4, 1)  ,V  ( 1 , 1 , 1 , 1 ) ) 

VQANDQT 

42 

00027 

EQUIVALENCE 

t QPROG  < 

1,1,  6. 1 > ,T  < 1 , 1 , 1 , 1)) 

VQANDQT 

43 

00028 

EQUIVALENCE 

( QPROG  < 

1.1.  8 , 1 ) , SH  ( 1 , 1 , 1 , 1 ) ) 

VOANDQT 

44 

00029 

EQUIVALENCE 

{ QPROG ( 

1,1,10,1) .PHI ( 1 , 1 , 1 , 1 ) ) 

VQANDQT 

45 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VNAMEZ 


46 

47 

48 

49 

50 

51 
<52 

53 

54 

55 
83 
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00034 

00035 

00036 

00037 

00038 

00039 

00040 
0004  f 
00042 


00043 

00044 

00045 


00046 


C 

C 

C 

C 


C 

c 

c 

c 

c 

c 

c 


charagter^s  UO0 
SiJ?2ACTEft  + S CYdOB 

CHARACTER  »8  XLABFl  . 

^ctER.b  CVXLAMLj  SJ 

LOgIcIl  IVSN2FM312> 

fcSSwU  BVS?Gi^25J 


REAL 

REAL 

REAL 


SIGE  (25) 

SMTHNL  f 288 ,91) 

PIMEAN-  psmax.  PSMIM.  PSTOi  TST0  gnu2 


s^  = I-“°“^  = ^nAMETER  NAMELIST 

SEENr:  TE°HMICAL  °°™meMtat,ON  FOR  .XTM.lv.  OETAI LS 
CNAMEL,ST  /INPUTZ/  ST*  :R5g*L.««D.  . NHMSE  . 

M?  :K  ,:s  ’MROD  • 

ti04  ,d08 

MATfNS;MLFGW  ;nDTSST  ‘ E-UOP  ‘ KL  1 <-WI  ♦ 


C 

C 

C 

C 

C 

C 

C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


I 

I 

I 

I 

I 

L 

R 

R 


SN2F  LG  * 


, NSEQ 


s{S|AN:g^X  •£S»»  *pSTD 


VAR 

LOG 

DEFAULT 

NYMD1 

NHMSJ 

NYMDE 

NHMSE 

JOB 

XLABEL 

NDOUT 

ndrsw 

NKRSH 

/ IDPARM/ 
/ IDPARM/ 
/ICNTRL/ 
/ICNTRL/ 
/CCNTRL/ 
/CCNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 

000000 

000000 

000000 

000000 

ro+* 
030000 
060000 
- 1 

MROD 

ndalt 

ndphy 

NDSHF 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

25 

oooooo 

003000 

023000 

J04 

JOS 

MATIN 

MFL 

NOT 

nseq 

SN2FLG 

PIMEAN 

PSMAX 

PSMIN 

PSTD 

TSTD 

SIGE 

GNU2 

SMTHNL 


/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/lcntrl/ 

/rcntrl/ 

/Rcntrl/ 

/rcntrl/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 

/RCNTRL/ 


0 
0 

1 

1 * I 1 *0 
34200/ IM 
1 
F 

FROM  IC 
1200  . 

300. 

1000  . 

280 « 

UNIFORM 
0 . 

SEE  DEFALT 


SMTHNL ’ 
DESCRIPTION 


. TSTD 


Slpllllr 

KHHri0\wsJEii"l?Ls  sa® 
o1  ES  SMR”  85  ®TS?TijgiKSS?v 

N F0R  EVER V N'TH  Oiv 

»hmmssM I nc fi embn t E for  1 anal  J s 1 SM 1 t 08 

=«  BB  IS  a®is 

BAnS  lJm”  fSS  8*'?S  S5£*2  SHAPIflO 

.'iJJUTEP  IN  SECONDS 
LENGTH  OF  REGULAR  rvn  c 

hmmkbl 


84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 

2 

3 

4 

5 

6 

7 

8 
9 

to 
1 1 
12 

13 

14 

15 


vmamez 

VNAMEZ 
VNAMEZ 
VNAMEZ 
V NAME 2 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VNAMEZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ 
VINPUTZ  ,o 
VINPUTZ  16 
VINPUTZ  17 
VINPUTZ  18 
VINPUTZ  19 
VINPUTZ  20 
VINPUTZ  21 
VINPUTZ  22 
VINPUTZ  23 
VINPUTZ  24 
VINPUTZ  25 
VINPUTZ  26 
VINPUTZ  27 
VINPUTZ  28 
VINPUTZ  29 
VINPUTZ  30 
VINPUTZ  31 
VINPUTZ  32 
VINPUTZ  33 
VINPUTZ  34 
VINPUTZ  35 
VINPUTZ  36 
VINPUTZ  37 
VINPUTZ  38 
VINPUTZ  39 
VINPUTZ  40 
VINPUTZ  41 
VINPUTZ  42 
VINPUTZ  43 
VINPUTZ  44 
VINPUTZ  45 
VINPUTZ  46 
VINPUTZ  47 
VINPUTZ  48 
VINPUTZ  49 
VINPUTZ  50 
VINPUTZ  51 
VINPUTZ  52 
VINPUT2  53 
VINPUTZ  54 
VINPUTZ  55 
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00048 

00049 

00050 
0005! 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
00031 
00082 


00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 


KL I ALB  / ICNTRL/ 
KLIGW  /ICNTRL/ 
KLISST  /ICNTRL/ 
KLITOP  /ICNTRL/ 
KLILWI  /ICNTRL/ 


C 


ALBEDO  REPLACEMENT  FLAG 
GROUND  WETNESS  REPLACEMENT  FLAG 
SEA  SURFACE  TEMP  REPLACEMENT  FLAG 
TOPOGRAPHY  REPLACEMENT  FLAG 
LAND-WATER - ICE  REPLACEMENT  FLAG 


► + t ♦ * + ♦ i 


C DEBUG 
10000  CONTINUE 

C ****  CYBER  VECTOR  VERSION  00.001  INPUT  IOO 

*11*  £YBER  VECTOR  VERSION  00 


**  TRANSFER  DEFAULT  VALUES  TO 

* " LOCAL  NAMELIST  VARIABLES. 

PIMEAN  = RYPIMEAN 
PSMAX  = RYPSMAX 
PSMIN  - RYPSMIN 
PSTD  = RYPSTD 
TSTO  - RYTSTD 
GNU2  = RYGNU2 


NYMD1  = 
NHMS1  = 
NYMDE  = 
NHMSE  = 
JOB  = 
DO  5 let 
XLABEL ( I 
CONTINUE 
NDOUT  = 
NDRSW  - 
NKRSH  = 
MROD  = 
NDALT  = 
NDPHY  = 
NOSHF  = 
J04  = 

JOS  a 
KLIAL8  = 
KLIGW  = 
KLISST  = 
KLITOP  = 
KLILWI  “ 
MATIN  = 
DO  6 1=1 
MLF ( I ) = 
CONTINUE 
NDT 
NSEQ 

SN2FLG  = 


IYNYMD1 
IYNHMS1 
I Y NYMDE 
IYNHMSE 
CYJOB 
MO 

: ) = CYXLABEL ( I ) 

I YNDOUT 
I YNDRSW 
IYNKRSH 
I YMROD 
IYNDALT 
IYNDPHY 
I YNDSHF 
IYJ04 
I YJ08 
I YKLIALB 
I YKLIGW 
I YKLISST 
I YKLITOP 
I YKL-2LWX 
I YMATIN 
, 12 

I YMLF { I ) 

IYNDT 

IYNSEO 

LYSN2FLG 


99 

C 

C + * * * 


IF  ( I Ft RST. EQ. 0)  GOTO  25 
JESMTH  = JM  / 2 + 1 
DO  10  J = 1 , JESMTH 

SSSSSfe1il^«I“D2>  s SMTHM,  J;IMD2) 

CON  T I NUE 

DO  20  KTRANS  =1,25 

SIGE  (KTRANS)  = RYSI GE ( KTRANS ) 

REWIND  11 

READ  (11, INPUTZ. END=99) 

CONTINUE 

t***  *****♦  + »*  + * + + .«,  + ** + + *»**-*  + »+  » + + ****4  + ^ 


VINPUTZ  56 
VINPUTZ  57 
VINPUTZ  58 
VINPUTZ  59 
VINPUTZ  60 
VINPUTZ  61 
VNAMEZ  102 

♦ + * VNAMEZ  103 
VNAMEZ  104 
V8EGDEB  2 
VBEGDE8  3 
VBEGDEB  4 
VBEGDEB  S 

SSSVBEGDEB  6 
VNAMEZ  106 

♦ * ♦ VNAMEZ  107 

♦ ♦•’VNAMEZ  108 

♦ ♦ ♦ VNAMEZ  109 

♦♦♦VNAMEZ  110 

VNAMEZ  1 1 1 
VNAMEZ  It  2 
VNAMEZ  113 
VNAMEZ  114 
VNAMEZ  115 
VNAMEZ  116 
VNAMEZ  117 
VNAMEZ  118 
VNAMEZ  119 
VNAMEZ  120 
VNAMEZ  121 
VNAMEZ  122 
VNAMEZ  123 
VNAMEZ  124 
VNAMEZ  125 
VNAMEZ  126 
VNAMEZ  127 
VNAMEZ  128 
VNAMEZ  129 
VNAMEZ  130 
VNAMEZ  131 
VNAMEZ  132 
VNAMEZ  133 
VNAMEZ  134 
VNAMEZ  135 
VNAMEZ  136 
VNAMEZ  137 
VNAMEZ  138 
VNAMEZ  139 
VNAMEZ  140 
VNAMEZ  141 
VNAME2  142 
VNAMEZ  143 
VNAMEZ  144 
VNAMEZ  145 
VNAMEZ  146 
VNAMEZ  147 
VNAMEZ  148 
VNAMEZ  149 
VNAMEZ  150 
VNAMEZ  1ST 
VNAMEZ  152 
VNAMEZ  153 
VNAMEZ  154 
VNAMEZ  155 
VNAMEZ  156 
VNAMEZ  157 
VNAMEZ  158 
VNAMEZ  159 
VNAMEZ  160 
VNAMEZ  161 

♦ ♦VNAMEZ  162 


r ^ 


ORIGINAL  Ef 
©F  POOR  QUALITY 


C 

♦ * * : 

* TRANSFER  READ  IN  VALUES  FROM 

* * ♦ * VNAMEZ 

163 

C 

++*+  LOCAL 

NAMELIST  VARIABLES. 

♦***VNAMEZ 

164 

* t 

C 

***■♦•**♦*♦♦•♦♦  t V * ♦ ♦ * ♦ * * * * + + + + * ■»  * fr  « 

* * VNAME  Z 

165 

C 

VNAME2 

166 

00093 

IF  < IFIRST.EQ.O)  GOTO  35 

VNAMEZ 

167 

i 00094 

DO  30  J = t.oJESMTH 

VNAMEZ 

1GB 

\ 00095 

SMTH  ( 1 , d ; IMD2)  = ! 

SMTHNL ( 1 , d; IMD2) 

VNAMEZ 

t69 

1 00096 

30 

CONTINUE 

VNAMEZ 

170 

J ■ 

C 

VNAMEZ 

171 

i 00097 

35 

DO  40  KTRANS  =1,25 

VNAMEZ 

172 

} 00098 

40 

RYSIGE  (KTRANS)  - 

SIGE ( KTRANS ) 

VNAMEZ 

173 

1 00099 

RYPIMEAN  = PIMEAN 

VNAMEZ 

174 

| 00100 

RYPSMAX  = PSMAX 

VNAMEZ 

175 

i 00101 

RYPSMIN  = PSMIN 

VNAMEZ 

176 

j 00102 

RYPSTD  = PSTD 

VNAMEZ 

177 

1 00103 

RYTSTD  = TSTD 

VNAMEZ 

178 

i ; 00104 

RYGNU2  = GNU2 

VNAMEZ 

179 

* f 

C 

VNAMEZ 

ISO 

\ ' 

c 

VNAMEZ 

181 

t : 00105 

IYNVMD1  = NYMD1 

VNAMEZ 

182 

J 

i 00106 

IYNHMS1  = NHMS1 

VNAMEZ 

183 

1 00107 

IYNYWIDE  = NYMDE 

VNAMEZ 

184 

; ooi os 

IYNHMSE  = NHMSE 

VNAMEZ 

185 

00109 

CYJOB  = dOB 

VNAMEZ 

1 86 

001  10 

DO  55  1=1,10 

VNAMEZ 

187 

001  1 1 

CYXLABEL ( I ) = XLABEL(I) 

VNAMEZ 

IBS 

001  12 

95 

CONTINUE 

VNAMEZ 

1 09 

00  113 

IVNDOUT  = NDOUT 

VNAMEZ 

190 

K 

00114 

IVNDRSW  = NDRSW 

VNAMEZ 

191 

001  15 

IYNKRSH  = NKRSH 

VNAMEZ 

192 

f” 

00  116 

IYMROD  = MROD 

VNAMEZ 

193 

00  117 

IYNDALT  * NDALT 

VNAMEZ 

194 

••'i  001  IB 

IYNDPHY  = NDPHY 

VNAMEZ 

195 

i 

00119 

IYNDSHF  * NDSHF 

VNAMEZ 

196 

■A 

00120 

I Yd04  = J04 

VNAMEZ 

197 

r.v 

00121 

I Yd08  = dOB 

VNAMEZ 

198 

00122 

IYKLIALB  = KLIALB 

VNAMEZ 

199 

00123 

IYKLIGW  - KLIGW 

VNAMEZ 

200 

00124 

IYKLISST  = KLISST 

VNAMEZ 

201 

• * 

00125 

I YKL I TOP  = KLITOP 

VNAMEZ 

202 

L'{J 

00  126 

IYKLILWI  = KLILWI 

VNAMEZ 

203 

tB 

00127 

IYMATIN  = MATIN 

VNAMEZ 

204 

» i 

00  128 

DO  56  1=1,12 

VNAMEZ 

205 

1 

00129 

IYMLF(I)  = MLF ( I > 

VNAMEZ 

206 

f»V 

00130 

56 

CONTINUE 

VNAMEZ 

207 

•\ 

00131 

IYNDT  = NDT 

VNAMEZ 

208 

00132 

IYNSEQ  = NSEQ 

VNAMEZ 

209 

00  133 

LYSN2FLG  = SN2FLG 

VNAMEZ 

210 

c 

VNAMEZ 

21  1 

i 

00  134 

RETURN 

VNAMEZ 

212 

00  135 

END 

VNAMEZ 

2 13 

STATEMENT 

LABEL  MAP 

r 

--LABEL- 

DEFINED REFERENCES 

r 

i 

10 

87 

85 

! ‘ 

10000 

47 

\ . 

20 

SS 

8B 

r 

25 

90 

83 

30 

96 

94 

i ! 

35 

97 

93 

1 

40 

98 

97 

5 

61 

59 

t | 

55 

1 

12 

1 10 

56 

1 

30 

128 

* 

6 

79 

77 

99 

92 

91 

VARIABLE  MAP 

--NAME BLOCK TYPE CLASS REFERENCES  A = ARGl  I ST  , C=CTRL  OF  DO,  I =DATA  INIT,  R = RE  AD  r S=  STORE  , W= WRITE 


& 


N 

Ul 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


ALBEDO 

QANDQT 

HALF 

ARRAY 

6 

19 

BOSDIAG 

QANDQT 

BIT 

ARRAY 

31 

32 

CYJOB 

CHAR *8 

SIMPLE 

1 

35 

CYXLABEL 

CHARTS 

ARRAY 

1 

37 

GNU2 

REAL 

SIMPLE 

45 

46 

GT 

QANDQT 

HALF 

ARRAY 

7 

20 

GW 

QANDQT 

HALF 

ARRAY 

8 

2 1 

I 

INTEGER 

SIMPLE 

59/C 

60 

129 

IFIR5T 

INTEGER 

SIMPLE 

1 

83 

IM 

INTEGER 

UNKNOWN 

1 

IMD2 

INTEGER 

SIMPLE 

1 

86 

INPUTZ 

INTEGER 

SIMPLE 

46 

91 

IYJ04 

INTEGER 

SIMPLE 

1 

69 

I Yd 08 

INTEGER 

SIMPLE 

1 

70 

I YKLIALB 

INTEGER 

SIMPLE 

1 

7 1 

IYKLIGW 

INTEGER 

SIMPLE 

I 

72 

1YKL1LWI 

INTEGER 

SIMPLE 

1 

75 

IYKLISST 

INTEGER 

SIMPLE 

1 

73 

I YKL I TOP 

INTEGER 

SIMPLE 

1 

74 

IYMATIN 

INTEGER 

SIMPLE 

1 

76 

IYMLF 

INTEGER 

ARRAY 

1 

39 

I YMROD 

INTEGER 

SIMPLE 

1 

65 

IYNDALT 

INTEGER 

SIMPLE 

1 

66 

IYNDOUT 

integer 

SIMPLE 

1 

62 

IYNDPHY 

INTEGER 

SIMPLE 

1 

67 

IYNDRSW 

INTEGER 

SIMPLE 

1 

63 

I YNDSHF 

INTEGER 

SIMPLE 

1 

68 

IYNDT 

INTEGER 

SIMPLE 

1 

80 

IYNHM51 

INTEGER 

SIMPLE 

1 

56 

I YNHMSE 

INTEGER 

SIMPLE 

1 

57 

IYNKRSH 

INTEGER 

SIMPLE 

1 

64 

IYNSEQ 

INTEGER 

SIMPLE 

1 

a i 

3 YNYMD1 

INTEGER 

SIMPLE 

1 

54 

I YMVMDE 

INTEGER 

SIMPLE 

1 

56 

iJ 

INTEGER 

SIMPLE 

B5/C 

86 

JESMTH 

INTEGER 

SIMPLE 

S4/S 

85 

JM 

INTEGER 

SIMPLE 

1 

84 

J04 

INTEGER 

SIMPLE 

46 

69/S 

JOB 

INTEGER 

SIMPLE 

46 

70/S 

JOB 

CHARTS 

SIMPLE 

34 

46 

KLIALB 

INTEGER 

SIMPLE 

46 

71/S 

KLIGW 

INTEGER 

SIMPLE 

46 

72/S 

KL1LWI 

INTEGER 

SIMPLE 

46 

75/S 

KLISST 

INTEGER 

SIMPLE 

46 

73/S 

KLITOP 

INTEGER 

SIMPLE 

46 

74/S 

KTRANS 

INTEGER 

SIMPLE 

B8/C 

89 

LYSN2FLG 

LOGICAL 

SIMPLE 

1 

4 1 

MAT  I N 

INTEGER 

SIMPLE 

46 

76/S 

MLF 

INTEGER 

ARRAY 

38 

46 

MROD 

INTEGER 

SIMPLE 

46 

65/S 

NAMEZ 

SUBROUTINE 

1 

NDALT 

INTEGER 

SIMPLE 

46 

66/S 

NDOUT 

INTEGER 

SIMPLE 

46 

62/S 

MDPHY 

INTEGER 

SIMPLE 

46 

67/S 

NDRSW 

INTEGER 

SIMPLE 

46 

63/S 

NDSHF 

INTEGER 

SIMPLE 

46 

68/S 

NOT 

INTEGER 

SIMPLE 

46 

80/S 

NHMS1 

INTEGER 

SIMPLE 

46 

55/S 

NHMSE 

INTEGER 

SIMPLE 

46 

57/S 

NKRSH 

INTEGER 

SIMPLE 

46 

64/S 

NSEQ 

INTEGER 

SIMPLE 

46 

8 1 /S 

NYIV1D1 

INTEGER 

SIMPLE 

46 

54/S 

NYMDE 

INTEGER 

SIMPLE 

46 

56/S 

P 

QANDQT 

HALF 

ARRAY 

1 1 

24 

PHI 

QANDQT 

HALF 

ARRAY 

16 

29 

PHIS 

QANDQT 

HALF 

ARRAY 

4 

17 

PIMEAN 

REAL 

SIMPLE 

45 

46 

PSMAX 

REAL 

SIMPLE 

45 

46 

PSMIN 

REAL 

SIMPLE 

45 

46 

SB 

60 

63/S 


109/S 
I 1 1/S 
104 


1 10/C  111  111 


f 28 /C  129 


121 

58/S 

122 

123 
126 

124 

125 
B9 
82 

127 

78/S 

116 


s? 

<2  *g 

> j@ 


.♦JOm— 


<c 


PSTD 

QANDQT 

QPROG 

QSDIAG 

QUO I AG 

RYGNU2 

RYPIMEAW 

RVPSMAX 

RYPSMIW 

RYPSTD 

RYSIGE 

RYTSTO 

SH 

SH5 

SIGE 

SMTH 

SMTHNL 

SW2FLG 

T 

TS 

TSTD 


XLABEL 


QANOQT 

QANDQT 

QANDQT 


QANDQT 

QANDQT 

QANDQT 


QANDQT 

QANDQT 

QANDQT 

QANDQT 


REAL 

HALF 

half 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

REAL 

HALF 

REAL 

LOGICAL 

HALF 

HALF 

REAL 

HALF 

HALF 

CHAR+8 


SIMPLE 

UNKNOWN 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 


45 

3 

3 

27 

30 

33 


15 

10 

43 
5 

44 
40 
14 

9 

45 
12 
13 
36 


46 

51/S 

1 02 

30 

33 

1 7 
28 

18 

29 

19 

20 

2 1 

22 

23 

24 

32 


25 


26 


53  104/S 

48  99/S 

49  100/S 


50 

101/S 

5 f 

t 02/S 

42 

89 

98/S 

52 

1 03/S 

28 

23 

46 

89/S 

98 

18 

86 

95/S 

4G 

86/S 

95 

46 
o •? 

82/S 

133 

22 

46 

52/S 

103 

25 

26 
46 

60/S 

1 1 1 

oo 

■n  gj 

■dH 

O % 
O 

(O  TU 

c > 

£8 

3a 


N 


0000  1 


00002 


00003 

00004 

00005 

00006 

00007 

00008 
00009 
000  10 


SUBROUTINE  MAMPHY  ( RVCDXL, 
$ RYFWET, 

$ XSNTOP, 

$ YLTM1N , 

$ YLEFLUK . 

$ YLUFLUH, 

$ YLOMEGA , 

(>****  ********  *********  *********** 


RYCDXO, 
I YNDHOG , 
XSNLWI  . 
YLTMAX , 
YLFUSION. 

YLVFLUX t 
YLDI ABAT , 


RYED, 
IYNFLW, 
XSNSST , 
YLPRECON , 
YLRAOSWG , 


RYFMU  , 

XSNALB , 
YLHFLUX  t 
YL ICLOUD  * 


YLRAOSW , YLPREACC ) 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


►♦**♦*  ************************ 


PURPOSE 

TO  READ  MODEL  CONTROL  NAMELIST  INPHYS. 

USAGE 

CALLED  BY  DEPEND 

INITIALIZE  FULL  PRECISION  WITH  DEFAULT  VALUES. 
THEN  READ  IN  THE  NAMELIST  FOLLOWED  BY 
INITIALIZING  WITH  INCOMING  VALUES. 


ARGUMENTS 
RYCDXL 
RYCDXO 
RYED 
RYFMU 
RYFWET 
I YNDHOG 
IYNFLW 
XSNTOP 
XSNLWI 
XSNSST 
XSNALB 
XSWGWT 
YLTMIN 
YLTMAX 
YLPREACC 
YLPRECON 
YLHFLUX 
YLEFLUX 
VLFUSION 
YLRADSWG 
YLI CLOUD 
YLOMEGA 
YLDI ABAT 
YLRADSW 
YLUFLUX 
YLVFLUX 


DESCRIPTION  (SEE  INPHYS  COMMON) 


DATA 
DATA 
DATA 
DATA 
DATA 
MINIMUM 
MAXIMUM 


SET 

SET 

SET 

SET 

SET 


NAME  FOR  REPLACEMENT 
NAME  FOR  REPLACEMENT 
NAME  FOR  REPLACEMENT 
NAME  FOR  REPLACEMENT 
NAME  FOR  REPLACEMENT 
DAILY  SURFACE  TEMPERATURE 
DAILY  SURFACE  TEMPERATURE 
TOTAL  ACCUMULATED  PRECIPITATION 
CONVECTIVE  PRECIPITATION 
SENSIBLE  HEAT  FLUX 
EVAPORATIVE  FLUX 

HEAT  STORED  IN  FREEZING  AT  GROUND 
SOLAR  RADIATION  AT  GROUND 
CLOUD  FLAGS 

VERTICAL  VELOCITY  {ALL  LEVELS) 
DIABATIC  HEATING  (ALL  LEVELS) 
SOLAR  RADIATION  (ALL  LEVELS) 

NET  UPWARD  FLUX  OF  U-MOMENTUM 
NET  UPWARD  FLUX  OF  V-MOMENTUM 


TOPOGRAPHY 
LAND-WATER-ICE 
SEA  SURF  TEMP 
ALBEDO 

GROUND  WETNESS 


KEY 


I/O  UNITS  USED 

REWINDABLE  COPY  OF  CARD-IMAGE  DATA  FROM  UNIT  5 (TEMPNL) 
SUBPROGRAMS  NEEDED 
NONE 

RECORD  OF  MODIFICATIONS 

10/15/83  RAMESH  NEW  PGM 

01FEB84  JIM.PF  COMMENTS 

02FEB84  JIM.PF  ADDED  ARGS  FOR  SURF  DATA  SET  NAMES 

REMARKS l 

DESIGNED  TO  READ  NAMELIST  IN  FULL  PRECISION  AND  CONVERT  IT 
IF  NECESSARY  TO  HALF  PRECISION. 

Q****+**********  .»•***  ************  im 

C*  M/A-COM  SIGMA  DATA  INC 


C i 
C 
C 
C 

C 

C 


***********  * * * * 


K**********  + * * * * 


.*•***  *****  t i 

NASA 
■ » * * *******^ 


*********  *** 

- G S F C 
************ 


HALF/FULL  PRECISION 

IMPLICIT  HALF  PRECISION  (A-H.O-Z) 


CHARACTER’ 

CHARACTER’ 

LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 
LOGICAL 


XSNTOP  < 4 > , XSNLWI ( 4 ) , XSNSST ( 4 ) . XSNALB ( 4 ) . XSNGWT ( 4 ) 
DSNTOP ( 4 ) , DSNLWI ( 4 ) , DSNSST ( 4 ) , DSNAL8 ( 4 ) , DSNGWT { 4 ) 


LTMIN 

YLTMIN 

LTMAX 

YLTMAX 

LPREACC 

YLPREACC 


VNAMEP  2 
VNAMEP  3 
XSNGWT,  VNAMEP  4 
VNAMEP  5 
VNAMEP  6 
VNAMEP  7 
VNAMEP  8 

****** **VMAMEp  9 

VNAMEP  10 
VNAMEP  1 I 
VNAMEP  1 2 
VNAMEP  13 
VNAMEP  14 
VNAMEP  15 
VNAMEP  16 
VNAMEP  17 
VNAMEP  18 
VNAMEF/  19 
VNAMEP  20 
VNAMEP  21 
VNAMEP  22 
VNAMEP  23 
VNAMEP  24 
VNAMEP  25 
VNAMEP  26 
VNAMEP  27 
VNAMEP  28 
VNAMEP  29 
VNAMEP  30 
VNAMEP  31 
VNAMEP  32 
VNAMEP  33 
VNAMEP  34 
VNAMEP  35 
VNAMEP  36 
VNAMEP  37 
VNAMEP  38 
VNAMEP  39 
VNAMEP  40 
VNAMEP  41 
VNAMEP  42 
VNAMEP  43 
VNAMEP  44 
VNAMEP  45 
VNAMEP  46 
VNAMEP  47 
VNAMEP  48 
VNAMEP  49 
VNAMEP  50 
VNAMEP  51 
VNAMEP  52 
VNAMEP  53 
VNAMEP  54 
’•'VNAMEP  55 
♦VNAMEP  56 
♦VNAMEP  57 
VNAMEP  58 
VREAL  2 
VREAL  3 
VREAL  4 
VREAL  5 
VNAMEP  60 
VNAMEP  61 
VNAMEP  62 
VNAMEP  63 
VNAMEP  64 
VNAMEP  66 
VNAMEP  66 
VNAMEP  67 
VNAMEP  68 
VNAMEP  69 


© o 

rj 

3 H 
o ^ 

53  IT* 

£3 


m 


3 


NAMPHY  1 


000  1 1 
000  12 

00013 

00014 

00015 

00016 

00017 

00018 
000  19 
00020 

0002  t 
00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

0003  1 
00032 


00033 

00034 

00035 

00036 

00037 


00038 


C 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LOGICAL 

logical 

logical 

logical 

logical 

logical 

logical 

logical 

logical 

logical 

logical 

logical 

logical 

LOGICAL 

LOGICAL 

LOGICAL 

logical 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


LPRECON 
VL  PRECON 
LHFLUX 
VLHFLUX 
LEFLUX 
YLEFLUX 
LFUSION 
YLFUSION 
LRADSWG 
VLRADSWG 
LICLOUD 
YL I CLOUD 
LOMEGA 
YL OMEGA 
LDI ABAT 
VLDIABAT 
LRADSW 
YLRADSW 
LUFLUX 
VLUFLUX 
L VF  LUX 
VLVFLUX 


KH5.IS?KSi52.rf2ii!!:f?.?!!?.e!:?ers  defined  to  bf  full  precision. 

REAL  CDXL  "“  = - = - = = = =*  = - = = s = = = 3 = 

REAL  CDXO 

REAL  ED 

REAL  FMU 

REAL  FWET 


PHYSICS  INPUT  NAMELIST 


X 
C 
S 
s 
s 
u 

VAR 

CDXL 

CDXO 

EO 

FMU 

FWET 

NDHOG 

NFLW 

DSNLWI 

DSNALB 

DSNGWT 

DSNSST 

OSNTOP 

LTMIN 

LTMAX 

LPREACC 

LPRECON 

LHFLUX 

LEFLUX 

LFUSION 

LRADSWG 

LICLOUD 

LUFLUX 

LVFLUX 

LOMEGA 

LDI ABAT 

LRADSW 


NAMELIST  /INPHYS/* 


LOC 


CDXL. 
FWET. 
DSNLWI . 
LTMIN 


FMU, 


CDXO,  ED, 

NDHOG,  NFLW, 

DSNALB,  DSNGV/T,  DSNSST. 

. 4 LTMAX,  LPRECON,  LHFLUX. 

^FLUX,  LFUSION,  LRADSWG,  LICLOUD 

JUPliiv  LVFLUX,  LPREACC ! 

LDIABAT,  LRADSW 


DSNTOP , 


LUFLUX, 

LOMEGA 


/MNTHLY/ 

/MNTHLY/ 

/MNTHLY/ 

/MNTHLY/ 

/MNTHLY/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 

/ICNTRL/ 


DEFAULT 

0.5  “ 

0.5 

0,5 

0. 00067 
0.5 

030000 

5 

(DEPEND) 

(DEPEND) 

(DEPEND) 

(DEPEND) 

(DEPEND) 

.TRUE. 

. TRUE. 

. TRUE. 
•TRUE. 

. TRUE. 

* TRUE . 
•TRUE . 
.TRUE. 
.TRUE. 
.FALSE . 

. FALSE. 

. TRUE. 

. TRUE . 
.TRUE. 


DESCRIPTION 


Afn£nSAII2r!CE  REpLACEMENT  DATA  SET 
okSSSS  REPLACEMENT  DATA  SET 
GROUND  WETNESS  REPLACEMENT  DATA  SET 
?EA  SURF  TEMP  RE PLACEMENT  DATA  SET 
TOPOGRAPHY  REPLACEMENT  DATA  SET 
MINIMUM  DAILY  SURFACE  TEMPERATURE 
MAXIMUM  DAILY  SURFACE  TEMPERATURE 
TOTAL  ACCUMULATED  PRECIPITATION 
CONVECTIVE  PRECIPITATION  *ATION 
SENSIBLE  HEAT  FLUX 
EVAPORATIVE  FLUX 

FREEZING  AT  GROUND 

2ADIATION  AT  ground 

CLOUD  FLAGS 

mII  OF  ^-MOMENTUM 

uIItVSa^RP^FLUK  0F  v-momentum 

VERTICAL  VELOCITY  (ALL  LEVELS) 
DIABATIC  HEATING  (ALL  LEVELS) 

SOLAR  RADIATION  (ALL  LEVELS) 


VNAMEP 

70 

VNAMEP 

71 

VNAMEP 

72 

VNAMEP 

73 

VNAMEP 

74 

VNAMEP 

75 

VNAMEP 

76 

VNAMEP 

77 

VNAMEP 

78 

VNAMEP 

79 

VNAMEP 

80 

VNAMEP 

81 

VNAMEP 

82 

VNAMEP 

83 

VNAMEP 

84 

VNAMEP 

85 

VNAMEP 

86 

VNAMEP 

87 

VNAMEP 

88 

VNAMEP 

89 

VNAMEP 

90 

VNAMEP 

91 

VNAMEP 

92 

VNAMEP 

93 

VNAMEP 

94 

VNAMEP 

95 

VNAMEP 

96 

VNAMEP 

97 

VNAMEP 

98 

VNAMEP 

99 

VNAMEP 

100 

VINPHYS 

2 

VINPHVS 

3 

VINPHYS 

4 

VINPHYS 

5 

VINPHVS 

6 

VINPHYS 

7 

VINPHYS 

8 

VINPHYS 

9 

VINPHYS 

10 

VINPHYS 

1 1 

VINPHYS 

12 

VINPHYS 

13 

VINPHYS 

14 

VINPHYS 

15 

VINPHYS 

16 

VINPHYS 

17 

VINPHVS  18 
VINPHYS  19 
VINPHVS  20 
VINPHYS  21 
VINPHYS  22 
VINPHYS  23 
VINPHYS  24 
VINPHYS  25 
VINPHYS  26 
VINPHYS  27 
VINPHYS  28 
VINPHVS  29 
VINPHYS  30 
VINPHYS  31 
VINPHYS  32 
VINPHYS  33 
VINPHYS  34 
VINPHYS  35 
VINPHYS  36 
VINPHYS  37 
VINPHYS  38 
VINPHYS  39 
VINPHYS  40 
VINPHYS  41 


ori&nal  page  is 

OF  POOR  QUALITY 


c VNAMEP  102 

^[**♦**♦*  + ■**  + + + ♦***♦♦♦  + ♦t*  + ++  ♦♦♦*^'♦♦*♦♦♦♦♦♦♦  + ♦♦♦♦♦♦♦*♦♦*  + *i'**♦♦***,‘’**,*  *♦  * VNAMEP  1 03 
C VNAMEP  104 

C OEBUG  VBEGDEB  2 

10000  CONTINUE  MilSRIS  5 

c + ***  CYBER  VECTOR  VERSION  00.001  INPUT  IOO  VBEGDEB  4 

C * + * + CYBER  VECTOR  VERSION  00  VBEGDEB  S 

CS$$$$SS$S$$$$SS$$$$S$$SSS$S$SS$$$$$SS$$$$£S$$$$$$SSS$$$$$$SS$SS$$£SS$S$VBEGDEB  6 

q VNAMEP  106 

q + + ****.*  + **  + *■*#'+*  + *»♦*■*  + * + ***■**♦♦'*'♦*♦****  + ♦ ***■*♦*♦♦♦  + ♦♦**♦**♦♦♦♦**♦♦♦♦  * VNAMEP  10  7 
C ♦ ♦ ♦♦  TRANSFER  DEFAULT  VALUES  TO  ♦♦♦♦VNAMEP  108 

C ***♦  LOCAL  NAMELIST  VARIABLES,  ♦♦♦♦VNAMEP  109 

p ♦ ♦^♦♦♦♦♦♦♦■♦♦•^'♦'♦^♦^■•■♦'♦'♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦'♦♦♦•♦♦'♦♦♦'♦♦♦♦♦♦♦*  ♦VNAMEP  110 
q VNAMEP  1 1 1 

CDXL  = RYCDXL  VNAMEP  112 

CDXO  = RYCDXO  VNAMEP  113 

ED  = RYED  VNAMEP  114 

FMU  a RYFMU  VNAMEP  115 

fv;et  = ryfwet  vnamep 

NDHOG  = IYNDHOG  VNAMEP  117 

NFLW  = IYNFLW  VNAMEP  118 

DO  45  K a 1,4  VNAMEP  1 19 

DSNTOPUO  » XSNTOP  UO  VNAMEP  120 

DSNLV/l  ( K > = XSNLWIUO  VNAMEP  12  1 

DSNSSTUO  = XSNSST(H)  VNAMEP  122 

DSNALB ( K ) = XSNALB  UO  VNAMEP  123 

DSNGWTOO  = XSNGWT  t K ) VNAMEP  124 

45  CONTINUE  VNAMEP  125 

LTMIN  - YLTMIN  VNAMEP  126 

LTMAX  - YLTMAX  VNAMEP  127 

LPREACC  “ YLPREACC  VNAMEP  128 

LPRECON  = YLPRECON  VNAMEP  t29 

LHFLUX  a YLHFLUX  VNAMEP  130 

LEFLUX  - YLEFLUX  VNAMEP  131 

LFUSION  a VLFUSION  VNAMEP  132 

LRADSWG  a YLRADSWG  VNAMEP  133 

LICLOUD  - YL I CLOUD  VNAMEP  134 

LOMEGA  = YLOMEGA  VNAMEP  135 

LDIABAT  = YLDIABAT  VNAMEP  136 

LRADSW  “ YLRADSW  VNAMEP  137 

LUFLUX  = YLUFLUX  VNAMEP  138 

LVFLUX  = YLVFLUX  VNAMEP  139 

c VNAMEP  140 

READ  { 1 1 , INPHYS, END=48>  VNAMEP  141 

48  CONTINUE  VNAMEP  142 

WRITEO  . INPHYS)  VNAMEP  143 

0 VNAMEP  144 

0 ♦‘♦♦’♦♦♦♦♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦'•■♦♦♦♦♦♦♦♦♦♦♦♦  + ♦♦♦*♦♦♦♦  ♦♦♦♦♦♦♦♦•  ♦VNAME  P 145 

C ♦♦♦♦  TRANSFER  READ  IN  VALUES  FROM  ♦♦•VNAMEP  146 

C ♦♦*♦  LOCAL  NAMELIST  VARIABLES.  ♦♦♦VNAMEP  147 

0 * + + ♦♦**.♦■**■♦♦♦♦'*•♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦  ♦♦♦♦♦♦♦♦  + ♦♦♦♦*♦♦♦♦+  + ♦ ♦♦*♦♦♦♦♦♦  ♦ VNAME  P 148 
q VNAMEP  149 

RYCDXL  = CDXL  VNAMEP  150 

RYCDXO  » CDXO  VNAMEP  151 

RYED  « ED  VNAMEP  152 

RYFMU  » FMU  VNAMEP  153 

RYFWET  = FWET  MH5521S 

IYNDHOG  = NDHOG  ’NAMEP  55 

IYNFLW  = NFLW  VNAMEP  156 

DO  65  K = 1,4  VNAMEP  157 

XSNTOP  i K ) = OSNTOP(K)  MKOKHE 

XSNLWIUO  a DSNLWX(K)  VNAMEP  159 

XSNSST(K)  o DSNSSTUO  VNAMEP  160 

XSNALB ( K } a DSNALB  < K > VNAMEP  161 

XSNGWT 1 K ) = DSNGWTOO  VNAMEP  162 

65  CONTINUE  VNAMEP  163 

YLTMIN  = LTMIN  VNAMEP  164 

YLTMAX  = LTMAX  VNAMEP  165 

YLPREACC  = LPREACC  VNAMEP  166 

YLPRECON  = LPRECON  VNAMEP  167 

YLHFLUX  = lHFLUX  VNAMEP  168 


00040 

CDXL  a 

RYCDXL 

00041 

CDXO  = 

RYCDXO 

j 00042 

ED  a 

RYED 

00043 

FMU  = 

RYFMU 

00044 

FWET  = 

RYFWET 

00045 

NDHOG  = 

I YNDHOG 

00046 

NFLW 

IYNFLW 

I 00047 

DO  45  K = 

1 ,4 

1 00048 

DSNTOPUO 

= XSNTOP IK) 

j 00049 

DSNLV/l  UO 

= XSNLWIUO 

; 00050 

DSNSSTUO 

a XSN5STOO 

] 00051 

DSNALB  OO 

= XSNALB  UO 

00052 

.!  00053 

DSNGWTOO 
45  CONTINUE 

= XSNGWT I K ) 

j 00054 

LTMIN  = 

YLTMIN 

00055 

LTMAX 

YLTMAX 

00056 

LPREACC  a 

YLPREACC 

00057 

LPRECON  = 

YLPRECON 

; 00058 

LHFLUX  a 

YLHFLUX 

00059 

LEFLUX  a 

YLEFLUX 

00060 

LFUSION  = 

VLFUSION 

0006  1 

LRADSWG  a 

YLRADSWG 

00062 

LICLOUD  a 

YL I CLOUD 

00063 

LOMEGA  = 

YLOMEGA 

00064 

LDIABAT  = 

YLDIABAT 

OOOGS 

LRADSW  a 

YLRADSW 

| 00066 

LUFLUX  = 

YLUFLUX 

00067 

LVFLUX  = 

YLVFLUX 

00068 

00069 

c 

READ  (11, 
48  CONTINUE 

INPHYS, ENDa4l 

00070 

r> 

WRITEO  , INPHYS) 

L> 

C 

**+*-4 ■ + ****•  + + 

c 

+ t + + 

TRANSFEI 

c 

♦ * * * 

LOCAL 

j 

c 

c 

**♦♦♦♦♦♦♦♦♦♦♦ 

ORIGINAL  P&m  S3 
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00090 

YLEFLUX 

= 

LEF  LUX 

0009  1 

YLFUS10N 

5 

LFUSION 

00092 

YLRADSWG 

S 

LRADSWG 

00093 

YL I CLOUD 

“ 

LICLOUD 

00094 

VLOMEGA 

ss 

LOMEGA 

00095 

YLDIABAT 

- 

LDIABAT 

00096 

YLRADSW 

= 

LRADSW 

00097 

YLUFLUX 

= 

LUFLUX 

00098 

YLVFLUX 

= 

LVFLUX 

00099 

RETURN 

00100 

END 

STATEMENT 

LABEL 

MAP 

--LABEL 

-DEFINED REFERENCES 

1 0000 

39 

45 

53 

47 

48 

69 

68 

65 

84 

78 

VARIABLE  MAP 


•NAME 

* -BLOCK TYPE 

--CLASS 

-REFERENCES 

A = 

ARGLIST 

CD  XL 

REAL 

SIMPLE 

33 

38 

40/S 

CDXO 

REAL 

SIMPLE 

34 

38 

4 t/S 

DSNALB 

CHAR  +■  8 

ARRAY 

4 

38 

SI/S 

DSNGV/T 

CHARTS 

ARRAY 

4 

38 

52/S 

DSNLWI 

CHAR  *8 

ARRAY 

4 

38 

49/5 

DSNSST 

CHAR  +B 

ARRAY 

4 

38 

50/S 

DSNTOP 

CHAR+8 

ARRAY 

4 

38 

48/S 

ED 

REAL 

SIMPLE 

35 

38 

42/S 

FMU 

REAL 

SIMPLE 

36 

38 

43/S 

FV/ET 

REAL 

SIMPLE 

37 

38 

44/S 

INPHYS 

INTEGER 

SIMPLE 

38 

68 

70 

I YNDHOG 

INTEGER 

SIMPLE 

1 

45 

76/S 

I YNFLW 

INTEGER 

SIMPLE 

t 

46 

77/S 

K 

INTEGER 

SIMPLE 

47/C 

48 

48 

78/C 

79 

79 

LDIABAT 

LOGICAL 

SIMPLE 

25 

38 

64/S 

LEFLUX 

LOGICAL 

SIfrr?LE 

15 

38 

59/S 

LFUSION 

LOGICAL 

SIMPLE 

17 

38 

60/S 

LHFLUX 

LOGICAL 

SIMPLE 

13 

38 

58/S 

LICLOUD 

LOGICAL 

SIMPLE 

21 

38 

62/S 

LOMEGA 

LOGICAL 

SIMPLE 

23 

38 

63/S 

LPREACC 

LOGICAL 

SIMPLE 

9 

38 

56/S 

LPRECON 

LOGICAL 

SIMPLE 

1 1 

38 

57/S 

LRADS W 

LOGICAL 

SIMPLE 

27 

38 

65/S 

LRADSWG 

LOGICAL 

SIMPLE 

19 

38 

61/S 

LTMAX 

LOGICAL 

SIMPLE 

7 

38 

55/S 

LTMIN 

LOGICAL 

SIMPLE 

5 

38 

54/S 

LUFLUX 

LOGICAL 

SIMPLE 

29 

38 

66/S 

LVFLUX 

LOGICAL 

SIMPLE 

31 

38 

67/S 

NAMPHY 

SUBROUTINE 

1 

NDHOG 

INTEGER 

SIMPLE 

38 

45/S 

76 

NFLW 

INTEGER 

SIMPLE 

38 

46/S 

77 

RYCDXL 

HALF 

SIMPLE 

1 

40 

71  /S 

RYCDXO 

HALF 

SIMPLE 

I 

4 1 

72/S 

RYED 

HALF 

SIMPLE 

1 

42 

73/S 

RYFMU 

HALF 

SIMPLE 

1 

43 

74/S 

RYFWET 

HALF 

SIMPLE 

1 

44 

75/S 

XSNALB 

CHAft+8 

ARRAY 

1 

3 

51 

XSNGV/T 

CHARTS 

ARRAY 

1 

3 

52 

XSNLVJI 

CHAR+8 

ARRAY 

1 

3 

49 

XSNSST 

CHAR  +8 

ARRAY 

1 

3 

50 

KSNTOP 

CHARTS 

ARRAY 

1 

3 

48 

YLDIABAT 

LOGICAL 

SIMPLE 

1 

26 

64 

YLEFLUX 

LOGICAL 

SIMPLE 

1 

16 

59 

YLFUS10N 

LOGICAL 

SIMPLE 

1 

18 

60 

YLHFLUX 

LOGICAL 

SIMPLE 

1 

14 

58 

VL I CLOUD 

LOGICAL 

SIMPLE 

1 

22 

62 

VNAMEP  169 
VNAMEP  t70 
VNAMEP  171 
VNAMEP  172 
VNAMEP  173 
VNAMEP  174 
VNAMEP  175 
VNAMEP  175 
VNAMEP  177 
VNAMEP  178 
VNAMEP  179 
VNAMEP  180 


C“CTRL  OF  00,  I = DATA  INIT,  R-READ,  S^STORE.  W=WR|TE 

7! 

72 
82 
83 
80 
81 
79 

73 

74 

75 


49  49  50  50  51  51  52  52 

80  80  8 1 8 1 82  82  83  83 

95 

90 

91 
89 

93 

94 

87 

88 

96 

92 
86 
85 

97 

98 


82/S 

83/S 

80/S 

81/S 

79/S 

95/S 

90/S 

91/S 

89/S 

93/S 
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YLOMEGA 

YLPREACC 

YLPRECON 

YLRADSW 

YLRADSWG 

VLTMAX 

YLTMIN 

YtUFLUX 

YLVFLUX 


LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


1 

24 

63 

94/S 

t 

10 

56 

87  /S 

t 

12 

57 

88/S 

t 

28 

65 

96/S 

t 

20 

61 

92/S 

1 

a 

55 

86/S 

1 

6 

54 

85 /S 

1 

30 

66 

97/S 

1 

32 

67 

98/S 

I 

S 

Ul 


ORIGINAL  PASS  W 
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SUBROUTINE  ORB tT  { T IfflE . PH I . ECC , PRD  I .unnli T 

£ rtt“lB  1 T VOH  D i \ 


SUBROUTINE  ORBIT 
C PURPOSE 

C CALCULATES  PLANETARY  ANGULAR  POSITION  USING 

C CONSERVATION  OF  ANGULAR  MOMENTUM 

C USAGE 

C CALLED  FROM  DAILY  AND  DEPEND 

C INPUT/OUTPUT  FILES  USED 
C NONE 

C DESCRIPTION  OF  PARAMETERS  ««  ucr/ittifn 

C TIME  - TIME  IN  DAYS  FROM  APHELION  (POSITIVE  OR  NEGATIVE) 

C PHI  - ANGULAR  POSTION  IN  ELLIPTICAL  ORBIT 

C ECC  - ECCENTRICITY  OF  ORBIT 

C PRD  - PLANETARY  PERIOD  IN  DAYS 

c SUBfn?iRAMS-NintIgral  expression  for  squared  sun-planet  distance 

c FNT2  - DERIVATIVE  OF  FNT 1 

C RECORD  OF  MODIFICATIONS 
C 02FEB84  JIM.PF  COMMENTS 

C REMARKS^  TAKACS  IS  THE  AUTHOR  OF  THIS  ROUTINE 

C ’**7*"”  + '*+  + ’*-**-*-'*******1'**  + ***,,r*','****+4  ****'’ 4”*r4,r4  **'''’*'''''**** 

SIGMA  DAT 
+ + + ■+  + *■*■*■  + '*■**  + * + + 


C+  ♦ ♦ * ♦ 

C*  M/A-COM 

c 

C HALF/FULL  PRECISION 


VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 


A I N 

♦ t 


N A 


00002 

00003 

00004 

00005 

00006 


00007 

ooooa 

00009 

00010 
000  1 1 

00012 

00013 

00014 

00015 

00016 

000  7 

000  tB 
000  ts 


‘implicit'half "precision  ( A-H , 0-2 ) 

DATA  PHIO  / 1 . 57 08S0 / 


S A - G S F C * VORBIT 
»*♦  #■*■*♦♦♦*  * ♦ ♦ VORB I T 

VORBIT 
VREAL 
VREAL 
VREAL 
VREAL 
VORBIT 
VORBIT 
VORBIT 

♦ « ♦ ♦ ♦ * * VORB  I T 

VORBIT 

- E ♦ HCOS ( X) > ) VORBIT 

* HATAN  < HSQRT(A)  / VORBIT 

X » ) VORBIT 

Z'lV.UV. sag 

C DEBUG  VbIgdIb 

C0000  CYBER  VECTOR  VERSION  00.00  1 INPUT  IOQ  VbIgdIb 

css$sssss$$$$iiss$iIs$$ssi$ls$s$ss$s$$ssss$$sss$sssss$sssssssss$$$ssssssvBEGD|B 

^ _ a f*  A uatui/  i ncn  \ VORBIT 


«.*>•'♦*♦+♦**►*•*  + + 
c STATEMENT  F U N C T I ° N S 

FNT 1 ( K , E . A ) = E ♦ HSIN(X)  / ( A ♦ < ;0S0 

S i 2 . 0S0  / < A ♦ HSQRT  < A ) ) 

$ ( I.OSO  - E)  * HTAN ( 0 . 5S0 


PI 
A 
Z 

ATIME 

ZT 

100  PHI 
V 

PHIO 


4 . 50  ♦ HATAN { 1 . 0S0  ) 

1.050  - ECC  ♦ ECC 

2.050  ♦ PI  /(  PRD  * A * HSQRT ( A ) ) 

HMIN1  < HABS ( TIME ) , PRD  ♦ 0 , 5S0  ) 

Z * ATIME 

PHIO  - < FNT 1 (PHIO, ECC , A > - ZT  ) 
HABS (PHI-PHIO) 

PHI 


/ FNT2(PHI0.ECC) 


IF  ( Y 
GOTO 


. LT. 
100 


1 . OS-6  ) GOTO  200 


200  CONTINUE 

RETURN 

END 


VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 

VORBIT 


2 

3 

4 

5 

6 
7 
B 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 

2 

3 

4 

5 

29 

30 
3 t 

32 

33 

34 

35 

36 

37 

38 

39 
2 

3 

4 

5 

6 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


100 

10000 

200 


12 

6 

17 


16 

15 


o o 

*ts  S3 

TJ  §2 
OS 

8P 

3® 


v- 


ORBIT  1 


VARIABLE  MAP 
- -NAME 


BLOCK 


TYPE 


CLASS 


t-3 

to 


A 

HALF 

SIMPLE 

ATIME 

HALF 

SIMPLE 

E 

HALF 

SIMPLE 

ECC 

HALF 

SIMPLE 

ORBIT 

SUBROUTINE 

PHI 

HALF 

SIMPLE 

PHIO 

HALF 

SIMPLE 

FJ 

HALF 

SIMPLE 

PRD 

HALF 

SIMPLE 

TIME 

HALF 

SIMPLE 

X 

HALF 

SIMPLE 

Y 

HALF 

SIMPLE 

2 

HALF 

SIMPLE 

2T 

HALF 

SIMPLE 

REFERENCES 

A = 

ARGLIST , 

C=CTRL  OF 

DO 

4 

4 

4 

4 

4 

10/S 

1 1 

4 

4 

4 

4 

5 

1 

8 

8 

12 

12 

1 

1 

1 2/S 

13 

14 

3/1 

12 

12 

12 

13 

7/S 

9 

1 

9 

10 

t 

10 

4 

4 

4 

4 

5 

13/S 

15 

9/S 

1 1 

1 1 /S 

12 

I=DATA  JNIT , REREAD.  S=STORE.  W=WRITE 
8/S  9 9 12 

5 

14/S 

5 


PROCEDURE  MAP 


— NAME 

TYPE 

CLASS 

REFERENCES 

FNT  1 

HALF 

STAT  FUNC 

4/S 

12 

FNT2 

HALF 

STAT  FUNC 

5/S 

12 

HABS 

HALF 

INTRINSIC 

10 

13 

HATAN 

HALF 

INTRINSIC 

4 

7 

hCOS 

HALF 

INTRINSIC 

4 

S 

HMIN1 

HALF 

INTRINSIC 

10 

HSIN 

HALF 

INTRINSIC 

4 

HSQRT 

HALF 

INTRINSIC 

4 

4 

HTAN 

HALF 

INTRINSIC 

4 

D^STMT  FN  DEF« 


9 


A=ARGL I ST 


original  ng 

OF  POOR  QUAUTV 


— I...: \ iA  . 


is 


oooo  t 


00002 

00003 

00004 

00005 

00006 

00007 

00008 
00009 
00010 
0001  1 
00012 
000  13 
000  14 
000  15 
00016 
000  1 7 
00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 
0003  1 

00032 

00033 


00034 

00035 

00036 

00037 

00038 

00039 

00040 

0004  I 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

0005  I 

00052 

00053 

00054 

00055 

00056 


00057 


C 

C 


„ SUBROUTINE  OZONE2  f IM , NLA VO  1 * XDAY.  HLAT) 


SSSE  < 72 , 10  > 
HHE ( 72 , 10} 


CVQ(72,9) 


SWIL<72,9> 


RADI™.ION  AND  SOURCE  TERM  FIELDS 

COMMON  /RADCOM/  AS1 72 , 9 ) RE i 72  ini 
COMMON  /RADCOM/  PL <72  9 PLE (72  10) 

COMMON  /RADCOM/  PLK172  9 PLKEMOI 
COMMON  /RADCOM ' TL(72.9)  TLE(72  01 
COMMON  /RADCOM/  TG<72)  TH172  9) 

COMMON  /RADCOM/  SHL<72,9)  SHLE  72  mi 
COMMON  /RADCOM/  SHGJ72  . CL0UD?72  121 

COMMON  /RADCOM/  SHSAT(72  9>  GAM(72  iT  ’ 

COMMON  /RADCOM/  RH<72.9)  GAM<72,9> 

COMMON  /RADCOM/  SSS(72,9> 

COMMON  /RADCOM/  HH(72.9) 

COMMON  /RADCOM/  HHS<72.9) 

COMMON  /RADCOM/  CV7(72  9) 

COMMON  /RADCOM/  CXDEO) 

COMMON  /RADCOM/  SWALE  172  10) 

COMMON  /RADCOM/  AL (72 ,10 
COMMON  /RADCOM/  TAUU72.10) 

COMMON  /RADCOM/  T0PABS(72) 

COMMON  /RADCOM/  RN ( 9 ) t TN(9)  SRS(« 

COMMON  /RADCOM/  TCONO  f 9 > , TPENE < 9 ) 

COMMON  /RAPSOM/  TLOWL.TMIDL  NLAYOZ 
COMMON  /RADCOM/  FK*5>:  XkTs).  n£k 

css  IsIIi!;:  ssr*is!ii,ffssii": 

IIS 

COMMON  /RADCOM/  RSURF172)  RClONfifT'?!  o 

COMMON  /RADCOM/  LANdT^ ) ! *OCEAN?72 > icst?! > 

LOrifrAl  /RADC°M/  SNOW  (72)  , WIXWH72)!  FR0ST?72) 

GICAL  LAND,  OCEAN,  ICE,  SNOW,  MIXWI,  FROST 


OZALE (72 , 101 


SRS ( 9 ) , STN  t 9 ) 
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SUBROUT I MB  03 1 NT 
PURPOSE 

INTERPOLATES  OZONE  CONCENTRATIONS  FOR  LONGWAVE  RADIATION 
USAGE 

CALL  03 1 NT ( T0 1 . T02, TR03. TI 1.TI2, T03 , JALB  > 

INPUT/OUTPUT  PILES  USED 
NONE 

DESCRIPTION  OF  PARAMETERS 

7NAME?  ?I/0?  7DESCM 1 P T I ON? 

TO  1 

T02 

TR03 

Til 

TI  2 

T03 

JALu 

SUBPROGRAMS  NEEDED 
NONE 

RECORD  OF  MODIFICATIONS 

001  280CT83  LARRY. T REWROTE  TO  FIX  BUG  * RESOLUTION 

REMARKS: 
t 1 ) 


M/A-CQM  SIGMA  DATA  INC.  NASA  - GSFC 
SUBROUTINE  03 1 NT  f TO  1 , T02  , TR03 , TI 1 ,TI2 t T03 , JALB ) 


CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /CCNTRL  / CCO  ~ 

COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  AT1ME 
COMMON  /CCNTRL/  UIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  <10) 

COMMON  /CCNTRL/  COS  (30) 

COMMON  /CCNTRL/  CQU  MO) 
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7S 
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80 
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81 
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82 
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83 
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84 
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85 

VCNTRL 

86 

VCNTRL 

87 
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88 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

91 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 
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97 

VCNTRL 

98 

VCNTRL 

99 

VCNTRL 
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VCNTRL 

101 

VCNTRL 

102 

03INT  2 
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00095 

00096 


00097 

00098 

00099 
00100 
00101 
00  102 
00  103 
00  104 

00105 

00106 
00107 
00  1 08 

00  109 

001  10 
00111 
00112 

00113 

00114 

00115 
00  116 
00  117 
00  118 
00  119 
00120 
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00122 
00  123 

00124 

00125 

00126 
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00128 

00129 
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00131 
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00135 

00  136 

00137 

00138 

00139 

00140 

00141 

00142 
00  143 
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00145 
00  1 46 
00147 
00  148 
00  149 

00150 
0015  1 
00152 
00  153 

00154 


C 


C 
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C 


C 


EQUIVALENCE  (ICO . IC< 1 ) ) 

INTEGER  ICO,  IC<200) 

LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  / LCNTR  L / ~ LCO 
COMMON  /LCNTRL/  QALT 
COMPTON  /LCNTRL/  QBEG 
COMMON  /LCNTRL/  QDAV 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMMON  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 
COMMON  /LCNTRL/  ORSW 
COMMON  /LCNTRL/  QRSH 
COMMON  /LCNTRL/  LQS 130) 

COMMON  /LCNTRL/  LQUMO> 


EQUIVALENCE 

{ LTPfll  N 

, LQS  ( 

1 ) > 

EQUIVALENCE 

< LTPiflA  X 

, LQS  ( 

2)  ) 

EQUIVALENCE 

(LPREACC 

. LQS < 

3)  ) 

EQUIVALENCE 

( LPRECON 

, LQS  ( 

4)  } 

EQUIVALENCE 

t LHFLUX 

. LOS ( 

5)  ) 

EQUIVALENCE 

(LEFLUX 

, LQS  < 

6)  ) 

EQUIVALENCE 

(LFUSION 

, LQS  ( 

7}  > 

EQUIVALENCE 

(LRADSV/G 

, LQS  ( 

8)  ) 

EQUIVALENCE 

(LRADLWG 

, LQS  ( 

9)  1 

EQUIVALENCE 

(LICLOUD 

• LQS  ( ton 

EQUIVALENCE 

(LUFLUX 

* LQS  ( ID) 

EQUIVALENCE 

(LVFLUX 

» LQS f 1 2 ) ) 

EQUIVALENCE 

(LOMEGA 

* LQU( 

1 ) > 

EQUIVALENCE 

(LDIASAT 

, L QU  ( 

2)  ) 

EQUIVALENCE 

(LRADSW 

» LQU  ( 

31  ) 

EQUIVALENCE 

{ LRADLW 

, LQU ( 

4)  > 

LOGICAL 

QALT 

LOGICAL 

QBEG 

LOGICAL 

QDAY 

LOGICAL 

QEND 

LOGICAL 

QOUT 

LOGICAL 

QPHY 

LOGICAL 

QSHF 

LOGICAL 

SN2FLG 

LOGICAL 

QRSW 

LOGICAL 

QRSH 

LOGICAL 

LOS 

LOGICAL 

LQU 

LOGICAL 

LTMIN 

LOGICAL 

LTMAX 

LOGICAL 

LPREACC 

LOGICAL 

LPRECON 

LOGICAL 

LHFLUX 

LOGICAL 

LEFLUX 

LOGICAL 

LFUSION 

LOGICAL 

LRADSWG 

LOGICAL 

LRADLWG 

LOGICAL 

LICLOUD 

LOGICAL 

LUFLUX 

LOGICAL 

LVFLUX 

LOGICAL 

LOMEGA 

LOGICAL 

LDIABAT 

LOGICAL 

LRADSW 

LOGICAL 

LRADLW 

EQUIVALENCE 

(LCO.LCf 1 ) ) 

VCNTRL  103 
VCNTRL  104 
VCNTRL  105 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  110 
VCNTRL  1 1 1 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  115 
VCNTRL  116 
VCNTRL  117 
VCNTRL  118 
VCNTRL  119 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
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VCNTRL  127 
VCNTRL  128 
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VCNTRL  138 
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VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  ISO 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
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REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

176 

c 

VCNTRL 

177 

00  156 

COMMON 

/RCNTRL/ 

RCO 

VCNTRL 

1^8 

00  157 

COMMON 

/ RCNTRL / 

APHEL 

VCNTRL 

179 

00  158 

COMMON 

/RCNTRL/ 

BETA 

VCNTRL 

180 

00159 

COMMON 

/RCNTRL/ 

COSD 

VCNTRL 

181 

00  160 

COMMON 

/RCNTRL/ 

CP 

VCNTRL 

182 

00  16  1 

COMMON 

/RCNTRL/ 

DAYSPY 

VCNTRL 

183 

00  162 

COMMON 

/RCNTRL/ 

DEC 

VCNTRL 

184 

00  163 

COMMON 

/RCNTRL / 

DECMAK 

VCNTRL 

185 

00164 

COMMON 

/RCNTRL/ 

DIST 

VCNTRL 

186 

00  165 

COMMON 

/RCNTRL/ 

DLAT 

VCNTRL 

187 

00  166 

COMMON 

/RCNTRL/ 

DLON 

VCNTRL 

188 

00  167 

COMMON 

/RCNTRL/ 

OT 

VCNTRL 

109 

00188 

COMMON 

/RCNTRL/ 

ECCN 

VCNTRL 

190 

00169 

COMMON 

/RCNTRL/ 

GNU  1 

VCNTRL 

19  1 

00170 

COMMON 

/RCNTRL/ 

GNU2 

VCNTRL 

192 

00171 

COMMON 

/RCNTRL/ 

GRAV 

VCNTRL 

193 

00  172 

COMMON 

/RCNTRL/ 

OMEGA 2 

VCNTRL 

194 

00173 

COMMON 

/RCNTRL/ 

PI 

VCNTRL 

195 

00  174 

COMMON 

/RCNTRL/ 

PI  180 

VCNTRL 

196 

00  1 75 

COMMON 

/RCNTRL/ 

P 1 2 

VCNTRL 

197 

00  1 76 

COMMON 

/RCNTRL/ 

PSTD 

VCNTRL 

198 

00177 

COMMON 

/RCNTRL/ 

PIMEAN 

VCNTRL 

199 

00  178 

COMMON 

/RCNTRL/ 

PSMAX 

VCNTRL 

200 

00179 

COMMON 

/RCNTRL/ 

PSMIN 

VCNTRL 

201 

00  180 

COMMON 

/RCNTRL/ 

PTOP 

VCNTRL 

202 

00  1 B 1 

COMMON 

/RCNTRL/ 

RADE 

VCNTRL 

203 

00  182 

COMMON 

/RCNTRL/ 

RGAS 

VCNTRL 

204 

00  183 

COMMON 

/RCNTRL/ 

ROCP 

VCNTRL 

205 

001  84 

COMP-ION 

/RCNTRL/ 

RSDIST 

VCNTRL 

206 

00  1B5 

COMMON 

/RCNTRL/ 

SDAY 

VCNTRL 

207 

00  iae 

COMMON 

/RCNTRL/ 

SEASON 

VCNTRL 

208 

00  1S7 

COMMON 

/RCNTRL/ 

SIGE 

< 25  > 

VCNTRL 

209 

00  188 

COMMON 

/RCNTRL/ 

SIND 

VCNTRL 

210 

00  189 

COMMON 

/RCNTRL/ 

SOLS 

VCNTRL 

21  1 

00190 

COMMON 

/RCNTRL/ 

TSTD 

VCNTRL 

212 

00191 

COMMON 

/RCNTRL/ 

PLEVS 

< 25  ) 

VCNTRL 

213 

00  192 

COMMON 

/RCNTRL/ 

HE  ATW 

VCNTRL 

214 

00193 

COMMON 

/RCNTRL/ 

HEAT  I 

VCNTRL 

215 

00194 

COMMON 

/RCNTRL/ 

EPS 

VCNTRL 

216 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

VCNTRL 

217 

00196 

COMMON 

/RCNTRL/ 

caltoj 

VCNTRL 

218 

00  197 

COMMON 

/RCNTRL/ 

PZERO 

VCNTRL 

219 

c 

VCNTRL 

220 

00198 

EQUIVALENCE 

f RCO , RC I 1 > ) 

VCNTRL 

221 

00199 

REAL 

RCO,  RC ( 200 1 

VCNTRL 
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c 

VCNTRL 
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integer  MODEL  CONSTANTS 

VCNTRL 

224 

c 

VCNTRL 
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00200 

COMMON 

/IDPARM/ 

I JUMP 

1 46  > 

VCNTRL 

226 

00201 

COMMON 

/ IDPARM/ 

IDSP02 

VCNTRL 

227 

00202 

COMMON 

/IDPARM/ 

INDEX 

1 72  > 

VCNTRL 

228 

00203 

COMMON 

/IDPARM/ 

I ROD 

VCNTRL 

229 

00204 

COMMON 

/IDPARM/ 

JC 

( 46  > 

VCNTRL 

230 

00205 

COMMON 

/ IDPARM/ 

JE 

( 2 > 

VCNTRL 

231 

00206 

COMMON 

/IDPARM/ 

JP 

(2,2) 

VCNTRL 

232 

00207 

COMMON 

/ I DPARM/ 

KSTEP 

VCNTRL 

233 

00208 

COMMON 

/ IDPARM/ 

Md 

<46  ) 

VCNTRL 

234 

00209 

CO  P-1  MON 

/IDPARP/f/ 

NHMS  1 

VCNTRL 

235 

002  1 0 

COMMON 

/IDPARM/ 

NYMD  1 

VCNTRL 

236 

c 

VCNTRL 

237 

c 

LOGICAL  MODEL  CONSTANTS 

VCNTRL 

238 

c 

VCNTRL 

239 

002  1 1 

COMMON 

/LOPARM/ 

FILTER 

<46  ) 

VCNTRL 

240 

00212 

COMMON 

/LDP4RM/ 

ITAPE 

VCNTRL 

24  1 

002  13 

COMMON 

/LDPARM/ 

START 

VCNTRL 

242 

c 

VCNTRL 

243 

00214 

LOGICAL 

FILTER 

VCNTRL 

244 

OF  FOOR  QUALITY 


002  IS 
002  1 6 


LOGICAL 

LOGICAL 


ITAPE 

START 


REAL  MODEL  CONSTANTS 


00217 

COMMON 

/RDPARM/ 

ADLDP 

00218 

COMMON 

/RDPARM/ 

CONI 

00219 

COMMON 

/RDPARM/ 

CON  IDT 

00220 

COMMON 

/RDPARM/ 

C0N2 

00221 

COMMON 

/RDPARM/ 

C0N2DT 

00222 

COMMON 

/RDPARM/ 

COM3 

00223 

COMMON 

/RDPARM/ 

C0N30T 

00224 

COMMON 

/RDPARM/ 

CON4 

00225 

COMMON 

/RDPARM/ 

C0N4DT 

00226 

COMMON 

/RDPARM/ 

CONS 

00227 

COMMON 

/RDPARM/ 

COSL 

( 46  > 

00228 

COMMON 

/RDPARM/ 

COSLON 

(72) 

00229 

COMMON 

/RDPARM/ 

CPD2 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

00231 

COMMON 

/RDPARM/ 

DXYP 

<46  ) 

00232 

COMMON 

/RDPARM/ 

DYP 

(46) 

00233 

COMMON 

/RDPARM/ 

FCORLS 

< 46) 

00234 

COMMON 

/RDPARM/ 

F1DT 

00235 

COMMON 

/RDPARM/ 

F2DT 

00236 

COMMON 

/RDPARM/ 

H IDT 

00237 

COMMON 

/RDPARM/ 

H2DT 

00238 

COMMON 

/RDPARM/ 

PKSTD 

00239 

COMMON 

/RDPARM/ 

PKTOP 

00240 

COMMON 

/RDPARM/ 

RLAT 

(46) 

00241 

COMMON 

/RDPARM/ 

RLATD 

(46) 

00242 

COMMON 

/RDPARM/ 

ROCPDT 

00243 

COMMON 

/RDPARM/ 

R0CPP1 

00244 

COMMON 

/RDPARM/ 

SGNP 

(2) 

0 0 2 ' D 

COMMON 

/RDPARM/ 

SINL 

(46) 

00246 

COMMON 

/RDPARM/ 

SINLON 

(72  ) 

00  247 

COMMON 

/RDPARM/ 

THSTO 

00248 

COMMON 

/RDPARM/ 

THSTD2 

00249 

COMMON 

/RDPARM/ 

WSAVE 

( 159) 

00250 

COMMON 

/RDPARM/ 

DSIG 

(9) 

00251 

COMMON 

/RDPARM/ 

SIG 

(9) 

00252 

COMMON 

/RDPARM/ 

DSIGINV 

(9) 

00253 

00254 


DIMENSION  TO  1 < 19,5)  . T02 

DIMENSION  Til f 19)  . TI2 


(19.5) 

119) 


TR03 ( 19, 19,5) 
T03 { 19,19) 


00255  L 2 = 19 

00256  L 22  - 19*19 

00257  XLAT  r ABS<  RLATD(dALB)  > 

C 


00258 

IF  ( 

XLAT. GE. 75 .0 

) 

GOTO 

101 

00259 

IF( 

XLAT. GE. GO .0 

> 

GOTO 

102 

00260 

I F < 

XLAT. GE. 45.0 

> 

GOTO 

103 

00261 

I F ( 

XLAT. GE. 30.0 

) 

GOTO 

104 

00262 

IF  ( 

XLAT .GE .15.0 

) 

GOTO 

105 

00263 

GOTO 

106 

C 


00264 

00265 

00266 

00267 

00268 


101  CONTINUE 

T I 1 ( t ; L2)  = TOI f 1 ,S;L2  > 

T I 2 ( 1 ; L2 ) = T02 ( 1 , 5 ; L2  > 

T03  <1,1; L22 ) = TR03 (1,1,5; L 22 ) 

RETURN 


C 


00269 

00270 
0027  I 

00272 

00273 

00274 


102  CONTINUE 

Cl  = ( XLAT-60.0) / 15 .0 
C2  = 1.0-C1 

TIKI  ; L2  ) = C 1 * TO  1 ( 1,S;L2) 

TI 2 < 1 ; L2 ) = C 1 *T02 (1.5, L2 ) 

TQ3(1.T;L22)  = C 1 * TR03 ( 1 * 1 , 5 ; L22 > 


C2  * TO  1 ( 1 ,4 ;L2) 

C2 * T02 ( 1 * 4 ; L2 ) 
C2-TR03( 1 . 1 , 4 : L 22 ) 
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CALLED  BY  VGWSGCM  ONLY 
ARGUMENTS  DESCRIPTION 
NONE 

SUBPROGRAMS  NEEDED 

NAME  DESCRIPTION 

2=£b?SE  SYSLIB  CLOSES  A CYBER  FILE 

Q5RETURN  SYSLIB  RETURNS  A CYBER  FILE 

QSOPEN  SYSLIB  OPEN  A CYBER  FILE 
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IMPLICIT  HALF  PRECISION  (A-H,0-Z> 

PARAMETER  STATEMENTS  FOR  DIMENSIONING  RESOLUTION 
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LOGICAL  MODEL  CONSTANTS 

VCNTRL 

249 

•;  ’ . 

c 

VCNTRL 

250 

I'- 

}' 

00224 

COMMON 

/LDPARM/ 

FILTER  (46) 

VCNTRL 

25  1 

Q 


r-.ii'* 
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00225 

00226 

00227 

00228 
00229 


00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00248 

00249 

00250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 
00262 

00263 

00264 

00265 


00266 

00267 

00288 

00269 

00270 

00271 

00272 

00273 

00274 

00275 


COMMON  /LDPARM/  I TAPE 
COMMON  /LDPARM/  START 


C 

C 

C 


c 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


LOGICAL 

LOGICAL 

logical 


FILTER 
I TAPE 
START 


REAL  MODEL  CONSTANTS 

COMMON  /RDPARM/  ADLDP 
COMMON  /RDPARM/  CONI 
COMMON  /RDPARM/  CON  IDT 
COMMON  /RDPARM/  CON2 
COMMON  /RDPARM/  CON2DT 
COMMON  /RDPARM/  C0N3 
COMMON  /RDPARM/  C0N3DT 
COMMON  /RDPARM/  CON4 
COMMON  /RDPARM/  CON4DT 
COMMON  /RDPARM/  CONS 
COMMON  /RDPARM/  COSL  (46) 
COMMON  /RDPARM/  COSLON  (72) 
COMMON  /RDPARM/  CPD2 
COMMON  /RDPARM/  DXP 
COMMON  /RDPARM/  DXYP 
COMMON  /RDPARM/  DYP 
GOMMON  /RDPARM/  FCORLS 
COMMON  /RDPARM/  F1DT 
COMMON  /RDPARM/  F2DT 
COMMON  /RDPARM/  HIDT 
COMMON  /RDPARM/  H2DT 
COMMON  /RDPARM/  PKSTD 
COMMON  /RDPARM/  PKTOP 
COMMON  /RDPARM/  RLAT 
COMMON  /RDPARM/  RLATD 
COMMON  /RDPARM/  ROCPDT 
COMMON  /RDPARM/  ROCPP l 
COMMON  /RDPARM/  SGNP 
COMMON  /RDPARM/  SINL 
COMMON  /RDPARM/  SINLON 
COMMON  /RDPARM/  TMSTD 
COMMON  /ROPARM/  TH5TD2 
COMMON  /RDPARM/  WSAVE 
COMMON  /RDPARM/  DSIG 
COMMON  /RDPARM/  SIG 
COMMON  /RDPARM/  DSIGINV  (9) 


(46) 

(46) 

(46) 

(46) 


(46  > 
<46> 


(2) 
(46) 
(72  ) 


( 1 59 ) 

(9) 

(9) 


COMDECK  VQANDQT  RESOLUTION  VALUES 


IM 

NLA  Y 
d(VH  1 
NLAY+1  1 
IM'WLAY* 1 1 
JM/2M 


= 72 
= 9 
=46 
= 99 
= 7128 
= 23 


prognostic  fields  (needed  in  compo) 


COMMON 


/ QANDQT / QPROG (72,9, II ,46) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PHIS  (7128,1) 

SMTH  (7128,23) 

ALBEDO  (7128,1) 

GT  (7128,1) 

GW  (7128,1) 

TS  (7128,1) 

SHS  (7120,1) 

P (72,99,1) 


DIMENSION  U 


(72,9,11,1) 


VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  2B2 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VCNTRL  287 
VCNTRL  288 
VCNTRL  289 
VCNTRL  290 
VCNTRL  291 
VCNTRL  292 
VCNTRL  293 
VCNTRL  294 
VCNTRL  295 
VCNTRL  296 
VCNTRL  297 
VQANDQT  2 
VQANDQT  3 
VQANDQT  4 
VQANDQT  5 
VQANDQT  6 
VQANDQT  7 
VQANDQT  8 
VQANDQT  9 
VQANDQT  10 
VQANDQT  11 
VQANDQT  12 
VQANDQT  13 
VQANDQT  14 
VQANDQT  15 
VQANDQT  16 
VQANDQT  17 
VQANDQT  18 
VQANDQT  19 
VQANDQT  20 
VQANDQT  21 
VQANDQT  22 
VQANDQT  23 
VQANDQT  24 
VQANDQT  25 
VQANDQT  26 


Ln 


-----  S>>:!  : • 
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no 

O 


00276 

00277 

00278 

00279 

00280 
0028  1 
00282 

00283 

00284 

00285 

00286 
00287 

002B8 

00289 

00290 
0029  1 
00292 


00293 

00294 

00295 

00296 


00297 

00298 

00299 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 

00310 
0031  f 

00312 

00313 
003  14 
003  15 

00316 

00317 

00318 

00319 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 

00335 


C 


C 


C 

C 

C 

c 


c 

c 

c 

c 

c 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


V 

T 

SH 

PHI 


(72. 9t 11,1) 

(72.9.11.1) 

(72.9.11.1) 
(72,9,  11,1) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( QPROG( 1 , 
< QPROG ( 1 , 
( QPROG  < 1 , 
( QPROG ( I , 
( QPROG ( 1 , 
(QPROGC 1 , 
{ QPROG ( 1 , 
( QPROG ( 1 t 


t 

1) 

► PHIS 

( 

1 ) ) 

2 

1 ) 

SPvlTH 

< 

1 ) > 

a 

1 ) 

ALBEDO ( 

1 ) ) 

4 

• 

1 > 

GT 

( 

1 ) ) 

5. 

1) 

GW 

< 

r 1)  ) 

6 . 

1 ) , 

TS 

( 

, u ) 

7 . 

1 ) ■ 

SHS 

< 

1 u 

8. 

1 > , 

P 

< 

1,1) 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( QPROG ( 1 , 1 
( QPROG ( 1 . 1 
(OPROGf 1 , 1 
( QPROG ( 1 , I 
( QPROG ( 1 , 1 


2. 1)  ,U  (1,1 

4. 1)  ,V  (1,1 

6. 1 )  , T (1.1 

8 . 1 )  , SH  (1.1 
10,1), PHI (1.1 


1 ) ) 
1 ) ) 
1 ) ) 
1 ) ) 
1 ) ) 


= FIELDS  (NOT  NEEDED  IN  COMPO) 


COMMON 

BIT 

EQUIVALENCE 


/ QANDQT/  QSDI AG ( 72  .15  46) 

8QSD I AG ( 32 , 72,15.46) 

( QSOI AG, BQSDIAG) 


COMMON 


/QANDQT/  QUO l AG (72.9,  5,46) 


PHYSICS  PARAMETERS  AND  CONSTANTS 

COMMON  /CNTRLP/  CDFR 

COMMON  /CNTRLP/  CDXL 
COMMON  /CNTRLP/  CDXO 
COMMON  /CNTRLP/  CLH 
COMMON  /CNTRLP/  COE  (9) 
COMMON  /CNTRLP/  COEF 
COMMON  /CNTRLP/  COEFS 
COMMON  /CNTRLP/  COSROT 
COMMON  /CNTRLP/  CRP 
COMMON  /CNTRLP/  CTID 
COMMON  /CNTRLP/  CUMDAY 
COMMON  /CNTRLP/  CUMRAT 
COMMON  /CNTRLP/  CIO 
COMMON  /CNTRLP/  C 1 00 
COMMON  /CNTRLP/  C40 
COMMON  /CNTRLP/  DELTA 
COMMON  /CNTRLP/  DTC3 
COMMON  /CNTRLP/  DTOUT 
COMMON  /CNTRLP/  ED 
COMMON  /CNTRLP/  EDNM 
COMMON  /CNTRLP/  FCOEF 
COMMON  /CNTRLP/  FMU 
COMMON  /CNTRLP/  FWET 
COMMON  /CNTRLP/  GAMFAC 
COMMON  /CNTRLP/  GTOPO 
COMMON  /CNTRLP/  HICE 
COMMON  /CNTRLP/  NDTC3 
COMMON  /CNTRLP/  NFLW 
COMMON  /CNTRLP/  PIM 
COMMON  /CNTRLP/  QHOG 
COMMON  /CNTRLP/  SHLTOP 
COMMON  /CNTRLP/  SINROT 
COMMON  /CNTRLP/  SNOWN 
COMMON  /CNTRLP/  SNOWS 
COMMON  /CNTRLP/  STBO 
COMMON  /CNTRLP/  STERP 1 
COMMON  /CNTRLP/  STERP2 
COMMON  /CNTRLP/  TICE 
COMMON  /CNTRLP/  TLTOP 


VQANDQT  27 
VQANDQT  28 
VQANDQT  29 
VQANDQT  30 
VQANDQT  31 
VQANDQT  32 
VQANDQT  33 
VQANDQT  34 
VQANDQT  35 
VQANDQT  36 
VQANDQT  37 
VQANOQT  38 
VQANDQT  39 
VQANDQT  40 
VQANDQT  41 
VQANDQT  42 
VQANDQT  43 
VQANDQT  44 
VQANDQT  45 
VQANDQT  46 
VQANDQT  47 
VQANDOT  48 
VQANDQT  49 
VQANDQT  50 
■•VQANDQT  51 
VQANDQT  52 
VQANDQT  53 
VQANDQT  54 
VQANDQT  55 
VCNTRLP  2 
VCNTRLP  3 
VCNTRLP  4 
VCNTRLP  5 
VCNTRLP  6 
VCNTRLP  7 
VCNTRLP  8 
VCNTRLP  9 
VCNTRLP  10 
VCNTRLP  1 1 
VCNTRLP  12 
VCNTRLP  13 
VCNTRLP  14 
VCNTRLP  15 
VCNTRLP  16 
VCNTRLP  17 
VCNTRLP  18 
VCNTRLP  19 
VCNTRLP  20 
VCNTRLP  21 
VCNTRLP  22 
VCNTRLP  23 
VCNTRLP  24 
VCNTRLP  25 
VCNTRLP  '26 
VCNTRLP  27 
VCNTRLP  28 
VCNTRLP  29 
VCNTRLP  30 
VCNTRLP  31 
VCNTRLP  32 
VCNTRLP  33 
VCNTRLP  34 
VCNTRLP  35 
VCNTRLP  36 
VCNTRLP  37 
VCNTRLP  38 
VCNTRLP  39 
VCNTRLP  40 
VCNTRLP  41 
VCNTRLP  42 
VCNTRLP  43 


o\ 


Op  POOH  QUALITY 


VCNTRLP  44 
VCNTRLP  45 
VCNTRLP  46 
VCNTRLP  47 
VMNTHLY  2 
VMNTHLY  3 
VMNTHLY  4 
VMNTHLY  5 
VMNTHLY  6 
VMNTHLY  7 
VMNTHLY  Q 
VMNTHLY  9 
VMNTHLY  10 
VMNTHLY  tl 
VMNTHLY  12 
VMNTHLY  13 
VMNTHLY  14 
VMNTHLY  15 
VMNTHLY  16 
VMNTHLY  17 
VMNTHLY  18 
VMNTHLY  19 
VMNTHLY  20 
VMNTHLY  21 
VMNTHLY  22 
VMNTHLY  23 
VMNTHLY  24 
VMNTHLY  25 
VMNTHLY  26 
VMNTHLY  27 
VMNTHLY  28 
VMNTHLY  29 
VMNTHLY  30 
VMNTHLY  31 
VMNTHLY  32 
VAMAM  2 
VAMAM  3 
VAMAM  4 
VAMAM  5 
VAMAM  6 
VAMAM  7 
VAMAM  8 
VAMAM  9 
VAMAM  10 
VAMAM  1 1 
VAMAM  12 
VAMAM  13 
VAMAM  14 
VAMAM  1 5 
VAMAM  1 6 
VAMAM  1 ' 
VAMAM  18 
VAMAM  19 
VAMAM  20 
VAMAM  2 1 
VAMAM  22 
VAMAM  23 
VAMAM  24 
VAMAM  25 
VAMAM  26 
VAMAM  27 
VAMAM  28 
VAMAM  29 
VRADCOM  2 
VRADCOM  3 
VRADCOM  A 
VRADCOM  5 
VRADCOM  6 
VRADCOM  7 
VRADCOM  8 
VRADCOM  9 
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O 


00382 

00383 

00384 

00385 

00386 

00387 

00388 

00389 

00390 
0039  t 

00392 

00393 

00394 

00395 

00396 

00397 

00398 

00399 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00408 

00409 

00410 
0041  1 

00412 

00413 

00414 

00415 

00416 

00417 

00418 
004  19 

00420 

00421 

00422 

00423 

00424 

00425 

00426 

00427 
0042B 

00429 

00430 

00431 

00432 

00433 

00434 

00435 

00436 

00437 

00438 

00439 

00440 
0044  1 

00442 

00443 

00444 

00445 

00446 

00447 

00448 

00449 

00450 

00451 

00452 


COMMON  /RADCOM/  PIKE 
COMMON  /RADCOM/  TL 
COMMON  /RADCOM/  TLE 
COMMON  /RADCOM/  TG 
COMMON  /RADCOM/  TH 
COMMON  /RADCOM/  SHL 
COMMON  /RADCOM/  SHLE 
COMMON  /RADCOM/  SHG 
COMMON  /RADCOM/  CLOUD 
COMMON  /RADCOM/  SHSAT 
COMMON  /RADCOM/  GAM 
COMMON  /RADCOM/  RH 
COMMON  /RADCOM/  SS5 
COMMON  /RADCOM/  SSSE 
COMMON  /RADCOM/  HH 
COMMON  /RADCOM/  HHE 
COMMON  /RADCOM/  HHS 
COMMON  /RADCOM/  CVT 
COMMON  /RADCOM/  CVQ 
COMMON  /RADCOM/  CXDE 
COMMON  /RADCOM/  SWALE 
COMMON  /RADCOM/  SWIL 
COMMON  /RADCOM/  AL 
COMMON  /RADCOM/  TAUL 
COMMON  /RADCOM/  OZALE 
COMMON  /RADCOM/  TOP ASS 
COMMON  /RADCOM/  RN 
COMMON  /RADCOM/  TN 
COMMON  /RADCOM/  SRS 
COMMON  /RADCOM/  STN 
COMMON  /RADCOM/  TCOND 
COMMON  /RADCOM/  TPENE 
COMMON  /RADCOM/  TLOWL 
COMMON  /RADCOM/  TMIOL 
COMMON  /RADCOM/  NLAYOZ 
COMMON  /RADCOM/  FK 
COMMON  /RADCOM/  KK 
COMMON  /RADCOM/  NFK 
COMMON  /RADCOM/  OL JAN 
COMMON  /RADCOM/  OLAPR 
COMMON  /RADCOM/  OLJUL 
COMMON  /RADCOM/  OLOCT 
COMMON  /RADCOM/  OCM22 
COMMON  /RADCOM/  OCM30 
COMMON  /RADCOM/  0CM38 
COMMON  /RAOCOM/  0CM46 
COMMON  /RADCOM/  PROCM 
COMMON  /RADCOM/  OCMXX 
COMMON  /RADCOM/  NOZ 
COMMON  /RADCOM/  TOTOZ 
COMMON  /RADCOM/  CD ATE 
COMMON  /RADCOM/  CZH 
COMMON  /RADCOM/  WET 
COMMON  /RADCOM/  EVAP 
COMMON  /RADCOM/  PREP 
COMMON  /RADCOM/  Wl 
COMMON  /RADCOM/  COSZ 
COMMON  /RADCOM/  SO 
COMMON  /RADCOM/  RADTRM 
COMMON  /RADCOM/  CXL 
COMMON  /RADCOM/  SG 
COMMON  /RADCOM/  SP 
COMMON  /RADCOM/  RSURF 
COMMON  /RADCOM/  RCLOUD 
COMMON  /RADCOM/  JALB 
COMMON  /RADCOM/  LAND 
LOGICAL  LAND 

COMMON  /RADCOM/  OCEAN 
LOGICAL  OCEAN 

COMMON  /RADCOM/  ICE 
LOGICAL  ICE 


( 10) 
(72,9  ) 

(72, 10) 

(72 

(72,9  ) 

(72,9  ) 

(72,10) 

(72 

(72,12) 
(72,9  > 

(72,9  ) 

(72,9  ) 

(72,9  ) 

(72,10) 
(72,9  ) 

(72,10) 
(72,9  ) 

(72.9  ) 

(72,9  ) 

( 9 ) 

(72, 10) 
(72,9  > 

(72,10) 
(72,10) 
<72, 10) 

(72 

( 9 > 


( 9 ) 

( 9 > 

( 9 ) 


< 5) 

< 5) 

( 19) 
( 19) 
( 19) 
( 19) 
(23) 
(23) 
(23) 
(23) 
(23) 
(23) 

( 4) 
( 6) 
(72 
(72 

(72 

(72 

(72 

(72 

(72 

(72 

(72 

(72 

<72 

(72 

(72 


) 


) 


) 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

> 


VRADCOM  10 
VRADCOM  1 1 
VRADCOM  12 
VRADCOM  13 
VRADCOM  14 
VRADCOM  15 
VRADCOM  16 
VRADCOM  17 
VRADCOM  18 
VRADCOM  19 
VRADCOM  20 
VRADCOM  21 
VRADCOM  22 
VRADCOM  23 
VRADCOM  24 
VRADCOM  25 
VRADCOM  26 
VRADCOM  27 
VRADCOM  28 
VRADCOM  29 
VRADCOM  30 
VRADCOM  31 
VRADCOM  32 
VRADCOM  33 
VRADCOM  34 
VRADCOM  35 
VRADCOM  36 
VRADCOM  37 
VRADCOM  38 
VRADCOM  39 
VRADCOM  40 
VRADCOM  41 
VRADCOM  42 
VRADCOM  43 
VRADCOM  44 
VRADCOM  45 
VRADCOM  46 
VRADCOM  47 
VRADCOM  48 
VRADCOM  49 
VRADCOM  50 
VRADCOM  51 
VRADCOM  52 
VRADCOM  53 
VRADCOM  54 
VRADCOM  55 
VRADCOM  56 
VRADCOM  57 
VRADCOM  58 
VRADCOM  59 
VRADCOM  60 
VRADCOM  61 
VRADCOM  62 
VRAOCOM  63 
VRADCOM  64 
VRADCOM  65 
VRADCOM  66 
VRADCOM  67 
VRADCOM  68 
VRADCOM  69 
VRADCOM  70 
VRADCOM  71 
VRADCOM  72 
VRAOCOM  73 
VRADCOM  74 
VRADCOM  75 
VRADCOM  76 
VRADCOM  77 
VRADCOM  78 
VRADCOM  79 
VRADCOM  80 


00 
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00453 

00454 

00455 

00456 

00457 

00458 

00459 
004(50 
00461 


00462 

00463 

00464 

00465 

00466 


00467 


00468 

00469 

00470 

00471 

00472 


00473 

00474 

00475 

00476 

00477 

00478 

00479 


00480 

00481 

00482 

00483 

00484 

00485 


00486 


00487 

00488 

00489 

00490 

00491 


00492 

00493 

00494 


C 

C 


COMMON  /RADCOM/  SNOW  <72 
LOGICAL  SNOW 

/^ADC0IW/  MTXWI  <72 
LOGICAL  MIXWI 

/RADCOM/  FROST  (72 
LOGICAL  frost 

COMMON  /RADCOM/  USELWI 
LOGICAL  USELWI 

COMMON  /RADCOM/  KEYLWI  (72 


work i (512, 128,21 

A I JUMP (1) 

< AldUMP < M . IdUMP ( 1 ) ) 

ADSTOP ( n 

( ADSTOP ( 1 ) , DSN TOP { 1 ) ) 


COMMON 
DIMENSION 

equivalence 
dimension 

EQUIVALENCE 
c 
c 
c 

C DEBUG 
10000  CONTINUE 

c * * CYBER  vlcrnn  00  * 00  * INPUT  lOQ 

A . ... 


g "•*: 

c ♦♦♦+****??  FULL  PRECISION 

LQSAVE  - 1152 

LMNTHLY  = 128 

LQWORK  = 256 

LSPACE  = 896 

„ LXCNTR  s 12S 

C 

C ♦♦*♦♦***??  HALP  precision 

IP  I32.EQ.32>  THEN 
LQSAVE  = 640 
LMNTHLY  - 128 
LQWORK  = 128 
LSPACE  * 5 t 2 
LXCNTR  = 128 

END  IF 


VRAOCOM  81 
VRADCOM  82 
VRAOCOM  83 
VRADCOM  84 
VRADCOM  85 
VRADCOM  86 
VRADCOM  87 
VRADCOM  88 
VRADCOM  89 
VRADCOM  90 
VPGMAP  35 
VPGMAP 
VPGMAP 
VPGMAP 
VPGMAP 
VPGMAP 
VPGMAP 

* *-*  4 * *****  ♦♦♦VPGMAP 
VFGMAP 
VBEGDEB 
VBEGDEB 
VBEGDEB 
VBEGDEB 


CALL  Q5R0UEST 

aiT8!!8«"w‘ >■ S3»X?- : ?i; 

LVL=  ?5KE?.4  1 ' LFN=  ' • ' 0SAVE  ' . ' VBA-  .IdUMP  , • LEN  = • . LOSAVE  . ' L P AGE  ' 
, DO  100  LX=!.LV 

.00  A I JUMP  < f ♦ (LX-n-5, 2*64:5. 2*64,  . „ . 0 SO 

CALL  QBRQUEST  == === = =I==S = “= = 0= == 3 == ======*======== 3=- = 

|<  LFM*  ' , ' NINTHLY'  , ' LEN=  * , LMNTHLY , ' RT*  • , * U ' t ’EXT='  . ' N ' , * pjyj.  > 

S?KL  252?HN  1 *1  FN='  LMNTHLY'  mmpm  'TPAK25') 

DO  20oTxH(V-^M=#  ’ <MNrHLV#  * '^BA='  , DSNTOP  , # LEN-  ' , LMNTHLY , ' LPAGE 
200  AOS?Sp('fX7,i};;-1,.gt2.64  ;512*64)  = 0.0  SO 

CALL  QBRQUEST  5s:  = s = ” = = = = s = t;s-5s 

aa'seJTj :'sS: :jk: j \L,u  -lem-V  lowork' 

* VOA  .WORK!,  LEN=  , LQWORK , ' LPAGE J > 


36 

37 

38 

39 

40 

41 

42 

43 
2 

3 

4 

5 

6 

VPGMAP  45 
♦♦♦VPGMAP  46 
♦♦♦VPGMAP  47 
**  ♦VPGMAP  48 
VPGMAP  49 
VPGMAP  50 
VPGMAP  51 
VPGMAP  52 
VPGMAP  53 
VPGMAP  54 
VPGMAP  55 
VPGMAP  56 
VPGMAP  57 
VPGMAP  58 
VPGMAP  59 
VPGMAP  go 
VPGMAP  61 
VPGMAP  62 
VPGMAP  63 
VPGMAP  64 
VPGMAP  65 
VPGMAP  66 
VPGMAP  67 
— VPGMAP  68 
VPGMAP  69 
> VPGMAP  70 
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HALF 
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HALF 
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HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 
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SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 
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SIMPLE 
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S2MPLE 

SIMPLE 
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SIMPLE 

SIMPLE 

SIMPLE 
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ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 
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ARRAY 

SIMPLE 

ARRAY 
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SUBROUTINE 

SUBROUTINE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 
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SIMPLE 

SIMPLE 
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62 

63 

64 

65 
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67 
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42 

69 

70 
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71 
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72 
61 

74 
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76 
86 
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77 
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82 
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83 

85 
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424 

425 

426 
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42  1 
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185 
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189 
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*T3 
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PZERO 

RCNTRL 

HALF 

SIMPLE 

2 10 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

1 1 1 
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QANDQT 

HALF 

UNKNOWN 

266 

293 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

1 12 
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QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

1 13 
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QEND 

LCNTRL 

LOGICAL 

SIMPLE 

1 14 

1 4 2 

QHOG 

CNTRLP 

LOGICAL 

SIMPLE 
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QOUT 

LCNTRL 

LOGICAL 

SIMPLE 
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QPHY 

LCNTRL 

LOGICAL 

SIMPLE 
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144 

QPROG 

QANDQT 

HALF 

ARRAY 
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QRSH 

LCNTRL 

LOGICAL 

SIMPLE 
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LCNTRL 
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HALF 

ARRAY 
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SPACE 

HALF 
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RA 
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HALF 
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HALF 

UNKNOWN 
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RCNTRL 

HALF 

SIMPLE 
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RADTRM 

RADCOM 

HALF 

ARRAY 
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RC 

RCNTRL 

HALF 
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RCNTRL 

HALF 

SIMPLE 
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RADCOM 

HALF 

ARRAY 
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RCNTRL 

HALF 
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RDPARM 

HALF 
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RE 

RADCOM 

HALF 
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RCNTRL 

HALF 
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RH 
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HALF 
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RDPARM 

HALF 
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RDPARM 

HALF 

ARRAY 
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RN 

RADCOM 

HALF 
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ROCP 

RCNTRL 

HALF 

SIMPLE 
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ROCPDT 

RDPARM 

HALF 

SIMPLE 
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RDPARM 

HALF 

SIMPLE 

256 

RSDIST 

RCNTRL 

HALF 

SIMPLE 
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RSURF 

RAOCOM 

HALF 
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SO 

RADCOM 

HALF 

SIMPLE 
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SDAV 

RCNTRL 

HALF 

SIMPLE 
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SEASON 

RCNTRL 

HALF 

SIMPLE 
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SG 

RADCOM 

HALF 

ARRAV 
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RDPARM 

HALF 
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SB 

QANDQT 

HALF 
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SHG 

RADCOM 

HALF 

ARRAY 
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SHL 

RADCOM 

HALF 

ARRAY 

387 

SHLE 

RADCOM 

HALF 

ARRAV 
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SHLTOP 

CNTRLP 

HALF 

SIMPLE 
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SHS 

QANDQT 

HALF 

ARRAY 
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SHSAT 

RADCOM 

HALF 
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RDPARM 

HALF 
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RCNTRL 

HALF 
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SIND 

RCNTRL 

HALF 

SIMPLE 
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SINL 

RDPARM 

HALF 

ARRAY 
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RDPARM 

HALF 
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SINROT 

CNTRLP 

HALF 

SIMPLE 
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HALF 
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28  1 
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383 
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393 
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439 
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445 
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455 
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184 
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195 
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201 

204 
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206 

207 
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209 
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243 
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246 
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SP 
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SSS 

SSSE 

START 
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SURGV/T 
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TG 

TH 
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TICE 

TL 
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TN 
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TS 
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U 
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V 
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WI 
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XK 
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RADCOM 

CNTRLP 

CNTRLP 
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RADCOM 
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RADCOM 

RADCOIVI 
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CNTRLP 

CNTRLP 

CNTRLP 

RADCOM 

MNTHLY 

MNTHLY 

MNTHLY 

MNTHLY 

MNTHLV 

RADCOM 

RADCOM 
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RADCOM 

RADCOM 

RADCOM 
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RDPARM 
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CNTRLP 

RADCOM 

RADCOM 

RADCOM 
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QANDQT 
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HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 
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HALF 
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HALF 
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HALF 

HALF 
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HALF 

HALF 

HALF 

HALF 
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HALF 
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HALF 

HALF 
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HALF 

HALF 

HALF 

HALF 

HALF 
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HALF 
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logical 
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HALF 

HALF 

HALF 
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HALF 
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ARRAY 
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ARRAY 

ARRAY 
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SIMPLE 

SIMPLE 
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SIMPLE 

ARRAY 
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4 13 

ARRAY 

272 
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29 
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FUNCTION  PW6AN  fN) 

CALCULATES  GLOBAL  MEAN  SURFACE  PRESSURE  FOR  FOURTH  ORDER  MO 
ARGUMENTS  description 

PRESSURE  TIMS  LEVEL 

PMEAN  GLOBAL  MEAN  PRESSURE  RETURNED 

HISTORY  RECORD 

COMMON  /CCNTRL /CCO  * = = - = = = « = -«  = = -. -- 

COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  dIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CC5P06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CC3P08 
COMMON  /CCNTRL/  V-LR 
COMMON  /CCNTRL/  * LABEL  <10> 

COMMON  /CCNTRL/  COS  (30> 

COMMON  /CCNTRL/  COU  MO) 
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CHARACTER'8 
CHARACTER'S 
CHARACTER'S 
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MROD 
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NB 

ND 
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VPMEAN  6 
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S 
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6 
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7 
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8 
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9 
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10 
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VCNTRL 

12 
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13 
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14 
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15 
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16 
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17 
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19 
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20 
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VCNTRL 

22 
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23 
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24 
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25 
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26 
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27 
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28 
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29 
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30 
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31 

VCNTRL 

32 
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33 
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34 
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35 
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36 
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37 
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38 
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39 

VCNTRL 

40 
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41 
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42 
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43 
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44 
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45 
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46 
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47 
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48 
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49 
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50 
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51 
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52 
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53 
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54 
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57 
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59 

VCNTRL 

60 
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61 
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00091 
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NHMSE 
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NLA  V 
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/ICNTRL/ 
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COMMON 

/ICNTRL/ 
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/ICNTRL/ 

NSDAY 

COMMON 

/ICNTRL/ 

NSEQ 

COMMON 

/ICNTRL/ 

ICSP53 

COMMON 

/ICNTRL/ 

NSTEP 

COMMON 

/ICNTRL/ 

IBLKSIZ 

COMMON 

/ICNTRL/ 

NYMD 

COMMON 

/ICNTRL/ 

NYMDE 

COMMON 

/ICNTRL/ 

NYMDO 

COMMON 

/ICNTRL/ 

NZINIT 

COMMON 

/ICNTRL/ 

NMLEV 

COMMON 

/ICNTRL/ 

NDHOG 

COMMON 

/ICNTRL/ 

IOS  (30) 

COMMON 

/ICNTRL/ 

IQU  (10) 

EQUIVALENCE 

( ITMIN 

, IQS< 

1 ) ) 

EQUIVALENCE 

( I TMA  X 

. IQS  ( 

2)  > 

equivalence 

( IPREACC 

, IOSf 

3)  ) 

EQUIVALENCE 

( I PRECON 

. IOS( 

4 ) > 

EQUIVALENCE 

< IHFLUX 

. IOS( 
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r IEFLUX 

. IQS( 
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. IOS  < 
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( IICLOUD 

, IOS ( 10  > ) 

EQUIVALENCE 

< I UF  LUX 

. I QS (11)) 

EQUIVALENCE 

f IVFLUX 

. I QS ( 12) ) 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( IOMEGA  „ IQU(  1 ) > 
(IDIABAT  . IQUt  2)) 
( I RADSW  , IQU<  3 ) ) 
(1RADLW  ,IQU1  4>> 


EQUIVALENCE  t ICO, ICC  1 M 

INTEGER  ICO,  ICC200) 


LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORO 

COMMON  / LCNTRL / LCO 

COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL/  OBEG 
COMMON  /LCNTRL/  QDAY 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMMON  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 
COMMON  /LCNTRL/  QRSW 
COMMON  /LCNTRL/  ORSH 
COMMON  /LCNTRL/  L0SC30) 

COMMON  /LCNTRL/  LOU(IO) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(LTMIN 
(LTMAX 
(LPREACC 
( LPRECON 
(LHFLUX 
( LEFLUX 
(LFUSION 
{ LRADSWG 
< LRADLWG 
(LICLOUD 
< LUFLUX 
(LVFLUX 


,LOS(  1>> 
,LQS<  2) ) 
♦ LOS(  3)) 
,LQS<  4 ) ) 
« LQS ( 5)) 
, LQS ( 6)) 
, LQS ( 7 > ) 
» LOS ( 8)) 
, LQS ( 9)  > 
,LOS<  TO)  ) 
* LQS  ( ID) 
, LOS ( 12) ) 


VCNTRL 

65 

VCNTRL 

66 

VCNTRL 

67 

VCNTRL 

68 

VCNTRL 

69 

VCNTRL 

70 

VCNTRL 

71 

VCNTRL 

72 

VCNTRL 

73 

VCNTRL 

74 

VCNTRL 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRL 

79 

VCNTRL 

80 

VCNTRL 

Q 1 

VCNTRL 

82 

VCNTRL 

83 

VCNTRL 

84 

VCNTRL 

85 

VCNTRL 

8G 

VCNTRL 

87 

VCNTRL 

88 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

91 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

9B 

VCNTRL 

99 

VCNTRL  100 
VCNTRL  101 
VCNTRL  102 
VCNTRL  103 
VCNTRL  104 
VCNTRL  105 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  110 
VCNTRL  111 
VCNTRL  112 
VCNTRL  113 
VCNTRL  t 1 4 
VCNTRL  115 
VCNTRL  116 
VCNTRL  1 17 
VCNTRL  118 
VCNTRL  119 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 
VCNTRL  128 
VCNTRL  129 
VCNTRL  130 
VCNTRL  131 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
VCNTRL  135 


§ 


K> 


OF  POOR  QUALITY 


c 


i 


I 

! 

i 


00122 

EQUIVALENCE 
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EQUIVALENCE 

00124 

EQUIVALENCE 

00125 

C 

equivalence 

00126 

LOGICAL 
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logical 

00  128 

logical 

00129 

logical 

00130 

LOGICAL 

00  131 

LOGICAL 

00132 

LOGICAL 

00133 

LOGICAL 

00  134 

LOGICAL 

00135 

C 

‘ OGICAL 

00136 

LOGICAL 

00137 

LOGICAL 

00138 

logical 

00139 

logical 

00140 

logical 

00141 

logical 

00142 

logical 

00  143 

logical 

00144 

LOGICAL 

00145 

LOGICAL 

00146 

LOGICAL 

00147 

LOGICAL 

00143 

LOGICAL 

00  149 

C 

LOGICAL 

00150 

LOGICAL 

00  151 

LOGICAL 

00152 

LOGICAL 

00153 

C 

LOGICAL 

00154 

EQUIVALENCE 

00  155 

C 

LOGICAL 

C 

C 

REAL  MODEL  PARAMET 

(LOMEGA  , LQU ( 1)) 

(LDIABAT  ,LQU<  2)) 

(LRADSW  , LQU ( 3)) 
f LRADLW  , LQU < 4)  ) 

QALT 

QBEG 

QDA  V 

QEND 

QOUT 

QPHY 

QSHF 

SN2FLG 

QRSW 

QRSH 

LQS 

LQU 

LTMIN 

LTMAX 

LPREACC 

LPRECON 

LWFLUX 

LEFLUX 

LFUSIGN 

LRAD5WG 

LRADLWG 

LICLOUD 

LUFLUX 

LVFLUX 

LOMEGA 

LDIABAT 

LRADSW 

LRADLW 

f LCO.LCf 1 > } 

LCO.  LC  4 200) 

TERS  SAVED  ON  HISTORY  RECORD 


00156 
00  1 57 

00158 

00159 
00  160 
0016  1 
00162 

00163 

00164 

00165 

00166 

00167 

00168 
00  169 
00170 

00171 

00172 

00173 

00174 

00175 

00176 
00  177 

00178 

00179 
00  180 
00181 
00182 

00183 

00184 


COMMON  /RCNTRL/  RCO 
COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSD 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYSPY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  DECMAX 
COMMON  /RCNTRL/  DIST 
COMMON  /RCNTRL/  DLAT 
COMMON  /RCNTRL/  DLON 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  EC ON 
COMMON  /RCNTRL/  GNU1 
COMMON  /RCNTRL/  GNU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  OMEGA 2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PIMEAN 
COMMON  /RCNTRL/  PSMAX 
COMMON  /RCNTRL/  PSMIN 
COMMON  /RCNTRL/  PTOP 
COMMON  /RCNTRL/  RADE 
COMMON  /RCNTRL/  RGAS 
COMMON  /RCNTRL/  ROCP 
COMMON  /RCNTRL/  RSDIST 


VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  141 
VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  150 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  16-3 
VCNTRL  167 
VCNTRL  16B 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  ISO 
VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  189 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCNTRL  199 
VCNTRL  200 
VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 
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00185 
00  186 
00187 
00  1 88 

00189 

00190 

00191 

00192 

00193 

00194 

00195 

00196 

00197 


i- 


i 


:1 


00198 
00  199 


00200 

00201 

00202 

00203 

00204 

00205 

00206 

00207 

00208 

00209 

00210 


0021  1 
00212 

00213 

00214 

00215 

00216 


00217 

00218 
002  1 9 
00220 
00221 
00222 

00223 

00224 

00225 

00226 

00227 

00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 
0024  1 

00242 

00243 

00244 


COMMON  /RCNTRL/  SDAY 
COMMON  /RCNTRL/  SEASON 
COMMON  /RCNTRL/  SIGE  (25) 
COMMON  /RCNTRL/  SIND 
COMMON  /RCNTRL/  SOLS 
COMMON  /RCNTRL/  TSTD 
COMMON  /RCNTRL/  PLEVS  (25) 
COMMON  /RCNTRL/  HEATW 
COMMON  /RCNTRL/  HEATI 
COMMON  /RCNTRL/  EPS 
COMMON  /RCNTRL/  EPSFAC 
COMMON  /RCNTRL/  CALTOd 
COMMON  /RCNTRL/  PZERO 

C 

EQUIVALENCE  (RCO,RC< 1 ) ) 

REAL  RCO,  RC1200) 

C 

C INTEGER  MODEL  CONSTANTS 

C = = r==  = = = = = ::  = --r  = s^sS2S 

COMMON  /I DP ARM/  I JUMP  (46) 
COMMON  / I DP ARM/  IDSP02 
COMMON  /IDPARM/  INDEX  (72) 
COMMON  /IDPARM/  I ROD 
COMMON  /IDPARM/  JC  (46) 

COMMON  /IDPARM/  dE  (2) 

COMMON  /IDPARM/  JP  (2,2) 

COMMON  /IDPARM/  KSTEP 
COMMON  /IDPARM/  Md  (46) 

COMMON  /IDPARM/  NHMS1 
COMMON  /IDPARM/  NYMD1 

C 

C LOGICAL  MODEL  CONSTANTS 

COMMON  / LDP ARM/  FILTER  (46) 
COMMON  /LDPARM/  I TAPE 
COMMON  /LDPARM/  START 

C 

LOGICAL  FILTER 

LOGICAL  I TAPE 

LOGICAL  START 

C 

C REAL  MODEL  CONSTANTS 

COMMON  /RDPARM/  ADLDP 
COMMON  /RDPARM/  CONI 
COMMON  /RDPARM/  CON IDT 
COMMON  /RDPARM/  C0N2 
COMMON  /RDPARM/  C0N2DT 
COMMON  /RDPARM/  CON3 
COMMON  /RDPARM/  C0N3DT 
COMMON  /RDPARM/  C0N4 
COMMON  /RDPARM/  C0N4DT 
COMMON  /RDPARM/  C0N5 
COMMON  /RDPARM/  COSL  (46) 
COMMON  /RD°ARM/  COSLON  (72) 
COMMON  /RDPARM/  CPD2 
COMMON  /RDPARM/  DXP  (46) 
COMMON  /RDPARM/  DXYP  (46) 
COMMON  /RDPARM/  DYP  (46) 

COMMON  /RDPARM/  FCORLS  (46) 
COMMON  /RDPARM/  FJDT 
COMMON  /RDPARM/  F2DT 
COMMON  /RDPARM/  H 1 DT 
COMMON  /RDPARM/  H2DT 
COMMON  /RDPARM/  PKSTD 
COMMON  /RDPARM/  PKTOP 
COMMON  /RDPARM/  RLAT  (46) 
COMMON  /RDPARM/  RLATD  (46) 
COMMON  /RDPARM/  ROCPDT 
COMMON  /RDPARM/  ROC PP  1 
COMMON  /RDPARM/  SGNP  (2) 
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VCNTRL 

20B 

VCNTRL 

209 

VCNTRL 

210 

VCNTRL 

211 

VCNTRL 

212 

VCNTRL 

213 

VCNTRL 

214 

VCNTRL 

215 

VCNTRL 

216 

VCNTRL 

217 

VCNTRL 

218 

VCNTRL 

219 

VCNTRL 

220 

VCNTRL 

221 

VCNTRL 

222 

VCNTRL 

223 

VCNTRL 

224 

VCNTRL 

225 

VCNTRL 

226 

VCNTRL 

227 

VCNTRL 

228 

VCNTRL 

229 

VCNTRL 

230 

VCNTRL 

231 

VCNTRL 

232 

VCNTRL 

233 

VCNTRL 

234 

O o 
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VCNTRL 

235 

VCNTRL 

236 

VCNTRL 

237 

g 3 

VCNTRL 

238 

VCNTRL 

239 

VCNTRL 

240 

VCNTRL 

241 

VCNTRL 

242 

rO  -g 

VCNTRL 

243 

VCNTRL 

244 

C Sd 

VCNTRL 

245 

VCNTRL 

246 

n ^ 

VCNTRL 

247 

VCNTRL 

24B 

*4  @3 

VCNTRL 

249 

VCNTRL 

250 

VCNTRL 

25  1 

VCNTRL 

252 

VCNTRL 

253 

VCNTRL 

254 

VCNTRL 

255 

VCNTRL 

256 

VCNTRL 

257 

VCNTRL 

258 

VCNTRL 

259 

VCNTRL 

260 

VCNTRL 

261 

VCNTRL 

262 

VCNTRL 

263 

VCNTRL 

264 

VCNTRL 

265 

VCNTRL 

266 

VCNTRL 

267 

VCNTRL 

268 

VCNTRL 

269 

VCNTRL 

270 

VCNTRL 

271 

VCNTRL 

272 

VCNTRL 

273 

VCNTRL 

274 

VCNTRL 

275 

VCNTRL 

276 

VCNTRL 

277 
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002.4  5 

00246 

00247 
0024S 

00249 

00250 
0025  t 
00252 


00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 

00262 

00263 

00264 

00265 

00266 

00267 

00268 

00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 


00280 

00281 

00282 

00283 


00284 


00285 


C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 


c 

c 

c 
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COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 

/RDPARM/ 


(46  3 
(72  3 


S3  NL 
SINLON 
THSTD 
THSTD2 

WSAVE  (1593 
DSIG  (93 
SIG  (9) 
DSIGINV  (91 


COMbECK  VQANDQT  RESOLUTION  VALUES 


IM 

NLA  V 
JM*  t 
NLA V* 1 1 
IM'NLAY* 
JM/  2 1 


1 1 


-72 
"9 
= 46 
= 99 
= 7128 
= 23 


C 5!:???^,V,0D£L  PROGNOSTIC  FIELDS  (NEEDED  IN  COMPO) 
C " = = - = =ss«;s  = aB;s3ss-:S8S8- 

COMMON  /PANDOT/  OPROG ( 72 , 9 . 1 1 , 46 ) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


PHIS 

SMTH 

ALBEDO 

GT 

GY/ 

TS 

SHS 

P 

U 
V 
T 

SH 
PHI 


(7128,1) 

<7128,233 

(7128,1) 

(7128,1) 

(7128, 1 ) 

(7128,1) 

(7128.1) 

(72.99. 1 ) 

(72,9, 1 1 , 
(72.9, 1 f 
(72.9, 1 1 
(72,9, 11 
(72,9,11 


( QPROG( 1 
( QPROG ( 1 
( QPROG ( 1 
( QPROG ( 1 
( QPROG ( 1 
( QPROG ( 1 
( QPROG  < 1 
(QPROG! 1 

( QPROG ( 1 
( QPROG ( 1 
( QPROG  t 1 
( QPROG ( 1 
( OPROG ( 1 


1 , 1 
2, 1 

3.1 

4. 1 

5 . 1 
6,  I 
7 . 1 


1 > , 
1 ) 


1 ) 

1 ) 

1 ) 

1) 

1 > 

PHIS 

SMTH 


t ) , ALBEDO ( 1 


1 ) .GT 
1 > , GW 
1)  , TS 
1 > , SHS 


( 1 
( 1 
( 1 
( 1 


8, 1 . 1 ) ,P 

( 1 

1.1) 

. 2, 1 ) ,U 

(1.1, 
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, 4, 1 ) ,V 
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. 1)  ) 
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(1.1. 

, 1 ) ) 
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COMMON 

DIMENSION 

EQUIVALENCE 

COMMON 


/QANDQT / QSDI AG ( 72  .15,46) 

I QSD I AG ( 72  , 15,46) 

< QSDI AG, I QSDI AG ) 

/QANDQT/  QUD I AG (72,9,  5.46) 


LOGICAL  QUITE/ .FALSE./ 

C * * * 

C DEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION 

C * * * * CYBER  VECTOR  VERSION 


00 

00 
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VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VOANDQT 

VOANDQT 

VQANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VOANDQT 

VQ/  :,DQT 

VOANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VQANDQT 

VOANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VQANDQT 

VPMEAN 

VPMEAN 

VPMEAN 

VBEGDEB 

VBEGDEB 

VBEGDEB 

VBEGDEB 


278 

279 

280 
281 
282 

283 

284 

285 

286 
2 

3 

4 

5 

6 

7 

8 
9 

10 
f 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 
12 

13 

14 
2 

3 

4 

5 

6 


o o 

«T3  33 

TJ  §2 
02 
O 53 
33  *“ 

iO  ”13 

e S 

38 


; •; 

00286 

IF  (OUITE)  GO  TO  5 

VPMEAN 

16 

l . 

i 

00287 

QUITE  * .TRUE. 

VPMEAN 

17 

1 

1 

0028B 

DL  = ACOS < - 1 . ) /JM 

VPMEAN 

18 

t . 

00289 

PAREA  = I M ♦ ( 1 . - COS< ,S*DL > > /SJNtDL > 

VPMEAN 

19 

00290 

5 CONTINUE 

VPMEAN 

20 

i 

0029  1 

SAREA  = PAREA 

VPMEAN 

21 

I 

00292 

SMASS  = . S+PAREA*  ( P (1 , N , 1 > * P < 1 , N , JM+ 1 ) > 

VPMEAN 

22 

t 

00293 

D = - . 5 *DL  ♦ JM 

VPMEAN 

23 

l : 

00294 

00  20  J=2,JM 

VPMEAN 

24 

i 00295 

SPRESS  = Q3SSUM(P< 1 ,N.d; IM> ) 

VPMEAN 

25 

i 

00296 

D = D + DL 

VPMEAN 

26 

i 

00297 

COSJ  ~ COS ( D > 

VPMEAN 

27 

i 

00298 

SAREA  * SAREA  * IM*COSd 

VPMEAN 

28 

2 

* • 

00299 

SMASS  = SMASS  * SPRESS'COSd 

VPMEAN 

29 

1 

j 

00300 

20  CONTINUE 

VPMEAN 

30 

00301 

PMEAN  = SMASS/SAREA  -*■  PTOP 

VPMEAN 

31 

00302 

RETURN 

VPMEAN 

32 

00303 

END 

VPMEAN 

33 

STATEMENT 

LABEL  MAP 

--LABEL 

-DEFINED REFERENCES 

' f 

1 0000 

28S 

20 

300  294 

5 

290  286 

VARIABLE  MAP 


NAME 

--BLOCK 

— T VPEr 

--CLASS 

---REFERENCES 

ADATE 

CONTRL 

CHAR  *8 

SIMPLE 

3 

16 

ADLDP 

Rt  PARM 

REAL 

SIMPLE 

217 

ALBEDO 

QAVDQT 

REAL 

ARRAY 

256 

2S9 

APHEL 

RCNTRL 

REAL 

SIMPLE 

157 

ATIME 

CJNTRL 

CHAR  * B 

SIMPLE 

4 

17 

BETA 

r<CNTRL 

REAL 

SIMPLE 

158 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

t 96 

CC 

CCNTRL 

CHAR  *8 

ARRAY 

14 

15 

cco 

CCNTRL 

CH A R ♦ 8 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

13 

7 

3 

CCSP06 

CCNTRL 

CHAR  *8 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHARTS 

SIMPLE 

B 

21 

CCSP08 

CCNTRL 

CHAR  *8 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

218 

CON IDT 

RDPARM 

REAL 

SIMPLE 

219 

CON2 

RDPARM 

REAL 

SIMPLE 

2 20 

C0N2DT 

RDPARM 

REAL 

STMPLE 

221 

C0N3 

RDPARM 

REAL 

SIMPLE 

222 

C0N3DT 

RDPARM 

REAL 

SIMPLE 

223 

CON4 

RDPARM 

REAL 

SIMPLE 

224 

CON4DT 

RDPARM 

REAL 

SIMPLE 

225 

CONS 

RDPARM 

real 

SIMPLE 

226 

COSO 

RCNTRL 

REAL 

SIMPLE 

159 

COSd 

REAL 

SIMPLE 

297 /S 

298 

COSL 

RDPARM 

REAL 

ARRAY 

227 

COSLON 

RDPARM 

REAL 

ARRAY 

228 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

CQS 

CCNTRL 

CHAR  *8 

ARRAY 

1 2 

25 

CQU 

CCNTRL 

CHAR*8 

ARRAY 

13 

26 

D 

REAL 

SIMPLE 

293/S 

296 

DAYSPV 

RCNTRL 

REAL 

SIMPLE 

161 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

163 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

DL 

REAL 

SIMPLE 

288/S 

289 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

DSIGINV 

RDPARM 

REAL 

ARRAY 

252 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

REFERENCES  A-ARGLIST,  C-CTRL  OF  DO,  I=DATA  INIT,  REREAD.  S=STORE . VJ=WRITE 


PMEAN  6 


DXP 

R DP ARM 

REAL 

array 

230 

DXVP 

RDP ARM 

REAL 

ARRAY 

231 

D VP 

RDPARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

163 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

F IDT 

RDPARM 

REAL 

SIMPLE 

234 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

2 11 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU2 

RCNTRL 

REAL 

SIMPLE 

1 70 

GRAV 

RCNTRL 

REAL 

SIMPLE 

1 7 1 

GT 

QANDQT 

REAL 

ARRAY 

25  7 

GW 

OANOQT 

REAL 

ARRAY 

258 

H1DT 

RDPARM 

REAL 

SIMPLE 

236 

H20T 

RDPARM 

REAL 

SIMPLE 

237 

HE  ATI 

RCNTRL 

REAL 

SIMPLE 

1 93 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

IBLK5IZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

ICO 

ICNTRL 

ICNTRL 

INTEGER 

INTEGER 

SIMPLE 

UNKNOWN 

27 
27 
38 
49 
60 
7 1 
68 

IC5P53 

ICNTRL 

INTEGER 

SIMPLE 

IDIABAT 

IDPARM 

ICNTRL 

INTEGER 

INTEGER 

UNKNOWN 

UNKNOWN 

92 

200 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

201 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

83 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

88 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

200 

IM 

ICNTRL 

INTEGER 

SIMPLE 

28 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

29 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

30 

INDEX 

IDPARM 

INTEGER 

ARRAY 

202 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

91 

IPREACC 

ICNTRL 

INTEGER 

UN K NO WN 

81 

I PRECON 

ICNTRL 

INTEGER 

UNKNOWN 

82 

IQS 

ICNTRL 

INTEGER 

ARRAY 

77 

IOSDIAG 

OANDOT 

INTEGER 

ARRAY 

89 

281 

IQU 

ICNTRL 

INTEGER 

ARRAY 

78 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

94 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

93 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

203 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

2 ! 2 

ITMAX 

ICNTRL 

INTEGER 
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120 

00108 

COMMON  /LCNTRL/ 

L QS (30) 

VCNTRL 

121 

00109 

COMMON  /LCNTRL/ 

LOU ( 10) 

VCNTRL 

122 

C 

VCNTRL 

123 

00110 

EQUIVALENCE 

CLTMIN 

, LQS  < 1)) 

VCNTRL 

i 24 

00111 

EQUIVALENCE 

(LTMAX 

, LQS ( 2)) 

VCNTRL 

125 

00112 

EQUIVALENCE 

(LPREACC 

. LQS ( 3)) 

VCNTRL 

126 

001  13 

EQUIVALENCE 

( LPRECON 

, LQS ( 4)) 

VCNTRL 

127 

001  14 

EQUIVALENCE 

( LHFLUX 

« LQS ( 5)) 

VCNTRL 

128 

001  15 

EQUIVALENCE 

CLEFLUX 

i LQS  < 6 > ) 

VCNTRL 

129 

001  16 

EOUIVALENCE 

( LFUSI ON 

, LQS ( 7)) 

VCNTRL 

130 

001  17 

EQUIVALENCE 

f LRAD5WG 

, LQS ( 8 )) 

VCNTRL 

131 

00118 

EQUIVALENCE 

< LRADLVJG 

♦ LQS ( 9j ) 

VCNTRL 

132 

00119 

EQUIVALENCE 

< LICLOUD 

, LQS ( 10) > 

VCNTRL 

133 

00120 

EQUIVALENCE 

(LUFLUX 

, LQS  ( ID) 

VCNTRL 

134 

00  121 

EQUIVALENCE 

< LVFLUX  * LQS < 12  M 

VCNTRL 

135 

C 

VCNTRL 

136 

00122 

EQUIVALENCE 

(LOMEGA  r LQU  < 1>) 

VCNTRL 

137 

00  1 23 

EQUIVALENCE 

f LDIABAT  . LQU<  2 ) } 

VCN1 RL 

138 

00124 

EQUIVALENCE 

(LRADSW  ,LQU<  3 ) J 

VCNTRL 

139 

00125 

EQUIVALENCE 

l LRADLW  f LQU ( 4>) 

VCNTRL 

140 

C 

VCNTRL 

141 

00126 

LOGICAL 

QALT 

VCNTRL 

142 

00127 

LOGICAL 

OBEG 

VCNTRL 

143 

00128 

LOGICAL 

QDAY 

VCNTRL 

144 

00129 

LOGICAL 

QEND 

VCNTRL 

!4S 

00130 

LOGICAL 

QOUT 

VCNTRL 

146 

00  131 

LOGICAL 

QPHY 

VCNTRL 

147 

00  132 

LOGICAL 

OSHF 

VCNTRL 

148 

00  1 33 

LOGICAL 

SN2FLG 

VCNTRL 

149 

00  134 

LOGICAL 

qrsv; 

VCNTRL 

150 

00  1 45 

LOGICAL 

ORSH 

VCNTRL 

151 

C 

VCNTRL 

152 

00136 

LOGICAL 

LQS 

VCNTRL 

153 

00137 

LOGICAL 

LQU 

VCNTRL 

154 

00138 

LOGICAL 

LTMIN 

VCNTRL 

155 

00139 

LOGICAL 

LTMAX 

VCNTRL 

156 

00140 

LOGICAL 

LPREACC 

VCNTRL 

157 

00  14  1 

LOGICAL 

LPRECON 

VCNTRL 

158 

00142 

LOGICAL 

LHFLUX 

VCNTRL 

159 

00  143 

LOGICAL 

LEFLUX 

VCNTRL 

160 

00  144 

LOGICAL 

LFUSION 

VCNTRL 

161 

00  145 

LOGICAL 

LRADSWG 

VCNTRL 

162 

00146 

LOGICAL 

LRADLWG 

VCNTRL 

163 

00  147 

LOGICAL 

L I CLOUD 

VCNTRL 

164 

00  148 

LOGICAL 

LUFLUX 

VCNTRL 

1 65 

00  149 

LOGICAL 

LVFLUX 

VCNTRL 

166 

C 

VCNTRL 

167 

00150 

LOGICAL 

LOMEGA 

VCNTRL 

165 

00151 

LOGICAL 

LDIABAT 

VCNTRL 

169 

00152 

LOGICAL 

LRADSW 

VCNTRL 

170 

00153 

LOGICAL 

LRADLW 

VCNTRL 

171 

C 

VCNTRL 

172 

00154 

EQUIVALENCE 

( LCO , LC  < 1 > ) 

VCNTRL 

173 

00155 

LOGICAL 

LCO , LC 12001 

VCNTRL 

174 

C 

VCNTRL 

175 

C 

REAL  P/JODEL  PARAMETERS  SAVED  ON  HISTOftV  RECORD 

VCNTRL 

176 

C 

VCNTRL 

177 

00  156 

COMMON  /RCNTRL/ 

RCO 

VCNTRL 

178 

00  T57 

COMMON  /RCNTRL/ 

APHEL 

VCNTRL 

179 

00  158 

COMMON  /RCNTRL/ 

BETA 

VCNTRL 

180 

00159 

COMMON  /RCNTRL/ 

COSD 

VCNTRL 

181 

00  160 

COMMON  /RCNTRL/ 

CP 

VCNTRL 

182 

00161 

COPJJMON  /RCNTRL/ 

DAYSPY 

VCNTRL 

183 

00162 

COMMON  /RCNTRL/ 

DEC 

VCNTRL 

184 

00103 

COMMON  /RCNTRL/ 

DECMAX 

VCNTRL 

185 

00164 

COPJMON  /RCNTRL/ 

DIST 

VCNTRL 

186 

00165 

COMMON  /RCNTRL/ 

DLAT 

VCNTRL 

187 

00  166 

COMMON  /RCNTRL/ 

DLON 

VCNTRL 

188 

00167 

COMMON  /RCNTRL/ 

DT 

VCNTRL 

189 

00168 

COMMON  /RCNTRL/ 

ECCN 

vcm  RL 

190 

00  169 

COMMON  /RCNTRL/ 

GNU  1 

VCNTRL 

191 

00  170 

COMMON  /RCNTRL/ 

GNU2 

VCNTRL 

192 

00  17  1 

C0MM0f4  /RCNTRL/ 

GRAV 

VCNTRL 

193 

00172 

COMMON  /RCNTRL/ 

OMEGA 2 

VCNTRL 

194 

00173 

COMMON  /RCNTRL/ 

PI 

VCNTRL 

195 

00174 

COMMON  /RCNTRL/ 

PI  180 

VCNTRL 

196 

00  1 75 

COMMON  /RCNTRL/ 

PI  2 

VCNTRL 

197 

00176 

COMMON  /RCNTRL/ 

PSTD 

VCNTRL 

198 

00177 

COMMON  /RCNTRL/ 

PIMEAN 

VCNTRL 

199 

001  78 

COMMON  /RCNTRL/ 

PSMAX 

VCNTRL 

200 

00  179 

COMMON  /RCNTRL/ 

PSMIN 

VCNTRL 

201 

00  180 

COMMON  /RCNTRL/ 

PTOP 

VCNTRL 

202 

00181 

COMMON  /RCNTRL/ 

RADE 

VCNTRL 

203 

00182 

COMMON  /RCNTRL/ 

RGAS 

VCNTRL 

204 

00  183 

COMMON  /RCNTRL/ 

ROCP 

VCNTRL 

205 

o o 

It  g 

ui 

O 2? 

o % 

to  r 

■o  TE 

c 5 

> © 

r“  P2 


POLINP  3 


00184 

COMMON 

/RCNTRL / 

RSDIST 

VCNTRL 

206 

00185 

COMMON 

/RCNTRL / 

SDAY 

VCNTRL 

207 

00  186 

COMMON 

/ RCNTRL / 

SEASON 

VCNTRL 

208 

00187 

COMMON 

/ RCNTRL / 

SIGH 

125) 

VCNTRL 

209 

00188 

COMMON 

/RCNTRL/ 

SIND 

VCNTRL 

210 

00  189 

COMMON 

/RCNTRL/ 

SOLS 

VCNtRL 

21  1 

00  1 90 

COMMON 

/RCNTRL/ 

TSTD 

VCNTRL 

212 

0019  1 

COMMON 

/RCNTRL/ 

PLEVS 

< 25  > 

VCNTRL 

213 

00192 

COMMON 

/RCNTRL/ 

HEATW 

VCNTRL 

214 

00193 

COMMON 

/RCNTRL/ 

HEATI 

VCNTRL 

215 

00194 

COMMON 

/RCNTRL / 

EPS 

VCNTRL 

216 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

VCNTRL 

217 

00196 

COMMON 

/RCNTRL/ 

CAL  TO  J 

VCNTRL 

218 

00197 

COMMON 

/RCNTRL/ 

PZERO 

VCNTRL 

219 

c 

VCNTRL 

220 

00198 

EQUIVALENCE 

( RCO . RC ( 1 U 

VCNTRL 

221 

00199 

REAL 

RCO.  RC 1200) 

VCNTRL 

222 

c 

VCNTRL 

223 

C 

INTEGER  MODEL  CONSTANTS 

VCNTRL 

224 

c 

VCNTRL 

225 

00200 

COMMON 

£wtiP ARM/ 

I JUMP 

(46) 

VCNTRL 

226 

00201 

COMMON 

/ * D P A R M / 

IDSP02 

VCNTRL 

227 

00202 

COMMON 

/ IDPARM/ 

INDEX 

<72  ) 

VCNTRL 

228 

00203 

COMMON 

/ JDPARM/ 

I ROD 

VCNTRL 

229 

00204 

COMMON 

/IDPARM/ 

JC 

(46) 

VCNTRL 

230 

00205 

COMMON 

/IDPARM/ 

UE 

(2) 

VCNTRL 

231 

00206 

COMMON 

/IDPARM/ 

JP 

(2,2i 

VCNTRL 

232 

00207 

COMMON 

/IDPARM/ 

KSTEP 

VCNTRL 

233 

00208 

COMMON 

/IDPARM/ 

MJ 

(46) 

VCNTRL 

234 

00209 

COMMON 

/IDPARM/ 

NHMS1 

VCNTRL 

235 

00210 

COMMON 

/IDPARM/ 

NYMD1 

VCNTRL 

236 

c 

VCNTRL 

237 

c 

LOGICAL  MODEL  CONSTANTS 

VCNTRL 

238 

c 

VCNTRL 

239 

0021  1 

COMMON 

/LDPARM/ 

FILTER 

(46  > 

VCNTRL 

240 

00212 

COMMON 

/ LDP ARM/ 

ITAPE 

VCNTRL 

24  1 

00213 

COMMON 

/LDPARM/ 

START 

VCNTRL 

242 

c 

VCNTRL 

243 

00214 

LOGICAL 

FILTER 

VCNTRL 

244 

00215 

LOGICAL 

ITAPE 

VCNTIIL 

245 

00216 

LOGICAL 

START 

VCNTRL 

246 

c 

VCNTRL 

247 

c 

REAL  MODEL  CONSTANTS 

VCNTRL 

248 

c 

VCNTRL 

249 

00217 

COMMON 

/RDP ARM/ 

ADLDP 

VCNTRL 

250 

00218 

COMMON 

/RDPARM/ 

CONI 

VCNTRL 

251 

00219 

COMMON 

/RDPARM/ 

CON  IDT 

VCNTRL 

25  2 

00220 

COMMON 

/RDPARM/ 

C0N2 

VCNTRL 

253 

00221 

COMMON 

/RDPARM/ 

CON2DT 

VCNTRL 

254 

00222 

COMMON 

/RDPARM/ 

C0N3 

VCNTRL 

255 

00223 

COMMON 

/RDPARM/ 

C0N3DT 

VCNTRL 

256 

00224 

COMMON 

/RDPARM/ 

C0N4 

VCNTRL 

257 

00225 

COMMON 

/RDPARM/ 

C0W4DT 

VCNTRL 

258 

00226 

COMMON 

/RDPARM/ 

C0N5 

VCNTRL 

259 

00227 

COMMON 

/RDPARM/ 

COSL 

(46) 

VCNTRL 

260 

00228 

COMMON 

/RDPARM/ 

COSLON 

(72) 

VCNTRL 

261 

00229 

COMMON 

/RDPARM/ 

CPD2 

VCNTRL 

262 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

VCNTRL 

263 

00231 

COMMON 

/RDPARM/ 

DKYP 

(46) 

VCNTRL 

264 

00232 

COMMON 

/RDPARM/ 

DYP 

(46) 

VCNTRL 

265 

00233 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

VCNTRL 

266 

00234 

COMMON 

/RDPARM/ 

F IDT 

VCNTRL 

267 

00235 

COMMON 

/RDPARM/ 

F2DT 

VCNTRL 

268 

00236 

COMMON 

/RDPARM/ 

H1DT 

VCNTRL 

269 

00237 

COMMON 

/RDPARM/ 

H2DT 

VCNTRL 

270 

00238 

COMMON 

/RDPARM/ 

PKSTD 

VCNTRL 

27  1 

00239 

COMMON 

/RDPARM/ 

PKTOP 

VCNTRL 

272 

00240 

COMMON 

/RDPARM/ 

RLAT 

(46) 

VCNTRL 

273 

00241 

COMMON 

/RDPARM/ 

RLATD 

( 46 ) 

VCNTRL 

274 

00242 

COMMON 

/RDPARM/ 

ROCPDT 

VCNTRL 

275 

00243 

COMMON 

/RDPARM/ 

ROCPP 1 

VCNTRL 

276 

ORIGINAL  PASS  fgf 
OF  POOR  QUALITY 


sjt. 


.VS 


00244 

COMMON 

/RDPARM/ 

SGNP 

(2) 

00245 

COMMON 

/RDPARM/ 

SI  NL 

<46  > 

00246 

COMMON 

/RDPARM/ 

SINLON 

t 72  1 

00247 

COMMON 

/RDPARM/ 

THSTD 

00248 

COMMON 

/RDPARM/ 

THSTD2 

00249 

COMMON 

/RDPARM/ 

WSAVE 

< 159) 

00250 

COMMON 

/RDPARM/ 

DSIG 

( 9 ) 

00251 

COMMON 

/RDPARM/ 

SIG 

<9> 

00252 

COMMON 

/RDPARM/ 

DSIGINV 

<9) 

00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
0026  1 

00262 

00263 

00264 

00265 

00266 

00267 

00268 

00269 

00270 
0027  t 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 


00230 

00281 

00282 

00283 


00284 

oozes 

00286 

00287 

00288 


€ 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 


COMDECK  VQANDQT  RESOLUTION  VALUES 


INI 

NLA  V 
«JM*  1 
NLA  V * 1 1 
IM^NLAY* 1 1 
JM/2- 1 


= 72 
= 9 
= 46 
= 39 
= 7128 
= 23 


GLOBAL  MODEL  PROGNOSTIC  FIELDS  1 NEEDED  IN  COMPO > 


COMMON 


/OANDOT/  OP ROG <72,9, 1 1 ,46) 


DIMENSION 

PHIS 

(7  128 

, 1 ) 

DIMENSION 

SMTH 

(7  128 

, 23  ) 

DIMENSION 

ALBEDO  (7128 

. 1 ) 

DIMENSION 

GT 

(7  128 

, 1 > 

DIMENSION 

GW 

(7128 

. 1 > 

DIMENSION 

TS 

(7128 

. 1 > 

DIMENSION 

SHS 

(7128 

, 1 > 

DIMENSION 

P 

(72,99. 1 > 

DIMENSION 

U 

(72,9 

, 1 1 . 

i > 

DIMENSION 

V 

(72.9 

,11. 

i) 

DIMENSION 

T 

(72,9 

.11, 

i) 

DIMENSION 

SH 

(72,9 

,11, 

i > 

DIMENSION 

PHI 

(72,9 

,11. 

i > 

EQUIVALENCE 

( QPROG ( 1 . 1. 

1,11 

.PHIS 

( 1 

EQUIVALENCE 

( QPROG  ( 1 , 2. 

1.1) 

.SMTH 

( 1 

EQUIVALENCE 

( QPROG ( 1 . 3. 

1.1) 

, ALBEDO  < 1 

EQUIVALENCE 

( QPROG  ( 1 , 4, 

1,1) 

.GT 

( 1 

EQUIVALENCE 

< QPROG  < 1 , 5, 

1,1) 

, GW 

( 1 

EQUIVALENCE 

( QPROG  < 1 . 6, 

i . n 

. TS 

( 1 

EQUIVALENCE 

(QPROG< 1 . 7 , 

i,i> 

.SHS 

( 1 

EQUIVALENCE 

( QPROG  f 1 . 8, 

i.i) 

,P 

t 1 

C 

C 

C 

C 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( QPROG ( f , 
( QPROG ( 1 , 
{ QPROG ( 1 , 
< QPROG ( 1 , 
< QPROG ( 1 


i ) .u  < 1 , 
i ) ,v  ( i , 
n .t  1 1 , 

1) , SH  ( 1 , 
1 > . PHI ( 1 , 


J ) 


t ) ) 
1 ) ) 
1 J > 
1 ) ) 
1)  ) 


SPACE  FOR  GLOBAL 

= = — = = = = = --  -- 


MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COMPO ) 


r s ssS3s:i  = 


COMMON 

DIMENSION 

EQUIVALENCE 

COMMON 


/ QANDQT / 


Q5DI AG (72 
I QSD I AG (72 
( QSD I AG  . I QSD I AG  > 


, 1 5 r 46 ) 
15.46) 


/QANDQT/  QUO I AG (72,9,  5,46) 


POLAR  MODEL  PROGNOSTIC  FIELDS 
COMMON  / QPOLES/  PP(2,2> 
COMMON  /QPOLES/  UP ( 9 . 2 . 2 ) 
COMMON  /QPOLES/  VP (9, 2, 2) 
COMMON  /QPOLES/  TP ( 9 , 2 , 2 ) 
COMMON  /QPOLES/  SHP(9,2.2) 


2 

3 

4 

5 
G 

7 

8 
9 

to 

t 1 
12 


15 

16 
17 


VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  2B0 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VQANDOT 
VQANDQT 
VQANDOT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT 
VQANDQT  13 
VQANDOT  14 
VQANDOT 
VQANDQT 
VQANDQT 
VQANDQT  18 
VQANDQT  19 
VOANDQT  20 
VQANDQT  21 
VOANDQT  22 
VQANDQT  23 
VQANDQT  24 
VOANDQT  25 
VQANDQT  26 
VQANDQT  27 
VOANDQT  28 
VOANDQT  29 
VQANDQT  30 
VQANDQT  31 
VQANDQT  32 
VQANDQT  33 
VOANDQT  34 
VOANDQT  35 
VQANDQT  36 
VQANDOT  37 
VQANDOT  38 
VQANDQT  39 
VQANDQT  40 
VQANDQT  41 
VQANDQT  42 
VOANDQT  43 
VQANDQT  44 
VQANDQT  45 
VOANDQT  46 
VQANDQT  47 
VOANDQT  48 
VOANDQT  49 
VQANDQT  50 
VOANDQT  51 
VQANDQT  52 
VQANDQT  53 
VOANDQT  54 
VQANDQT  55 
VQPOLES 
VQPOLES 
VQPOLES 
VQPOLES 
VQPOLES 
VQPOLES 
VQPOLES 


O 

r» 

tH 

S3 

**0 

Ln 


ORIGINAL  PACE  ^ 
OF  POOR  QUALITY 


00289 


00290 


00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 


COMMON  /OPOLES/  PHI P< 9,2,2) 

C 

c * ♦ » 

C DEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION  00.001 


VOPOLES  9 
VOPOLES  10 
VPOLINP 
VBEGDEB 
VBEGDEB 
VBEGDEB 


cybIr  vector  vIrIion  oomVV’  1,JPUT  100 
CSSCOPVS0SINfoSOpSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSVBEGDlB 

n ~ . . . worn  T Mn 


00299 

00300 
0030  1 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 

STATEMENT 
--LABEL 

1 0000 
120 
220 


C 

C 

C 

C 

C 

c 

C 

C 

c 

c 

c 


COPY  0 INTO  OP 

PP(N.M)  = P ( 1 , N , «JE  (HI)  > 

DO  120  L*1 , NLA Y 

UP I L , N , Ml  * - UC 1 ,L.N, JE(M> ) *SINL0N( 1) 

^ * SGNP ( M ) * V ( 1 , L , N , JE (M I ) *COSLON M ) 

VPIL.N.M)  “ SGNP (M) *U ( 1 f L , N * JE (M) ) *COSLON ( 1 ) 

* T.a.».u>  ■' 

SHP ( L , N , M)  = SH(1  L N JBCM 
120  CONTINUE 

ENTRY  POLOUT  IN,  M) 

COPIES  STEREOGRAPHIC  POLE  VALUES  FROM  OP 
BACK  INTO  GLOBAL  MODEL  ARRAY  0 


ARGUMENTS  DESCRIPTION 

N TIME  STEP  POINTER 

W POLE  FLAG-  =1  FOR  SOUTH  POLE,  =2  FOR  NORTH  POLE 


COPY  QP  INTO  Q 

PM  .N,  JECMJ  ; IM>  s PP(N,M> 

C 

OO  220  L=1 . NLA V 

U( 1 , L . N , JE (M) ; IM)  = - UP(L  N M ) * S r MLOM I i • rut 

U(1.L,N,JE(M):IM)  • Un,L,N.dE(M);iM)  SINL°N ( 1 , IM) 

vulu.’NljilSIiiMi  = ’CoIlON)  t • IM) 

T f 1 , L , N ♦ JE  I M)  ; IM)  = **  TP  ( L , N , M ) VP*L*N’M)  *SINLGN(  1 ; IM) 

220  §Sn!inUE,JE(M)|IM>  * SHP<L^:M> 

RETURN 

END 

LABEL  MAR 

•DEFINED REFERENCES 


14 
2 

3 

4 

5 

6 

VPOLINP  16 
VPOLINP  17 
VPOLINP  18 
VPOLINP  19 
VPOLINP  20 
VPOLINP  21 
VPOLINP  22 
VPOLINP  23 
VPOLINP  24 
VPOLINP  25 
'►VPOLINP  26 
VPOLINP  27 
VPOLINP  28 
VPOLINP  29 
VPOLINP  30 
VPOLINP  31 
VPOLINP  32 
VPOLINP  33 
VPOLINP  34 
VPOLINP  35 
VPOLINP  36 
VPOLINP  37 
VPOLINP  38 
VPOLINP  39 
VPOLINP  40 
VPOLINP  41 
VPOLINP  42 
VPOLINP  43 
VPOLINP  44 
VPOLINP  45 
VPOLINP  46 
VPOLINP  47 
VPOLINP  48 
VPOLINP  49 
VPOLINP  50 
VPOLINP  51 
VPOLINP  52 


290 

297 

307 


292 

300 


VARIABLE  MAP 
--NAME 


P 

o 

o 

»i 

tO  - 


ADATE 

ADLDP 

ALBEDO 

APHEL 

A TIME 

BETA 

CAL TO J 

CC 

CCO 

CCNTRL 

CCSP06 

CCSP07 

CCSP08 

CONI 


-BLOCK 

TYPE 

--CLASS-- 

CCNTRL 

CHAR-8 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

QANDQT 

REAL 

ARRAY 

RCNTRL 

REAL 

SIMPLE 

CCNTRL 

CHAR  *8 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

CCNTRL 

CHAR  *8 

ARRAY 

CCNTRL 

CHAR*8 

REAL 

SIMPLE 

UNKNOWN 

CCNTRL 

CHAR-8 

SIMPLE 

CCNTRL 

CHAR*  8 

SIMPLE 

CCNTRL 
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VCNTRL 

75 

00069 

COMMON  /ICNTRL/ 

NSTEP 

VCNTRL 

76 

00070 

COMMON  /ICNTRL/ 

IBLKSI2 

VCNTRL 

77 

0007  1 

COMMON  /ICNTRL/ 

NYMD 

VCNTRL 

78 

00072 

COMMON  /ICNTRL/ 

NYMOE 

VCNTRL 

79 

00073 

GOMMON  /ICNTRL/ 

NYMDO 

VCNTRL 

80 

00074 

COMMON  /ICNTRL/ 

NZINIT 

VCNTRL 

81 

00075 

COMMON  /ICNTRL/ 

NMLEV 

VCNTRL 

32 

00076 

COMMON  /ICNTRL/ 

NDHOG 

VCNTRL 

S3 

00077 

COMMON  /ICNTRL/ 

IQS  { 30 ) 

VCNTRL 

84 

00078 

COMMON  /ICNTRL/ 

IQU  (10) 

VCNTRL 

85 

00079 

C 

VCNTRL 

86 

EQUIVALENCE 

( ITMIN 

* I Q S ( 1)) 

VCNTRL 

87 

00080 

EQUIVALENCE 

(ITMAX 

. I QS ( 2)) 

VCNTRL 

88 

0008  1 

EQUIVALENCE 

( IPREACC 

. !QS(  3) ) 

VCNTRL 

89 

00082 

EQUIVALENCE 

( IPRECON 

, I 05 ( 4)) 

VCNTRL 

90 

00083 

EQUIVALENCE 

( INFLUX 

, I QS ( 5) ) 

VCNTRL 

91 

00084 

EQUIVALENCE 

( IEFLUX 

. 1 QS ( 6)) 

VCNTRL 

92 

00085 

EQUIVALENCE 

< I FUSION 

,IQS(  7)? 

VCNTRL 

93 

00086 

EQUIVALENCE 

( IRAD5WG 

. I QS  f 8)) 

VCNTRL 

94 

00087 

EQUIVALENCE 

( IRADLV/G 

, I QS ( 9)) 

VCNTRL 

95 

00088 

EQUIVALENCE 

( IICLOUD 

. IQS( 10) ) 

VCNTRL 

96 

00089 

EQUIVALENCE 

( TU FLUX 

► IQSM  1 ) > 

VCNTRL 

97 

00090 

EQUIVALENCE 

(/IV  FLUX 

♦ IQS( 12) ) 

VCNTRL 

98 

C 

VCNTRL 

99 

00091 

EQUIVALENCE 

(IOMEGA 

, I QU  < 1>> 

VCNTRL 

100 

00092 

EQUIVALENCE 

< IDI ABAT 

, I QU ( 2 ) > 

VCNTRL 

101 

00093 

EQUIVALENCE 

(IRADSW 

♦ IQUt  3)) 

VCNTRL 

102 

00094 

EQUIVALENCE 

(IRADLW 

♦ I QU ( 41) 

VCNTRL 

103 

c 

VCNTRL 

104 

00095 

EQUIVALENCE 

<ICO. JC( I > > 

VCNTRL 

105 

00096 

INTEGER 

ICO,  I C ( 200 ) 

VCNTRL 

106 

c 

VCNTRL 

107 

c 

p 

LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

108 

VCNTRL 

1 09 

00097 

COMMON  / LCNTRL / 

LCO 

VCNTRL 

1 10 

00098 

COMMON  /LCNTRL/ 

QALT 

VCNTRL 

1 1 1 

00099 

COMMON  /LCNTRL/ 

QBEG 

VCNTRL 

112 

00100 

COMMON  /LCNTRL/ 

QDAY 

VCNTRL 

113 

00101 

COMMON  /LCNTRL/ 

QEND 

VCNTRL 

114 

00102 

COMMON  /LCNTRL/ 

QOUT 

VCMTRL 

115 

00103 

COMMON  /LCNTRL/ 

QPHY 

VCNTRL 

116 

00104 

COMMON  /LCNTRL/ 

QSHF 

VCNTRL 

117 

00105 

COMMON  /LCNTRL/ 

SN2FLG 

VCNTRL 

1 18 

00  106 

COMMON  /LCNTRL/ 

QRSW 

VCNTRL 

1 19 

00107 

COMMON  /LCNTRL/ 

QRSH 

VCNTRL 

120 

00108 

COMMON  /LCNTRL/ 

LQS ( 30 ) 

VCNTRL 

121 

00  109 

COMMON  /LCNTRL/ 

LQU  < 10) 

VCNTRL 

122 

c 

VCNTRL 

123 

00  110 

EQUIVALENCE 

(LTMIN 

, LQS ( 1)) 

VCNTRL 

124 

00111 

EQUIVALENCE 

(LTMAX 

, LOS ( 2)> 

• 

VCNTRL 

125 

00112 

EQUIVALENCE 

( LPREACVJ 

? LQS ( 3)) 

VCNTRL 

126 

00113 

EQUIVALENCE 

< LPRECON 

» LQS ( 4)) 

VCNTRL 

127 

001  14 

EQUIVALENCE 

( LHFLUX 

* LQS ( 5)) 

VCNTRL 

128 

001  15 

EQUIVALENCE 

(LEFLUX 

. LOS ( 6)1 

VCNTRL 

129 

00116 

EQUIVALENCE 

(LFUSION 

♦ LQS ( 71) 

VCNTRL 

130 

001  17 

EQUIVALENCE 

(LRADSWG 

, LQS ( 8)) 

VCNTRL 

131 

001  18 

EQUIVALENCE 

(LRADLWG 

, LQS { 9)) 

VCNTRL 

132 

00  119 

EQUIVALENCE 

(LICLOUD 

, LQS ( 10) ) 

VCNTRL 

133 

00120 

EQUIVALENCE 

(LUFLUX 

, LQS ( ID) 

VCNTRL 

134 

OO  121 

EQUIVALENCE 

(LVFLUX 

, LQS( 12) ) 

VCNTRL 

135 

1 u: 


00122 

00123 

00124 

00125 

00126 

00127 

00128 
00  1 29 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 

00139 

00140 

00141 

00142 
00  143 

00144 

00145 

00146 

00147 

00148 
00  149 

00150 

00151 

00152 

00153 

00154 

00155 


00  156 
00157 
00  158 

00159 

00160 
00161 
00162 
00  163 

00164 

00165 
00  166 
00167 
00  168 
00  169 
00  170 
00171 
00  172 

00173 

00174 

00175 

00176 

00177 

00178 

00179 

00180 
00181 
00182 

00183 

00184 


\ V'  'A 


* 


. 


EQUIVALENCE 

( LOMEGA 

, LQU  1 

1 > ; 

EQUIVALENCE 

(LDIABAT 

* LQU  1 

2)  ) 

EQUIVALENCE 

(LRADSW 

, LQU  ( 

3 ) ) 

EQUIVALENCE 

( LRADLW 

♦ LQU( 

41) 

LOGICAL 

QALT 

LOGICAL 

QBEG 

LOGICAL 

QDAY 

LOGICAL 

QEND 

LOGICAL 

QOUT 

LOGICAL 

QPHY 

LOGICAL 

QSHF 

LOGICAL 

SN2FLG 

LOGICAL 

QRSW 

LOGICAL 

ORSH 

LOGICAL 

LQS 

LOGICAL 

LQU 

LOGICAL 

LTMIN 

LOGICAL 

LTMAX 

LOGICAL 

LPREACC 

LOGICAL 

LPRECON 

LOGICAL 

LHFLUX 

LOGICAL 

LEFLUX 

LOGICAL 

LFUSION 

LOGICAL 

LRADSWG 

LOGICAL 

LRAOLY/G 

LOGICAL 

LICLOUD 

LOGICAL 

LUFLUX 

LOGICAL 

LVFLUX 

LOGICAL 

LOMEGA 

LOGICAL 

LDIABAT 

LOGICAL 

LRADSW 

LOGICAL 

LRADLW 

EQUIVALENCE 

( LCO , LC 1 1 

) > 

LOGICAL 

LCO  * LC 1 200 ) 

REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

= = -“-SS  = = = — = = = = S = = = = = = 

COMMON  /RCNTRL/  RCO 
COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSO 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYSPY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  DECMAK 
COMMON  /RCNTRL/  DIST 
COMMON  /RCNTRL/  DLAT 
COMMON  /RCNTRL/  DLON 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNU  1 
COMMON  /RCNTRL/  GNU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  OMEGA 2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PIMEAN 
COMMON  /RCNTRL/  PSMAX 
COMMON  /RCNTRL/  PSMIN 
COMMON  /RCNTRL/  P TOP 
COMMON  /RCNTRL/  RADE 
COMMON  /RCNTRL/  RGAS 
COMMON  /RCNTRL/  ROCP 
COMMON  /RCNTRL/  RSDIST 


VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  141 
VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  150 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  ! 66 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  180 
VCNTRL  1 B 1 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  189 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCNTRL  199 
VCNTRL  200 
VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 


8 

W 


LO 


ORIGINAL  PAifflE 
OF  POOR  QUALITY 


00185 

COMMON 

/RCNTRL/ 

SDAY 

VCNTRL 

207 

00186 

COMMON 

/RCNTHL / 

SEASON 

VCNTRL 

208 

00187 

COMMON 

/RCNTRL / 

SIGE 

(25) 

VCNTRL 

209 

00188 

COMMON 

/RCNTHL/ 

SIND 

VCNTRL 

210 

00185 

COMMON 

/RCNTRL/ 

SOLS 

VCNTRL 

21  1 

00190 

COMMON 

/RCNTRL/ 

TSTD 

VCNTRL 

212 

00191 

COMMON 

/RCNTRL/ 

PLcVS 

(25) 

VCNTRL 

213 

00192 

COMMON 

/RCNTRL/ 

HEATW 

VCNTRL 

214 

00193 

COMMON 

/RCNTRL/ 

HE  ATI 

VCNTRL 

215 

00194 

COMMON 

/RCNTRL/ 

EPS 

VCNTRL 

216 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

VCNTRL 

217 

00196 

COMMON 

/RCNTRL/ 

CALTOJ 

VCNTRL 

218 

00197 

COMMON 

/RCNTRL/ 

PZERO 

VCNTRL 

219 

C 

VCNTRL 

220 

00  198 

EQUIVALENCE 

(RCO,RC<  1 ) ) 

VCNTRL 

221 

00199 

REAL 

RCO , RC1200) 

VCNTRL 

222 

c 

VCNTRL 

223 

c 

INTEGER  MODEL  CONSTANTS 

VCNTRL 

224 

c 

VCNTRL 

VCNTRL 

225 

226 

00200 

COMMON 

/ 1 DPARM/ 

I JUMP 

(46) 

0020  1 

COMMON 

/ I DPARM/ 

IDSP02 

VCNTRL 

227 

00202 

COMMON 

/ I DPARM/ 

INDEX 

(72) 

VCNTRL 

228 

00203 

COMMON 

/ 1 DPARM/ 

IROD 

VCNTRL 

229 

00204 

COMMON 

/ I DPARM/ 

JC 

(46) 

VCNTRL 

230 

00205 

COMMON 

/ I DPARM/ 

JE 

(2) 

VCNTRL 

231 

00206 

COMMON 

n DPARM/ 

JP 

(2.2) 

VCNTRL 

232 

00207 

COMMON 

/ I DPARM/ 

KSTEP 

VCNTRL 

233 

00208 

COMMON 

/ 1 DPARM/ 

MJ 

(46) 

VCNTRL 

234 

O o 

•"S 

00209 

COMMON 

/IDPARM/ 

NHM51 

VCNTRL 

235 

00210 

COMMON 

/ IDPARM/ 

NYMD1 

VCNTRL 

236 

c 

VCNTRL 

237 

2 © 
o £5 

0 

LOGICAL  MODEL  CONSTANTS 

VCNTRL 

238 

VCNTRL 

239 

0021  1 

c 

COMMON 

/LDPARM/ 

FILTER 

(46) 

VCNTRL 

240 

gm 

00212 

COMMON 

/LDPARM/ 

I TAPE 

VCNTRL 

241 

00213 

COMMON 

/LDPARM/ 

START 

VCNTRL 

242 

f2  33 

c 

VCNTRL 

243 

00214 

LOGICAL 

FILTER 

VCNTRL 

244 

SF  ^ 

00215 

LOGICAL 

ITAPE 

VCNTRL 

245 

tf© 

00216 

LOGICAL 

START 

VCNTRL 

246 

C ra 

c 

VCNTRL 

247 

c 

REAL  MODEL  CONSTANTS 

VCNTRL 

248 

c 

VCNTRL 

VCNTRL 

249 

250 

00217 

COMMON 

/RDPARM/ 

ADLDP 

00218 

COMMON 

/RDPARM/ 

CONI 

VCNTRL 

251 

00219 

COMMON 

/RDPARM/ 

CON 1 DT 

VCNTRL 

252 

00220 

COMPTON 

/RDPARM/ 

CON2 

VCNTRL 

253 

00221 

COMMON 

/RDPARM/ 

CON2DT 

VCNTRL 

254 

00222 

COMMON 

/RDPARM/ 

CON3 

VCNTRL 

255 

00223 

COMMON 

/RDPARM/ 

CON3DT 

VCNTRL 

256 

00224 

COMMON 

/RDPARM/ 

COM4 

VCNTRL 

257 

00225 

COMMON 

/RDPARM/ 

C0N4DT 

VCNTRL 

258 

00226 

COMMON 

/RDPARM/ 

CONS 

VCNTRL 

259 

00227 

COMMON 

/RDPARM/ 

COSL 

(46) 

VCNTRL 

260 

00228 

COMMON 

/RDPARM/ 

COSLON 

(72) 

VCNTRL 

261 

00229 

COMMON 

/RDPARM/ 

CPD2 

VCNTRL 

262 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

VCNTRL 

263 

00231 

COMMON 

/RDPARM/ 

DXYP 

(46) 

VCNTRL 

264 

00232 

COMMON 

/RDPARM/ 

DYP 

(46) 

VCNTRL 

265 

00233 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

VCNTRL 

266 

00234 

COMMON 

/RDPARM/ 

F 1 DT 

VCNTRL 

267 

00235 

COMMON 

/RDPARM/ 

F2DT 

VCNTRL 

268 

00236 

COMMON 

/RDPARM/ 

H 1 DT 

VCNTRL 

269 

00237 

COMMON 

/RDPARM/ 

H2DT 

VCNTRL 

270 

00238 

COMMON 

/RDPARM/ 

PKSTD 

VCNTRL 

271 

00239 

COMMON 

/RDPARM/ 

PKTOP 

VCNTRL 

272 

00240 

COMMON 

/RDPARM/ 

RLAT 

(46) 

VCNTRL 

273 

00241 

COMMON 

/RDPARM/ 

RLATD 

(46) 

VCNTRL 

274 

00242 

COMMON 

/RDPARM/ 

ROCPDT 

VCNTRL 

275 

00243 

COMMON 

/RDPARM/ 

ROCPP 1 

VCNTRL 

276 

00244 

COMPTON 

/RDPARM/ 

SGNP 

(2) 

VCNTRL 

277 

PRDIAG  4 


£0245 

00246 

00247 

00248 

00249 

00250 

00251 

00252 


00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
0026  1 

00262 

00263 

00264 

00265 

00266 

00267 

0026B 

00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RDPARM/  SI NL  <4G> 
/ROPARM/  SINLON  (72) 
/ROPARM/  THSTD 
/RDPARM/  THSTD2 
/ RDPARM/  WSAVE  <159) 
/RDPARM/  OSIG  (9) 
/RDPARM/  SIG  (9) 
/RDPARM/  DSIGJNV  (9) 


COMDECK  VQANDQT  RESOLUTION  VALUES 


INI 

NLAY 
JM^  1 
NLA  Y * 1 1 
IM'NLAY* 1 1 
JM/2- 1 


= 72 
=9 
= 46 
=99 
-71  28 
= 23 


GLOBAL  MODEL  PROGNOSTIC  FIELDS  f NEEDED  IN  COMPO ) 


COMMON 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

SPACE  FOR  GLOBAL 


/QANDOT / OPROG <72,9,11,46) 


PHIS 

5MTH 


<7128,1) 

(7128,23) 


ALBEDO  <7128,1) 


GT 

GW 

TS 

SH5 

P 

U 

V 

T 

SH 

PHI 


(7128.1) 

(7128.1) 
<7128, 1 ) 
<7128, 1 ) 

(72.99.1) 

<72,9,11,1) 
<72.9, 11,1) 

(72.9.11.1) 
<72,9.11,1) 

(72.9.11.1) 


(1,11} 

(1,11) 


(QPROGf 1 . 1,1,1 ) ,PHIS 

< QPROG  < 1 , 2,1.1) , SMTH 

<QPROG< 1 , 3,1.1) , ALBEDO! 1 i 1 > ) 
l QPROG ( 1 , 4,1,1), GT  (1,1)) 

<QPROG< 1 . 5, 1 . 1) ,GW  (1,1)) 

(QPROGf I.  6,1,1), TS  11,1)) 

( QPROG  ( 1 , 7J.D.SHS  <1,1)1 

< QPROG  < 1 , 8 , 1 , 1 > , P (1,1,1)) 

< OPROG ( 1,1.  2.  1)  PU  < 1 , T , 1 , 1 > ) 
(QPROGf  1.1.  4 , 1)  , V < 1 , 1 . 1 , 1 ) ) 

< QPROG ( 1 , 1 , 6,  I ) ,T  (1 , 1 . 1 , 1 ) ) 

( QPROG  <1,1,  8,1), SH  11,1,1.1)} 
(QPROGf 1,1,10,1) , PHI (1,1,1,11) 


MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEOED  IN  COMPO) 

= = 55SS555:sz3r;;52--;s;;!:::  = : = = ss-.5-.;.t:...  = 5;;3 


00280 

COMMON 

00281 

DIMENSION 

00282 

C 

EQUIVALENCE 

00283 

C 

COMMON 

C 

* * 0 

C 

ONE-DIMENSIONAL 

00284 

COMMON 

00285 

C 

CHARACTER-8 

00286 

COMMON  /I  FAX 

C 

♦ *■  m 

00287 

CHARACTER-8  1 

/QANDOT/  Q5DIAGI72  ,15,46) 

I OSD I AG( 72  . 15,46) 

(QSDIAG, IQSDIAG) 

/QANDQT/  QUO I AG  <72.9,  5.46) 


CARD f 10) , 
CARD 


DATA ( 144)  , CATAf  T44> 


2 

3 

4 

5 

6 

7 

8 
9 

10 


17 

18 


VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VOANDQT 
VOANDQT 
VQANDOT 
VOANDQT 
VOANDQT 
VOANDQT 
VQANDOT 
VQANDOT 
VOANDQT 
VQANDOT  11 
VQANDOT  12 
VQANDOT  13 
VOANDQT  14 
VOANDQT  15 
VOANDQT  16 
VQANDQT 
VOANDQT 
VQANDQT  19 
VOANDQT  20 
VOANDQT  21 
VQANDQT  22 
VOANDQT  23 
VOANDQT  24 
VQANDQT  25 
VOANDQT  26 
VOANDQT  27 
VQANDQT  28 
VOANDQT  29 
VOANDQT  30 
VQANDQT  3 t 
VQANDQT  32 
VOANDQT  33 
VQANDQT  34 
VOANDQT  35 
VQANDOT  36 
VOANDQT  37 
VOANDQT  38 
VQANDQT  39 
VOANDQT  40 
VQANDQT  41 
VQANDQT  42 
VQANDQT  43 
VOANDQT  44 
VQANDQT  45 
VQANDQT  46 
VQANDOT  47 
VQANDQT  40 
VOANDQT  49 
VQANDQT  SO 
VQANDQT  51 
VQANDQT  52 
VOANDQT  53 
VQANDOT  54 
VQANDQT  55 
VW0RK1D  2 
VW0RK1D 
VW0RK1D 
VW0RK1D 
VW0RK1D 
VI  F A X 
VPRDIAG  14 
VPRDIAG  15 


3 

4 

5 

6 
2 


o o 
n 2 

*o 

02 

Q 'r? 

S3  r 

O *3 
C 3g 

gi 

3© 


•a 

fl 


PRDIAG  5 


I ••  • 

ie; 


v,  I 


002B8 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 

00303 

00304 

00305 

00306 


00307 


00308 


CHARACTER *8  PRTV 1 < 2 ) / 1HV , 7HI - 1 ,d  + 1/ 
CHARACTERS  PRTU2  f 2 ) / 1HU  . 5HI  ,d*  1/ 
CHARACTER *8  PR TV 2 f 2 > / 1 HV  * SHI ,d*  1/ 
CHARACTER *8  PRTU3 ( 2 > / 1 HU , 7HI + 1 . d+ 1 / 
CHARACTER* 8 PRTV31 2 > / 1HV , 7HI ♦ 1 , d* 1 / 
CHARACTER *8  PR TU4 < 2 ) / 1 HU , SHI - 1 .d/ 
CHARACTERS  PRTV4  { 2 ) / t HV  , 5HI  ~ 1 . d/ 
CHARACTER'S  PRTU5  12)  / 1HU  , 3H1  ,*J/ 
CHARACTERS  PR  TVS  ( 2 ) / 1 HV  , 3HI  ♦ d / 
CHARACTER'S  PRTU6 < 2 )Y1HU ♦ 5HI  + 1 .d/ 
CHARACTER'S  PRTV6(2> / 1 HV , SHI  * 1 , d/ 
CHARACTER *8  PRTU7 ( 2 ) / 1HU.7HI- 1 ,d- 1/ 
CHARACTERS  PRTV7  (2)  / 1HV  f 7HI  - 1 t J-  1 / 
CHARACTER *8  PRTU8 ( 2 > / 1 HU , SHI  .d-1/ 
CHARACTER'S  PRTV8 < 2 ) / 1 HV . 5H I , J-1/ 
CHARACTER'S  PR TUB ( 2 ) / 1 HU  . 7H I *1 .d-1 / 
CHARACTER  * 8 PRTV9<2> / 1 HV , 7H I * 1 * d - 1 / 
CHARACTERS  PRTT*2>/  1HT , 3H I , d / 
CHARACTER'S  PRTSH < 2 ) / 2HSH . 3H I . d/ 


C SURFACE  TO  SEA  LEVEL  PRESSURE  EXPONENT  FUNCTION 

SLEXP  t TS . PHIS)  = EXP ( PHIS/ ( RGAS* < TS * . 5 *BETA * PHI S/GRAV ) > > 
C 

C * * * 

C DEBUG 
10000  CONTINUE 


C 

C 


CYBER  VECTOR  VERSION  00.001  INPUT  IOQ 
CYBER  VECTOR  VERSION  00 


VPRDIAG  16 
VPRDIAG  17 
VPRDIAG  18 
VPRDIAG  19 
VPRDIAG  20 
VPRDIAG  21 
VPRDIAG  22 
VPRDIAG  23 
VPRDIAG  24 
VPRDIAG  25 
VPRDIAG  28 
VPRDIAG  27 
VPRDIAG  28 
VPRDIAG  29 
VPRDIAG  30 
VPRDIAG  31 
VPRDIAG  32 
VPRDIAG  33 
VPRDIAG  34 
VSLEXP  2 
VSLEXP  3 
VSLEXP  4 
VSLEXP  5 
VPRDIAG  36 
VBEGDEB  2 
VBEGDEB 
VBEGDEB 
VBEGDEB 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSVBEGOEB 


00309 

JXMI  = 

MAX0< JX- 

1 , JSP) 

VPRDIAG 

38 

00310 

dxpt  = 

M1N0 (dX* 

1 , dNP  ) 

VPRDIAG 

39 

0031  1 

I XM1  - 

MODI  I K * I M-2 , IM) 

+ 1 

VPRDIAG 

40 

00312 

IXP1  = 

MOD(IX.IM)  * 1 

VPRDIAG 

41 

00313 

WRITE 

(6.6000) 

IX,  JX 

. P ( I X , ND  , JX  ) , PUK.NB.JXI 

VPRDIAG 

42 

00314 

WRITE 

(6.6005  > 

PRTU1  , 

<U< I XM1 .L.ND.dXPI)  , L = 1 , NLA  Y ) 

VPRDIAG 

43 

00315 

WRITE 

(6.6005) 

PRTV  1 . 

(V( IXM1 .L.ND.dXPI ) , L = 1 . NLA V > 

VPRDIAG 

44 

00316 

WRITE 

(6.6005) 

PRTU2. 

(IM  I X , L . ND. dXP 1 ) . L= 1 .NLAY) 

VPROIAG 

4S 

00317 

WRITE 

(6.6005) 

PRTV2  . 

( V ( I X , L . ND , JXP1  ) , L = 1 , NL AY  > 

VPRDIAG 

46 

003  1 S 

WRITE 

(6,6005) 

PR7U3. 

(U( I XP 1 . L.ND.dXP 1 ) , L = 1 , NLA V ) 

VPRDIAG 

47 

00319 

WRITE 

(6.6005) 

PRTV3  . 

(V( JXPJ , L.ND.dXPI ) , L=1,NLAV) 

VPRDIAG 

48 

00320 

WRITE 

(6.6005) 

PRTU4, 

<U( IXM1 .L.ND.dX) . L= 1 , NL A Y ) 

VPROIAG 

49 

00321 

write 

(6,6005) 

PRTV4. 

( V ( I XM1 , L , ND  , dX  ) , L= 1 , NL A Y ) 

VPRDIAG 

50 

00322 

WR  I TE 

(6.6005)' 

PRTU5  . 

< U < I X , L . ND , JX  ) , L = 1 , NLA Y ) 

VPRDIAG 

51 

00323 

WRITE 

(6.6005) 

PR  TVS  . 

(VflX. L.ND.dX).  L = 1 , NLA Y ) 

VPRDIAG 

52 

00324 

WRITE 

(6,6005) 

PRTU6  . 

(LM  I XP1 .L.ND.dX)  , L~  1 , NLA Y ) 

VPRDIAG 

53 

00325 

WRITE 

(6.6005  ) 

PRTV6, 

( V ( I XP 1 .L .ND . JX ) . L- 1 , NL AY ) 

VPRDIAG 

54 

00326 

WRITE 

(6.6005  ) 

PRTU7 . 

< U < I XM 1 . L , ND , JXM 1 ) , L - 1 , NLA Y ) 

VPRDIAG 

55 

00327 

WRITE 

(6.6005) 

PRTV7, 

( V ( I XM 1 , L , ND , d KM 1 ) . L=1 , NLA Y ) 

VPRDIAG 

56 

0O32S 

WRITE 

(6.6005  ) 

PRTUB  , 

< U ( I X , L . ND , d XM  t ) , L=1.NLAY> 

VPRDIAG 

57 

00329 

WRITE 

(6.6005) 

PR  TVS , 

(V( IX »L ,ND. JXM1 ) , L“ 1 , NL A Y ) 

VPROIAG 

58 

00330 

WRITE 

(6,6005) 

PRTUB . 

(UUXP1  . L , ND  , JXMi  ) . L=  1 , NLA  Y ) 

VPROIAG 

59 

00331 

WR  1 TE 

(6.6005 ) 

PRTV9. 

( V ( I XP 1 , L , ND , JXMI ) . L = 1 . NLA Y ) 

VPROIAG 

60 

00332 

V/R  I TE 

(6,6005) 

PRTT  , 

( T ( I X , L , ND , JX ) , L= 1 ,NLAY) 

VPROIAG 

61 

00333 

WRITE 

(6.6005) 

PRTSH. 

(SHI  IX .L.ND.dX)  , L=1.NLAY) 

VPRDIAG 

62 

C 

# ♦ ♦ 

VPRDIAG 

63 

C 

V/R  I TE  OUT 

WAVE  NUMBER  OF 

SLP  ALONG  LATITUDE  BAND 

VPRDIAG 

64 

C 

SLEXP  < TS . PH  I S ) 

= EXP ( PHI S/< RGAS* < TS* . 5 *BETA*PHI S/GRAV ) > ) 

VPRDIAG 

65 

c 

GIVEN 

BY  NEXT  5 

LINES 

VPRDIAG 

66 

00334 

BETAG5 

= . 5*BETA/GRAV 

VPRDIAG 

67 

00335 

CATA ( 1 

; IM)  = TS( 1 , JX ; IM ) * BE TAGS  *PHI  S ( 1 , dX ; IM> 

VPRDIAG 

68 

00336 

CATA<  ■: 

: IM)  = RGAS-CATA ( 1 ; IPfl) 

VPRDIAG 

69 

00337 

CATA ( 1 

; IM)  = PHIS  < 1 , J : 

IM) / C AT  A ( 1 ; IM) 

VPRDIAG 

70 

00338 

CATA ( 1 

; IM)  * VEXP(CATA ( 1 ; IM) :CATA( 1 ; IM) > 

VPRDIAG 

71 

c 

VPROIAG 

72 

00339 

DATA ( 1 

iW)  = ( P < 1 , NB , dX : IM)  * PTOP ) *CA TA ( 1 : IM > 

VPRDIAG 

73 

c 

VPRDIAG 

74 

00340 

CALL  FFT77  < DATA 

.CATA , TR I GS , I F A X , I M , l.-t) 

VPRDIAG 

75 

00341 

WRITE 

(3,6010) 

VPRDIAG 

76 

00342 

IW  = V 

VPRDIAG 

77 

00343 

WAVLEN 

- 1 .E12 

VPROIAG 

78 

00344 

WAV AMP 

= .ABSfCATAt  f) ) /IM 

VPRDIAG 

79 
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> 
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o 


Q O 
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00345 

00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00358 

00359 

00360 


WAVPCT  = 
WRITE  <3 
WAV  PER  = 


I W “ I - 
WAVLEN  = 
WAVAMP  = 
WAVPCT  = 
WRITE  {3 


IW  = I MO 
WAVLEN  - 
WAVAMP  = 
WAVPCT  = 
WRITE  <3 


1 00  , 

,6015)  IW.  WAVLEN.  WAVAMP „ WAVPCT 
WAVPCT/WAVAMP 
DO  20  !=2.IM02 
1 

IM/FLOAT ( I W ? 

SORT (CATAI 2*IW>'*2  * CATA < 2* I W* 11  * *2 ) / IM 
WAVPER 'WAVAMP 

.60151  IW.  WAVLEN , WAVAMP,  WAVPCT 
CONTINUE 

2 

2. 

ABS(CATA< IM) ) /IM 
WAVPER -WAVAMP 

.6015)  IW,  WAVLEN.  WAVAMP.  WAVPCT 
RETURN 


WAVAMP,  WAVPCT 


0036  ? 

00362 

00363 


00364 

00365 


6000  FORMAT  { 
6005  FORMAT  < 
6010  FORMAT  < 

a 

6015  FORMAT  ( 
END 


' OPRESSURE  DIAGNOSTIC  AT  I , J # . 2 1 4 , 8 X , 2G 1 6 . 4 ) 
5 X , 2A8 , (T26,  1P9E12 .4)  > 

* WAVE  NUMBER ' , T2 1 , 'GRID  LENGTH', 

T41 , 'AMPLITUDE' ,T61 PERCENT  OF  MEAN') 

I8.T21 .F12.2.T41 . E 1 2 . 4 , TG 1 ,F12.4> 


VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPRDI 

VPROI 

VPROI 

VPRDI 

VPROI 

VPRDI 


AG  BO 
AG  Bt 
AG  82 
AG  83 
AG  84 
AG  85 


AG  86 
AG  87 


AG  88 
AG  89 


AG  90 
AG  91 


AG  92 
AG  93 


AG  94 
AG  95 


O Q 

m g 

-O  Q 
0 2 
o ^ 
2 r 


AG  96 
AG  97 


AG  98 
AG  99 


o 33 
c g 

c ** 


AG  1 00 
AG  1 0 1 
AG  102 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


10000 

308 

20 

354 

343 

6000 

361 

3 13 

6005 

362 

314 

315 

316 

317 

318 

319 

328 

329 

330 

331 

332 

333 

6010 

263 

34  1 

6015 

364 

346 

353 

359 

VARIABLE  MAP 


NAME 

♦ - -BLOCK 

--TYPE 

--CLASS 

REFERENCES 

A = 

srgli: 

ADATE 

CCNTRL 

CHAR'S 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

217 

ALBEDO 

QANDQT 

REAL 

ARRAY 

256 

269 

APHEL 

RCNTRL 

REAL 

SIMPLE 

157 

ATI  ME 

CCNTRL 

CHAR  *8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

158 

307 

334 

BETAG5 

REAL 

SIMPLE 

334/S 

335 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

196 

CARD 

// 

CHAR  * S 

ARRAY 

284 

285 

CATA 

// 

REAL 

ARRAY 

2B4 

335/S 

336 

344 

35  1 

35  1 

CC 

CCNTRL 

CHAR  * 8 

ARRAY 

14 

15 

cco 

CCNTRL 

CHAR'S 

SIMPLE 

2 

14 

15 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

4 

CCSP06 

CCNTRL 

CHAR'S 

SIMPLE 

7 

20 

CCSP07 

CCNTRL 

CHAR ' 8 

SIMPLE 

8 

2 1 

CCSP08 

CCNTRL 

CHAR'S 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

218 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

2 19 

C0N2 

RDPARM 

REAL 

SIMPLE 

220 

CON2DT 

RDPARM 

REAL 

SIMPLE 

221 

CON3 

RDPARM 

REAL 

SIMPLE 

222 

C0N3DT 

RDPARM 

REAL 

SIMPLE 

223 

C0N4 

RDPARM 

REAL 

SIMPLE 

224 

CON4DT 

RDPARM 

REAL 

SIMPLE 

225 

CONS 

RDPARM 

REAL 

SIMPLE 

226 

COSD 

RCNTRL 

REAL 

SIMPLE 

159 

COSL 

RDPARM 

REAL 

ARRAY 

227 

COSLON 

RDPARM 

REAL 

ARRAY 

228 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

CQS 

CCNTRL 

CHAR-8 

ARRAY 

12 

25 

A=£RGL 1ST . C = CTR  L OF  DO,  I =DATA  INIT,  R = READ  . S=“‘IORE.  W^WRITE 


337/S  337 


338/S  338  339 


s 

szJ 


CQU 

DATA 

DAVSPY 

DEC 

DECMAX 

DIST 

DLAT 

□ LON 

DSIG 

DSIGINV 

DT 

DXP 

DXYP 

OYP 

ECCN 

EPS 

EPSFAC 

EXp 

F IDT 

F2DT 

FCORLS 

FILTER 

GNU  1 

GNU  2 

GRAV 

GT 

GW 

H 1 DT 

H2DT 

HEATI 

HEATW 

I 

IBLKSIZ 

IC 

ICO 

ICNTR 


CCNTRL 

// 

RCNTRL 
RCNTRL 
RCNTRL 
RCNTRL 
RCNTRL 
RCNTRL 
RDP ARM 
RDPARM 
RCNTRL 

RDPARM 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

RDPARM 

LOPARWI 

RCNTRL 

RCNTRL 

RCNTRL 

QANDQT 

QANDQT 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


CHARGE 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 


26 

339/S 


ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOVJN 

I DP ARM 

INTEGER 

UNKNOWN 

I0SP02 

I DP ARM 

INTEGER 

SIMPLE 

I E FLUX 

ICNTRL 

INTEGER 

UNKNOWN 

I FA  X 

1 FA  X 

INTEGER 

ARRAY 

I F US 1 ON 

ICNTRL 

INTEGER 

UNKNOWN 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

I I CLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

IM 

ICNTRL 

INTEGER 

SIMPLE 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

IMD2P1 

ICNTRL 

integer 

SIMPLE 

INDEX 

IDPARM 

INTEGER 

ARRAY 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

IQS 

ICNTRL 

INTEGER 

ARRAY 

IQSDIAG 

QANDQT 

INTEGER 

ARRAY 

IQU 

ICNTRL 

INTEGER 

ARRAY 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

I RADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

I RADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

TROD 

IDPARM 

INTEGER 

SIMPLE 

ITAPE 

LD  PAt%*? 

LOGICAL 

SIMPLE 

ITMAX 

ICN'fti 

INTEGER 

UNKNOWN 

230 

231 

232 
1 68 

194 

195 
307 

234 

235 

233 
21  1 
169 
1 70 
171 
257 
25S 

236 

237 
193 
192 
346/C 

70 
95 
27 

27 
38 
49 
60 

71 
68 

92 
200 
201 

84 
286 

85 
83 
88 

200 

28 
337 
357 

29 

30 
202 

91 

81 

82 

77 
89 

231 

78 
94 
87 

93 

86 
203 
212 

80 


307 

334 

270 

271 

349 

96 

95 

96 

28 

29 

30 

3 1 

39 

40 

4 1 

42 

50 

51 

52 

53 

61 

62 

63 

64 

72 

73 

74 

75 

20  1 

202 

203 

204 

286 

340 

31  1 

31  1 

312 

335 

338 

338 

338 

339 

357 

348 

355 

79 

80 

81 

82 

90 

282 

91 

92 

93 

94 

° § 

3| 
§ § 
<0  yg 

Sr 

& 

c Gvo 


33 

34 

35 

36 

37 

44 

45 

46 

47 

48 

55 

56 

57 

58 

59 

66 

67 

68 

69 

70 

77 

78 

206 

207 

208 

209 

210 

PRD I AG  8 


I TWIN 

l CNTRL 

INTEGER 

UNKNOWN 

79 

I UF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

89 

I VF  LUX 

I CNTRL 

INTEGER 

UNKNOWN 

90 

IW 

INTEGER 

SIMPLE 

342/S 

346/W 

I X 

INTEGER 

SIMPLE 

1 

311 

IXM1 

329 

332 

INTEGER 

SIMPLE 

31  I/S 

314 

IXP1 

INTEGER 

SIMPLE 

312/S 

318 

d 

INTEGER 

SIMPLE 

337 

JC 

IDPARM 

INTEGER 

ARRAY 

204 

JE 

IDPARM 

INTEGER 

ARRAY 

205 

die 

CCNTRL 

CHARTS 

SIMPLE 

5 

18 

dM 

ICNTRL 

INTEGER 

SIMPLE 

32 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

33 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

34 

dNP 

ICNTRL 

INTEGER 

SIMPLE 

35 

3 10 

d04 

ICNTRL 

INTEGER 

SIMPLE 

36 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

37 

JOB 

CCNTRL 

CHARTS 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

206 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

4 38 

309 

dX 

INTEGER 

SIMPLE 

1 

309 

325 

332 

dXMl 

INTEGER 

SIMPLE 

309/S 

326 

dXP  1 

INTEGER 

SIMPLE 

310/S 

314 

KLI ALB 

ICNTRL 

INTEGER 

SIMPLE 

39 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

40 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

41 

KS 

ICNTRL 

INTEGER 

SIMPLE 

42 

KSTEP 

IDPARM 

INTEGER 

S I MP  L E 

207 

KU 

ICNTRL 

INTEGER 

SIMPLE 

43 

L 

INTEGER 

SIMPLE 

314 

314/C 

319/C 

320 

325 

325/C 

330/C 

331 

LC 

LCNTRL 

LOGICAL 

ARRAY 

154 

155 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

97 

154 

LCNTRL 

INTEGER 

UNKNOWN 

97 

98 

103 

109 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

123 

15  1 

LDPARM 

INTEGER 

UNKNOWN 

21  1 

212 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

143 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

144 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNUWN 

1 14 

142 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 19 

147 

LOGBR 

ICNTRL 

INTEGER 

SIMPLE 

44 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

1 2*i 

150 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

112 

140 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

141 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

108 

1 10 

120 

121 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

109 

122 

LRADLW 

LCNTRL 

LOGICAL 

UNKNOWN 

125 

153 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

118 

146 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOV/N 

124 

152 

LRAOSWG 

LCNTRL 

LOGICAL 

UNKNOV/N 

117 

145 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

139 

LTMI  N 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

138 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

120 

148 

LVFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

121 

149 

MATIN 

ICNTRL 

INTEGER 

IMPLE 

45 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

46 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

47 

Md 

IDPARM 

INTEGER 

ARRAY 

208 

MLF 

ICNTRL 

INTEGER 

ARRAY 

48 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

49 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

5 1 

NB 

ICNTRL 

INTEGER 

SIMPLE 

52 

313 

NO 

ICNTRL 

INTEGER 

SIMPLE 

53 

313 

349 /S 

350 

35  1 

351 

353/W 

355/S 

359  /W 

312 

3 13 /W 

313 

313 

316 

317 

322 

323 

328 

333 

315 

320 

32  l 

326 

327 

319 

324 

325 

330 

331 

310 

333 

327 

315 

3 13  /W 
335 
328 
3 16 

313 

335 

329 

317 

313 

339 

330 

318 

320 

331 

319 

321 

322 

323 

324 

315 
320/C 
326 
331  /C 

315/C 

321 

326/C 

332 

316 
321  /C 
327 
332/C 

316/C 

322 

327/C 

333 

317 

322/C 

328 

333/C 

317/C 

323 

328/C 

318 

323/C 

329 

318/C 

324 

329/C 

319 

324 

330 

155 

99 

100 

10  1 

102 

103 

104 

105 

106 

107 

213 


1 1 1 

1 12 

1 1 3 

1 14 

115 

1 16 

1 17 

1 18 

1 19 

136 

123 

124 
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323 

324 

NOALT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

76 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

56 

NOPHY 

ICNTRL 

INTEGER 

SIMPLE 

57 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

31 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

58 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

59 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

62 

NHPiJS  t 

IDPARM 

INTEGER 

SIMPLE 

209 

NHM5E 

ICNTRL 

INTEGER 

SIMPLE 

6 t 

WKRSH 

ICNTRL 

INTEGER 

SIMPLE 

50 

NLAY 

ICNTRL 

INTEGER 

SIMPLE 

63 

314 

324 

325 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

64 

NLA VP  1 

ICNTRL 

INTEGER 

SIMPLE 

65 

NLAYT4P1 

I F AX 

INTEGER 

SIMPLE 

286 

NLAYTSP2 

I FAX 

INTEGER 

SIMPLE 

286 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

75 

NSOAV 

ICNTRL 

INTEGER 

SIMPLE 

66 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

67 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYMOO 

ICNTRL 

INTEGER 

SIMPLE 

73 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

210 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

72 

NZ INI T 

ICNTRL 

INTEGER 

SIMPLE 

74 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

172 

P 

QANDOT 

REAL 

ARRAY 

26  1 

274 

PHI 

QANDQT 

REAL 

ARRAY 

266 

279 

PHIS 

QANDQT 

REAL 

ARRAY 

254 

267 

PI 

RCNTRL 

REAL 

SIMPLE 

173 

PI  180 

RCNTRL 

REAL 

SIMPLE 

174 

P I 2 

RCNTRL 

REAL 

SIMPLE 

175 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

177 

PKSTD 

rdparm 

REAL 

SIMPLE 

238 

PH  TOP 

RDPARM 

REAL 

SIMPLE 

239 

PLEVS 

RCNTRL 

REAL 

ARRAY 

191 

PRDI AG 

SUBROUTINE 

1 

PRTSH 

CHARTS 

ARRAY 

306/1 

333 /W 

PRTT 

CHARTS 

ARRAY 

305/1 

332  /V/ 

PRTUt 

CHAR'B 

ARRAY 

287/1 

314/W 
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CHAR* 8 

ARRAY 

289/1 

316  /V/ 

PRTU3 

CHAR  *8 

ARRAY 

291/1 

318/W 
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cmar*b 

ARRAY 

293/1 

320 /W 

PRTU5 

CHAR  *8 

ARRAY 

295/1 

322/W 

PRTU6 

CHAR'S 

ARRAY 

297/  I 

324/ W 

PRTU7 

CHAR'S 

ARRAV 

299/1 

326  /W 

PRTU8 

CHAR  *8 

ARRAY 

301/1 

328/W 

PRTU9 

CHAR'S 

ARRAY 

303/1 

330/YJ 
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CHAR*8 

ARRAY 

288/1 

3 f 5/ W 

PRTV2 

CHAR*8 

ARRAY 

290/1 

317 /Vi 

PRTV3 

CHAR'S 

ARRAY 

292/1 

319/W 

PRTV4 

CHAR  *8 

ARRAY 

294/1 

321  /W 

PRTV5 

CHAR'S 

ARRAY 

296/1 

323  /W 

PRTV6 

CHAR'S 

ARRAY 

298/1 

325/W 

PRTV7 

CHAR  *8 

ARRAY 

300/1 

327  /W 

PR  TVS 

CHAR *8 

ARRAY 

302/1 

329/Vi 

PRTV9 

CHAR'S 

ARRAY 

304/1 

331/W 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

178 

PSM'IN 

RCNTRL 

REAL 

SIMPLE 

179 

PSTD 

RCNTRL 

REAL 

SIMPLE 

176 

PTOP 

RCNTRL 

REAL 

SIMPLE 

180 
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PZERO 

RCNTRL 

REAL 

SIMPLE 

197 
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LCNTRL 

LOGICAL 

SIMPLE 

98 

126 

QANDOT 

REAL 
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280 

QBEG 

LCNTHL 
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99 
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LCNTRL 

LOGICAL 

SIMPLE 
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O 
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Q END 

LCNTRL 

LOGICAL 

SIMPLE 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

OPROG 

QANDQT 

REAL 

ARRAY 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

QSDIAG 

QANDQT 

REAL 

ARRAY 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

QUO I AG 

QANDQT 

REAL 

ARRAY 

RADE 

RCNTRL 

REAL 

SIMPLE 

RC 

RCNTRL 

REAL 

ARRAY 

RC0 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

UNKNOWN 

RDPARM 

REAL 

UNKNOWN 

RGAS 

RCNTRL 

REAL 

SIMPLE 

RLAT 

RDPARM 

REAL 

ARRAY 

RLATD 

RDPARM 

REAL 

ARRAY 

R0CP 

RCNTRL 

REAL 

SIMPLE 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

SDAY 

RCNTRL 

REAL 

SIMPLE 

SEASON 

RCNTRL 

REAL 

SIMPLE 

SGNP 

RDPARM 

REAL 

ARRAY 

SH 

QANDQT 

REAL 

ARRAY 

SHS 

QANDQT 

REAL 

ARRAY 

SIG 

RDPARM 

REAL 

ARRAY 

SIGE 

RCNTRL 

REAL 

ARRAY 

SIND 

RCNTRL 

REAL 

SIMPLE 

SI  NL 

RDPARM 

REAL 

ARRAY 

SINLON 

RDPARM 

REAL 

ARRAY 

SMTH 

QANDQT 

REAL 

ARRAY 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

SOLS 

RCNTRL 

REAL 

SIMPLE 

START 

LDPARM. 

LOGICAL 

SIMPLE 

T 

QANDQT 

REAL 

ARRAY 

THSTD 

RDPARM 

REAL 

SIMPLE 

TH5TD2 

RDPARM 

REAL 

SIMPLE 

TRIGS 

I F AX 

REAL 

ARRAY 

TS 

QANDQT 

REAL 

ARRAY 

TSTD 

RCNTRL 

REAL 

SIMPLE 

U 

QANDQT 

REAL 

ARRAY 

V 

QANDQT 

REAL 

ARRAY 
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CCNTRL 
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SIMPLE 
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REAL 

SIMPLE 

WAVLEN 

REAL 

SIMPLE 
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REAL 

SIMPLE 
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REAL 
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RDPARM 

REAL 

ARRAY 

XLABEL 

CCNTRL 
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171 
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175 
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177 
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23 
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346/W 
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352 

347 
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- -NAME TYPE CLASS REFERENCES 


D=STMT  FN  DEF,  A~ARGL I ST 


ABS 

REAL 

INTRINSIC 

344 

FFT77 

SUBROUTINE 

340 

FLOAT 

REAL 

INTRINSIC 

350 

MAXO 

INTEGER 

INTRINSIC 

309 

MINO 

INTEGER 

INTRINSIC 

310 

MOD 

INTEGER 

INTRINSIC 

31  1 

SLEXP 

REAL 

STAT  FUNC 

307/S 

SQRT 

REAL 

INTRINSIC 

351 

VEXP 

REAL 

INTRINSIC 

338 

H 

> 
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00001 

FUNCTION.  QSAT  <T 

,P) 

VQSAT 

2 

C 

VOSAT 

3 

00002 

REAL  EST  ( 1 39  ) , ESTH67).  EST2<72> 

VQSAT 

4 

00003 

EQUIVALENCE  <EST<1),  EST  1MM,  <EST<68>. 

EST2  < 1 ) > 

VQSAT 

5 

C 

VQSAT 

6 

00004 

DATA  EST 1 / 

VQSAT 

7 

♦ 

0.31 195E-02, 

0.36135E-02. 

0.41800E-02, 

VQSAT 

a 

* 0 . 48227E -02 , 

0 . 5557 1 E - 02 . 

0.63934E-02  , 

0 . 73433E-02. 

VQSAT 

9 

• 0 . 84286E -02 , 

0 .96407E-02 . 

0. 1 1 014E-01 , 

0. 12S82E-01 , 

VOSAT 

10 

* 0 . 1 4353E-0 1 p 

0. 16341E-01 , 

0. 1 8574E-0 1 , 

0.21 095E- 0 1 , 

VOSAT 

1 1 

♦ 0 . 2392SE -0 1 , 

0 . 27096E-0 1 . 

0.30652E-01 , 

0.34629E-01 . 

VQSAT 

12 

* 0 . 39073E -0  1 # 

0 . 44028E-01 , 

0 . 49546E-0 1 t 

0.55G91E-01 , 

VQSAT 

13 

* 0 . 6250BE-0  1 , 

0.70077E-01 . 

0. 78700E-01  , 

0 . 88 1 28E-0 1 . 

VQSAT 

14 

♦ 0 . 98477E-0  1 , 

0. 10983E+00, 

0. 12233E  + 00  , 

0. 13608E+00. 

VQSAT 

15 

* 0 . 151 21 E*00 , 

0. 1 6784E A00  p 

0. 1 86 1 5E*00 , 

0.20627E*0Q, 

VOSAT 

16 

* 0 . 22837E  + 00 . 

0 . 25263E  * 00 

0 . 27923E*00 , 

0.30838E*00. 

VQSAT 

17 

- 0 .34030E+00. 

0 . 37520E * 00 . 

0. 41334E*00 , 

0.45497E-00. 

VQSAT 

18 

* 0 . 50037E ♦ 00 , 

0 . 54984  E ■**  00  , 

0 . 60369E+00, 

0.6G225E*00. 

VQSAT 

19 

♦ 0 .72589E-00, 

0 . 79497E  ■*-00  . 

0.8699  tE^OO , 

0.951  1 3E-*- 00  . 

VQSAT 

20 

» 0 . 1 039 1 E*  0 1 , 

0. 1 1 343E-*-  0 1 . 

0.  12372E-*-01  f 

0.  1 3484  E ‘Ot . 

VQSAT 

21 

* 0 - 1 4684E *0 1 , 

0 . 15979E+01 . 

0 . 1 7375E  x 0 1 . 

0. 1 8879E  * 0 1 , 

VQSAT 

22 

♦ 0 . 20499E  *0  1 , 

0. 2224 1E*01 . 

0.241  1 3E  *■  0 t . 

0 . 26 1 2GE  *01  . 

VOSAT 

23 

* 0 ► 28286E+0 1 . 

0 .30604E  *-0  1 . 

0. 33091E«-01  t 

0 . 35755E  *-0  1 / 

VQSAT 

24 

c 

VOSAT 

25 

00005 

DATA  EST2/ 

VQSAT 

26 

♦ 0.38608E*01, 

0 . 416635^0 1 , 

0 . 44930E*01 , 

0 . 48423E 0 1 . 

VOSAT 

27 

• 0.521 55E  + 0 1 * 

0. 56140E^0 1 . 

0.60394E+01 . 

0 .649305*01 , 

VOSAT 

28 

- 0 . 69767E  *01, 

0.74919E+01 . 

0 .8Q406E+01 , 

0 . 86246E  *01  . 

VQSAT 

29 

* 0.92457E+01, 

0 . 9906 1 E *0 1 . 

0. 1 0608E  + 02 . 

0. 1 1 353E*02 . 

VQSAT 

30 

* 0.!2144E*Q2. 

0.  1 2983E  *-02, 

0. 1 3B73E  J-02  » 

0. 1 48 1 6EA02 . 

VQSAT 

31 

♦ 0 . 158  1 5E  J-02  . 

0. 16872E+02. 

0. 1 7992E+02 , 

0. 1 9 1 76E  *02 . 

VOSAT 

32 

♦ 0 . 2042SE  + 02  . 

0 . 2 1 750E  + 02  , 

0 . 23 1 4BE  *02 . 

0 . 24623E+02 . 

VQSAT 

33 

♦ 0.2G180E*02. 

0 , 27822E+02 . 

0. 29553E+02. 

0.31 378E ■‘-02  , 

VQSAT 

34 

* o ,333oob+02. 

0 . 35324E*  02 . 

0 . 37454E-*-02  , 

0 . 39G96E 02  , 

VQSAT 

35 

* 0 . 42053E ■‘■02  . 

0 . 4453 1 E*02 , 

0.47 ! 34E  «-02  . 

0 . 498693*  02  « 

VOSAT 

36 

« 0.52741 E+02 , 

0 . 55754E  x02 . 

0 . 589 1 6E*02 . 

0.62232E+02, 

VOSAT 

37 

* 0 . 65 7 08 E*  02 , 

0 . 6935 1 E + 02 . 

0.731 6SE  *02 , 

0 . 77  1 64E*  02 , 

VQSAT 

38 

♦ 0.81 348E+02 « 

0 . 857  25E  *02 , 

0 . 90305E  + 02 , 

0 . 95094E*-02  . 

VQSAT 

39 

* 0.  1 00 1 OE  + 03 . 

0. 1 0533E*03 , 

0.  M080E^03. 

0. 1 1 650E*  03 , 

VQSAT 

40 

0 T 1 2246E*03 . 

0.  1286SE-*-03, 

0 . 13517E+03. 

0. 1 4 1 93E*  03  , 

VQSAT 

41 

* 0.14899E+03, 

0.  1 5634E4'03  , 

0. 16400E+03, 

0. 17199E+03. 

VQSAT 

42 

* 0 . 1 8030E *03 . 

0. 1B895E-03. 

0. 19796E*03, 

0 . 20733E - 03 . 

VQSAT 

43 

- 0.21  708EJ*03 , 

0 . 22722E  + 03 . 

0 . 2377GE *03 . 

0 , 2487  1 E4- 03 / 

VQSAT 

44 

c 

VQSAT 

45 

0000G 

TMAX  = AMAX 1 ( T 

.200.0  > 

VQSAT 

46 

00007 

TMIN  = AMIN  1 ( TMAX  r 337 . 9 ) 

VQSAT 

47 

00008 

TSTAR  = TMIN  - 1S8. 99999 

VQSAT 

48 

00009 

IC  = TSTAR 

VOSAT 

49 

00010 

TEMP  = EST(IC) 

* (EST(ICM) 

- EST(IC)  ) *■  < TSTAR  - IC> 

VQSAT 

50 

0001  1 

QSAT  = AM INI ( TEMP , P/ 1 .6221 

VQSAT 

51 

000  12 

QSAT  ^ . 622'*  QSAT/  1 P - QSAT) 

VOSAT 

52 

c 

VQSAT 

53 

00013 

RETURN 

VQSAT 

54 

00014 

END 

VQSAT 

55 
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EST 

F.ST1 

EST2 

IC 

P 

QSAT 

T 

TEMP 

TMAX 

TMIN 

TSTAR 


TYPE 

--CLASS 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

INTEGER 

SIMPLE 

REAL 

SIMPLE 

REAL 

FUNCTION 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REFERENCES  A= 


2 

3 

2 

3 

2 

3 

9/S 

10 

1 

1 1 

1 

1 1 /S 

1 

6 

to/s 

1 t 

6/S 

7 

7/S 

8 

a/s 

9 

LIST. 

C-CTRL 

OF  DO 

3 

10 

10 

4/1 

5/1 

10 

10 

*0 

12 

12/S 

12 

12 

10 


I =DATA  INIT,  REREAD,  S=STORE.  VJsWRITE 
10 


CO 
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DO 

♦-* 

tflt/l 
22 
H M 

CCfC 
hh 
22 
►H  ¥-* 


JJ 
< < 
UiUi 
cr  a 


iu 

< 

z 


XZ 
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C* 

2 

C 

VRADIO 

3 

C 

SUBROUTINE  RADIO 

VRADIO 

4 

C 

VRADIO 

5 

C 

PURPOSE 

VRADIO 

6 

c 

DRIVER  FOR  THE  RADIATION  ROUTINES 

VRADIO 

7 

c 

VRADIO 

8 

c 

USAGE 

VRADIO 

9 

c 

CALLED  FROM  C0MP3 

VRADIO 

10 

c 

VRADIO 

1 1 

c 

INPUT/OUTPUT  FILES  USED 

VRADIO 

12 

c 

NONE 

VRADIO 

13 

c 

VRADIO 

14 

c 

DESCRIPTION  OF  PARAMETERS 

VRADIO 

15 

c 

d - INDEX  FOR  LATITUDE  BAND 

VRADIO 

16 

c 

VRADIO 

17 

c 

SUBPROGRAMS  NEEDED 

VRADIO 

18 

c 

SOLAR  1 

VRADIO 

19 

c 

ZEIT 

VRADIO 

20 

c 

LINKHO 

VRADIO 

21 

c 

VLINKHO  - 

VRADIO 

22 

c 

VRADIO 

23 

c 

RECORD  OF  MODIFICATIONS 

VRADIO 

24 

c 

'’DATE?  ? PROGRAMMER*’  7DESCR  I PT  ION 

OF  MODIFICATIONS*’ 

VRADIO 

25 

c 

22JUL83  JIM.PF  ADDED  DOCUMENTATION 

i + CHOICE  FOR 

DI AGNOSTI CSVR ADIO 

26 

c 

VRADIO 

27 

c 

REMARKS: 

VRADIO 

2B 

c 

< 1)  LARRY  TAKECS  IS  THE  EXPERT  FOR 

THIS 

ROUTINE 

VRADIO 

29 

G 

VRADIO 

30 

c* 

31 

c* 

M / A -COM  SIGMA  DATA  I 

N C 

NASA  - 

G S F C 'VRADIO 

32 

G*  1 

33 

c 

VRADIO 

34 

00001 

SUBROUTINE  RADIO  ( d> 

VRADIO 

35 

O Q 

c 

VRADIO 

36 

V-*  1 

****** 

37 

* P--U 

c 

VRADIO 

38 

c 

VCNTRL 

2 

c 

CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY 

RECORD 

VCNTRL 

3 

x ^ 

c 

s:;e:ss:ssss 

VCNTRL 

4 

O y*, 

00002 

COMMON  /CCNTRL / CCO 

VCNTRL 

5 

00003 

COMMON  /CCNTRL/  ADATE 

VCNTRL 

6 

J 

00004 

COMMON  /CCNTRL/  ATtME 

VCNTRL 

7 

( O *v3 

00005 

COMMON  /CCNTRL/  JIC 

VCNTRL 

8 

c $ 

00006 

COMMON  /CCNTRL/  JOB 

VCNTRL 

9 

00007 

COMMON  /CCNTRL/  CCSP06 

VCNTRL 

10 

00008 

COMMON  /CCNTRL/  CCSP07 

VCNTRL 

1 1 

00009 

COMMON  /CCNTRL/  CCSP08 

VCNTRL 

12 

000  10 

COMMON  /CCNTRL/  VER 

VCNTRL 

13 

0001  1 

COMMON  /CCNTRL/  XLABEL  (10) 

VCNTRL 

14 

00012 

COMMON  /CCNTRL/  CQS  (30) 

VCNTRL 

15 

000  13 

COMMON  /CCNTRL/  CQU  (10) 

VCNTRL 

16 

c 

VCNTRL 

17 

000  14 

EQUIVALENCE  <CCO,CC( 1 ) ) 

VCNTRL 

18 

00015 

CHARACTERS  CCO,  CC<200) 

VCNTRL 

19 

00016 

CHARACTERS  ADATE 

VCNTRL 

20 

00017 

CHARACTERS  ATIME 

VCNTRL 

21 

00018 

CHARACTERS  JIC 

VCNTRL 

22 

00019 

CHARACTERS  JOB 

VCNTRL 

23 

00020 

CHARACTER *8  CCSP06 

VCNTRL 

24 

00021 

CHARACTER *8  CCSP07 

VCNTRL 

25 

00022 

CHARACTERS  CCSP08 

VCNTRL 

26 

00023 

CHARACTER  *8  VER 

VCNTRL 

27 

00024 

CHARACTERS  XLABEL 

VCNTRL 

28 

00025 

CHARACTERS  CQS 

VCNTRL 

29 

00026 

CHARACTER  S CQU 

VCNTRL 

30 

c 

VCNTRL 

31 

c 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

32 

c 

= = = s 

VCNTRL 

33 

00027 

COMMON  / I CNTRL / ICO 

VCNTRL 

34 

00028 

COMMON  /I CNTRL/  IM 

VCNTRL 

35 

? | j: •> 


‘ f 

00029 

COMMON 

/ ICNTRL/ 

I MD2 

00030 

COMMON 

/ICNTRL/ 

IMD2P1 

! 0003  T 

COMMON 

/ICNTRL/ 

NDRSW 

J < 

00032 

COMMON 

/ICNTRL/ 

JM 

< 1 

00033 

COMMON 

/ICNTRL/ 
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00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 
0030  1 

00302 

00303 

00304 

00305 

00306 

00307 
0030S 

00309 

00310 

00311 

00312 
003  13 

00314 

00315 

00316 

00317 

00318 

00319 

00320 

00321 

00322 

00323 

00324 

00325 


00326 

00327 

00328 


C 


C 

C 

c 

c 


c 

c 

c 

c 


c 

c * 
c 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


{ QPROGf 1 , 
{ QPROG ( 1 , 
( QPROG ( 1 f 
( QPROG ( 1 , 
( QPROGf 1 , 


4.1.1)  , GT 
S . 1 • 1) , GW 
6«  1 v U VTS 

7.1.1)  , SHS 
8,1»1),P 


( 1 . 1 > > 

Cl  . 1 > ) 

( i . m 
m . n ) 
(1,1,11) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


{ QPROG ( 1 . 1 
(QPROGf 1 . 1 
( QPROG<  1 , 1 
( QPROG ( 1 , 1 
(QPROGf 1 , 1 


2, 

,1) 

,u 

I 

1 , 

1 

, 1 

)) 

4, 

, i ; 

, V 

( 

1 , 

1 

, 1 

>) 

6, 

, i ) 

, T 

i 

1 , 

1 

, 1 

) ) 

8 , 

i ) 

, SH 

( 

1, 

1 

. 1 

J > 

0, 

i ) 

, PHI  < 

1 , 

' 1 

1 

, 1 

J ) 

f1elds  <not  needed 


COMMON 

DIMENSION 

EQUIVALENCE 


/ QANDQT / QSDI AG(72  ,15,46) 

I OSD I AG  < 72  . 15,46) 

(OSDIAG, I QSDI AG) 


COMMON 


/QANDQT/  OUDIAGf  72 , 9 , 5,46) 


PHYSICS  PARAMETERS 
COMMON  /CNTRLP / 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
COMMON  /CNTRLP/ 
LOGICAL 


AND  CONSTANTS 

CDFR 

CDXL 

CDXO 

CLH 

COE  <9> 
COEF 

CCZrX 

COSROT 

CPP 

CTID 

CUMDAY 

CUMRAT 

CIO 

C100 

C40 

DELTA 

DTC3 

DTOUT 

ED 

EDNM 

FCOEF 

FMU 

FWET 

GAMFAC 

GTOPO 

HICE 

NDTC3 

NFLW 

PIM 

QHOG 

SHLTCP 

SINROT 

SNOWN 

SNOWS 

STBO 

STERP1 

STERP2 

TICE 

TLTOP 

XDAY 

2LNCO 

QHOG 


RADIATION  AND  SOURCE  TERM  FIELDS 

COMMON  /RADCOM/  AS(72,9>.  RE(72  10) 
COMMON  /RADCOM/  PL (72 |9) J PLH(72  10) 
COMMON  /RADCOM/  PLK(72,9),  PLKE(IO) 


IN  CGMPO ) 


VOANDQT  35 
VOANDQT  36 
VQANDQT  37 
VQANDQT  38 
VOANDOT  39 
VQANDQT  40 
VOANDQT  41 
VOANDQT  42 
VQANDQT  43 
VQANDQT  44 
VQANDQT  45 
VQANDQT  46 
VQANDQT  47 
VOANDQT  48 
VQANDQT  49 
VQANDQT  50 
VQANDQT  51 
VQANDQT  52 
VQANDQT  53 
VQANDQT  54 
VQANDQT  55 
VCNTRLP  2 
VCNTRLP  3 
VCNTRLP  4 
VCNTRLP  5 
VCNTRLP  6 
VCNTRLP  7 
VCNTRLP  8 
VCNTRLP  9 
VCNTRLP  10 
VCNTRLP  11 
VCNTRLP  12 
VCNTRLP  13 
VCNTRLP  14 
VCNTRLP  15 
VCNTRLP  16 
VCNTRLP  17 
VCNTRLP  18 
VCNTRLP  19 
VCNTRLP  20 
VCNTRLP  21 
VCNTRLP  22 
VCNTRLP  23 
VCNTRLP  24 
VCNTRLP  25 
VCNTRLP  26 
VCNTRLP  27 
VCNTRLP  28 
VCNTRLP  29 
VCNTRLP  30 
VCNTRLP  31 
VCNTRLP  32 
VCNTRLP  33 
VCNTRLP  34 
VCNTRLP  35 
VCNTRLP  36 
VCNTRLP  37 
VCNTRLP  38 
VCNTRLP  39 
VCNTRLP  40 
VCNTRLP  41 
VCNTRLP  42 
VCNTRLP  43 
VCNTRLP  44 
VCNTRLP  45 
VCNTRLP  46 
VRADCOM  2 
VRADCOM  3 
VRADCOM  4 
VRADCOM  5 
VRADCOM  6 


of 

sf 

es 

SI 

z m 


3 


£S 


00329 

00230 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 

00340 

00341 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 


00359 

00360 


00361 

00362 

00363 


00365 

00366 

00367 


COMMON  /RADCOM/  TH72.9),  TLE172.10) 

COMMON  /RADCOM/  TG172)  , TH(72.9> 

COMMON  /RADCOM/  SHU72.9).  SHLE<72.10) 

COMMON  /RADCOM/  SHGI72),  CLOUD(72.12) 

COMMON  /RADCOM/  SHSATI72.9),  GAMC72.9) 

COMMON  /RADCOM/  RH<72,9> 

COMMON  /RADCOM/  SSS<72,9>,  SSSEC72.10) 

COMMON  /RADCOM/  HH(72,9).  HHE<72,10> 

COMMON  /RADCOM/  HHS ( 72 , 9 > 

COMMON  /RADCOM/  CVTC72.9).  CV0<72.9> 

COMMON  /RADCOM/  CXDE<9> 

COMMON  /RADCOM/  SWALE ( 72 ,101*  SWIL (72.91 
COMMON  /RADCOM/  AL(72t10> 

COMMON  /RADCOM/  TAUL ( 72 . 1 0 > , OZALE<72.10) 

COMMON  /RADCOM/  T0PA8S(72) 

COMMON  /RADCOM/  RN<9>,  TN(9),  SRS<9).  STN(9) 

COMMON  /RADCOM/  TC0ND19),  TPENE i 9 ) 

COMMON  /RADCOM/  TLOWL , TMIDL , NLAYOZ 
COMMON  /RADCOM/  FK<5>,  XK(5),  NFK 

COMMON  /RADCOM/  OLJAN(19).  0LAPR119),  0LJUL(19)t  OLOCT(19> 
COMMON  /RADCOM/  0CM22(23).  OCM30{23),  OCM38(23).  0CM46<23> 
COMMON  /RADCOM/  PR0CM<23>.  0CMXX<23>,  NOZ , TOTOZ(4).  CDATE<6> 
COMMON  /RADCOM/  CZH(72).  WET  (72),  EVAP,  PREP  (72).  WK72) 
COMMON  /RADCOM/  COSZ(72),  SO.  RADTRM( 72) , CXL 
COMMON  /RADCOM/  SG ( 72 > , 5P ( 72 > 

COMMON  /RADCOM/  RSURF(72).  RCL0UD(72).  JALB 
COMMON  /RADCOM/  LAND (72).  0CEAN(72).  ICE (72) 

COMMON  /RADCOM/  SNOW (72),  MI XWI < 72 ) , FROST (72) 

LOGICAL  LAND,  OCEAN.  ICE,  SNOW.  MI XWI,  FROST 

c 

c 



c 

C DEBUG 
10000  CONTINUE 

0 CYBER  VECTOR  VERSION  00.001  INPUT  IOQ 

C CYBER  VECTOR  VERSION  00 


VRADCOM  7 
V RAD COM  8 
VRADCOM  9 
VRAOCOM  10 
VRADCOM  11 
VRADCOM  12 
VRADCOM  13 
VRADCOM  14 
VRADCOM  15 
VRADCOM  16 
VRADCOM  17 
VRADCOM  18 
VRAOCOM  19 
VRAOCOM  20 
VRADCOM  21 
VRADCOM  22 
VRADCOM  23 
VRADCOM  24 
VRADCOM  25 
VRADCOM  26 
VRADCOM  27 
VRADCOM  28 
VRAOCOM  29 
VRAOCOM  30 
VRADCOM  31 
VRADCOM  32 
VRADCOM  33 
VRADCOM  34 
VRADCOM  35 
VRADCOM  36 
VRADIO  43 
VRADIO  44 
VRADIO  45 
VBEGDEB  2 
VBEGDEB  3 
VBEGDEB  4 
VBEGDEB  5 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSVBEGDEB 

C w n i n 


IMNLAY  = IM*  NLAY 
IMNLAYP1  = IMMNLAY+1) 


RADIATION  SUBROUTINES 


C 

C + 

c ♦*** 


AS( 1 , 1 ? IMNLAY ) = 0. 

RE  < 1 . 1 ; IMNLAYP1 ) = 0. 

SGf 1 ; IM)  = 0. 

IF  (NFLW.EQ.O)  GO  TO  440 

RSURF ( 1 ; IM)  = ALB EDO ( 1 , «J ; IM } * 0 . O 1 
XLAT  = RLATDCU) 

CALL  SOLAR  1 { J , XLAT ) 


SAVE  SOLAR  RADIATION  ABSORBED  8Y  ATMOSPHERE  (LY/DAY) 


IF  < LRADSW)  QUDI AG( 1 , 1 , 1 RADSW ♦ 0 ; IMNLAY ) = 

OUDIAGt  1 , t .IRADSW.d;  IMNLAY)  + CUMRAT*AS( 1 . 1 ; IMNLAY > 
I F ( LRADSWG  > QSDI AG ( 1 » I RADSWG * d ; IM ) = 

1 QSDI AG( 1 , I RADSWG, d ; IM)  + CUMRAT*SGM  ; IM) 

IF  ( „ NOT . QHOG)  GO  TO  420 


VRADIO  47 
VRADIO  48 
VRADIO  49 
VRADIO  50 
VRADIO  51 
VRADIO  52 
VRADIO  53 
VRADIO  54 
VRADIO  55 
VRADIO  56 
VRADIO  57 
VRADIO  58 
VRADIO  59 
VRADIO  60 
VRADIO  61 
VRADIO  62 
VRADIO  63 
VRADIO  64 
VRAOIO  65 
VRADIO  66 
VRADIO  67 
VRADIO  68 
VRADIO  69 
VRADIO  70 
VRADIO  71 
VRADIO  72 
VRAOIO  73 
VRADIO  74 
VRADIO  75 
VRADIO  76 
VRADIO  77 
VRADIO  78 
VRADIO  79 


RADIO  7 


00372 

00373 

00374 

00375 

00376 

00377 

00378 

00379 

00380 
0038  I 

00382 

00383 

00384 

00385 
00388 


00388 

00389 


00392 

00393 


00398 

00397 


ZFU.NE.1  .AND.  J.NH.JNP)  GOTO  442 
CALL  ZE I TBEG < 8HL I NKHO  ) 

CALL  ZE  INTEND  * * NFLW, NDAY  t IFIMXLAT+.5)  . JNP  , t > 

DO  414  L= 1 , NLAY 
RE(2.L;IM-t)  = REM.L) 

SHL  < 2 . L ; IM-  1 ) = SHL ( 1 . L ) 

CONTINUE 

RE ( 2 , NLA VP  1 ; IM- 1 > = RE  » 1 . NLA VP  1 ) 

SHG ( 2 ; IM- 1 ) * SHGi 1 ) 

GO  TO  443 

CONTINUE 

CALL  ZEI TBEG (8HVLINKH0  ) 

CALL  ZEI  TEND  ( NL  A V * NF  LW  * N0A  Y • t F 1 X < * L AT*  . 5 ) , IM  > 
CONTINUE 

I * J ’ fRADLW.  *J  ; IMNLAY  ) * RE ( 1 . 1 ; IMNLAY ) 

QSDI AG< 1 , I RADLWG , J ; IM)  = RE ( f , NLA YP 1 ; IM > 

GO  TO  440 


420 
* * * • 

CONTINUE 

RE  ( 1 

. 1:IMNUAY)  = QUO I AG ( 1.1, IRADLW 

* * * * 

R£<1, 

, NLAYP t;IM)  = QSDI AG <«. I RADLWG . i 

440 

CONTINUE 

RADTRMf  1 ; IM)  = SGM;IM)  * RE  < 1 , NLAYP  1 ; IM) 

RETURN 

END 


STATEMENT  LABEL  MAP 
--LABEL DEFINED-- 

10000  358 

414  379 

420  391 

440  394 

442  383 

443  337 


-REFERENCES 


VRADIO 

80 

VRADIO 

81 

VRADIO 

82 

VRADIO 

83 

VRADIO 

84 

VRADIO 

85 

VRADIO 

88 

VRADIO 

87 

VRADIO 

88 

VRADIO 

89 

VRADIO 

90 

VRADIO 

91 

VRADIO 

92 

VRADIO 

93 

VRADIO 

94 

VRADIO 

95 

VRADIO 

96 

VRADIO 

97 

VRADIO 

98 

VRADIO 

99 

VRADIO 

100 

VRADIO 

101 

VRADIO 

102 

VRADIO 

103 

VRADIO 

104 

VRADIO 

105 

VRADIO 

106 

VRADIO 

107 

VRADIO 

108 

VRADIO 

109 

VRADIO 

110 

VRADIO 

1 1 1 

VRADIO 

112 

VRADIO 

1 13 

VRADIO 

1 14 

VRADIO 

1 15 

VRADIO 

1 16 

VRADIO 

1 17 

VRADIO 

1 18 

VRADIO 

1 19 

VRADIO 

120 

VRADIO 

121 

VRADIO 

122 

VRADIO 

123 

VRADIO 

124 

VARIABLE  MAP 


-NAME 

BLOCK- « — 

TYPE 

--CLASS- 

ADATE 

CCNTRL 

CHAR  *8 

SIMPLE 

ADLOP 

RDPARM 

REAL 

SIMPLE 

A L 

RADCOM 

REAL 

ARRAY 

ALBEDO 

OANDQT 

REAL 

ARRAY 

aphel 

RCNTRL 

REAL 

SIMPLE 

AS 

RADCOM 

REAL 

ARRAY 

A T IME 

CCNTRL 

CHARTS 

SIMPLE 

BETA 

RCNTRL 

REAL 

SIMPLE 

cio 

CNTRLP 

REAL 

SIMPLE 

C 1 00 

CNTRLP 

REAL 

SIMPLE 

C40 

CNTRLP 

REAL 

SIMPLE 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

-REFERENCES 


A=:ARGLIST<  C=CTRL  OF  DO.  I=DATA  INTT,  R = READ.  S = STORE.  W-WRITE 


3 

217 
34  1 

16 

256 

157 

269 

365 

326 

4 

158 

296 

297 

298 
196 

361/S 

17 

368 

original  pass  gs 

OF  POOR  QUALITY 


dd..;, : .. \ \ idd . .: 


cc 

CCNTRL 

CHAR  * 8 

ARRAY 

cco 

CCNTRL 

CHAR  *8 

SIMPLE 

CCNTRL 

REAL 

UNKNOWN 

CCSP06 

CCNTRL 

CHAR'8 

SIMPLE 

CCSP07 

CCNTRL 

CHAR  *8 

SIMPLE 

ccspoe 

CCNTRL 

CHAR 'B 

SIMPLE 

CDATE 

R A DCOM 

REAL 

ARRAY 

CDFfl 

CNTRLP 

REAL 

SIMPLE 

CD  XL 

CNTRLP 

REAL 

SIMPLE 

CD  XO 

CNTRLP 

REAL 

SIMPLE 

CLH 

CNTRLP 

REAL 

SIMPLE 

CLOUD 

RADCOM 

REAL 

ARRAY 

CNTRLP 

REAL 

UNKNOWN 

COE 

CNTRLP 

REAL 

ARRAY 

COEF 

CNTRLP 

REAL 

SIMPLE 

COEFS 

CNTRLP 

REAL 

SIMPLE 

CONI 

R DP ARM 

REAL 

SIMPLE 

CONI DT 

RDPARM 

REAL 

SIMPLE 

CON2 

RDPARM 

REAL 

SIMPLE 

CON2DT 

RDPARM 

REAL 

SIMPLE 

CON3 

RDPARM 

REAL 

SIMPLE 

CON30T 

RDPARM 

REAL 

SIMPLE 

C0N4 

RDPARM 

REAL 

SIMPLE 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

CONS 

RDPARM 

REAL 

SIMPLE 

COSD 

RCNTRL 

REAL 

SIMPLE 

COSL 

RDPARM 

REAL 

ARRAY 

COSLON 

RDPARM 

REAL 

ARRAY 

COSROT 

CNTRLP 

REAL 

SIMPLE 

COS2 

RADCOM 

REAL 

ARRAY 

CP 

RCNTRL 

REAL 

SIMPLE 

CPD2 

RDPARM 

REAL 

SIMPLE 

CP  P 

CNTRLP 

HEAL 

SIMPLE 

cos 

CCNTRL 

CHAR'S 

ARRAY 

CQU 

CCNTRL 

CHAR'S 

ARRAY 

CTID 

CNTRLP 

REAL 

SIMPLE 

CUMDAY 

CNTRLP 

REAL 

SIMPLE 

CUMRAT 

CNTRLP 

REAL 

SIMPLE 

CVQ 

RADCOM 

REAL 

ARRAY 

CVT 

RADCOM 

REAL 

ARRAY 

CXDE 

RADCOM 

REAL 

ARRAY 

CXL 

RADCOM 

REAL 

SIMPLE 

CZH 

RADCOM 

REAL 

ARRAY 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

DEC 

RCNTRL 

REAL 

SIMPLE 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

DELTA 

CNTRLP 

REAL 

SIMPLE 

DIST 

RCNTRL 

REAL 

SIMPLE 

DLAT 

RCNTRL 

REAL 

SIMPLE 

DLON 

RCNTRL 

REAL 

SIMPLE 

DSIG 

RDPARM 

REAL 

ARRAY 

DSIGINV 

RDPARM 

REAL 

ARRAY 

DT 

RCNTRL 

REAL 

SIMPLE 

DTC3 

CNTRLP 

REAL 

SIMPLE 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

DXP 

RDPARM 

REAL 

ARRAY 

DXYP 

RDPARM 

REAL 

ARRAY 

D VP 

RDPARM 

REAL 

ARRAY 

ECCN 

RCNTRL 

REAL 

SIMPLE 

ED 

CNTRLP 

REAL 

SIMPLE 

EDNM 

CNTRLP 

REAL 

SIMPLE 

EPS 

RCNTRL 

REAL 

SIMPLE 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

EVAP 

RADCOM 

REAL 

SIMPLE 

F IDT 

RDPARM 

REAL 

SIMPLE 

F2DT 

RDPARM 

REAL 

SIMPLE 

ORIGINAL  PAGE  ~'s 
OF  POOR  QUALITY 


FCOEF 

FCORLS 

FILTER 

FK 

FMU 

FROST 

FWET 

GAM 

GAMFAC 

GNU1 

GNU2 

GRAY 

GT 

GTOPO 

GW 

H IDT 

H2DT 

HEATI 

HEAT  V/ 

HH 

HHE 

HHS 

MICE 

IBLKSIZ 

IC 

ICO 

ICE 

1CNTRL 


CNTRLP 

RDPARM 

LDPARM 

RADCOM 

CNTRLP 

RADCOM 

CNTRLP 

RADCOM 

CNTRLP 

RCNTRL 

RCNTRL 

RCNTRL 

QANDQT 

CNTRLP 

QANDQT 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

RADCOM 

RADCOM 

RADCOM 

CNTRLP 

ICNTRL 

ICNTRL 

ICNTRL 

RADCOM 


ICSP53 

IDIABAT 

IDPARM 

IDSP02 

IEFLUX 

IFUSION 

INFLUX 

1 1 CLOUD 

I JUMP 

IM 

XMD2 

I MD2P  t 

IMNLAY 

IMNLAYP 1 

INDEX 

IOMEGA 

IPREACC 

IPRECON 

IQS 

IQSDI AG 
IQU 

IRADLW 

IRADLWG 

IRADSW 

IRA05WG 

I ROD 

ITAPE 

ITMAX 

ITMIN 

I UF  LUX 

I VF  LUX 

J 

JAL5 

JC 

JE 


ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 


IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

OANDQT 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

LDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


RADCOM 

IDPARM 

IDPARM 


REAL 

SIMPLE 

304 

REAL 

ARRAY 

233 

LOGICAL 

ARRAY 

21 1 

214 

REAL 

ARRAY 

347 

REAL 

SIMPLE 

305 

LOGICAL 

ARRAY 

366 

357 

REAL 

SIMPLE 

306 

REAL 

ARRAY 

333 

REAL 

SIMPLE 

307 

REAL 

SIMPLE 

169 

REAL 

SIMPLE 

170 

REAL 

SIMPLE 

17  1 

REAL 

ARRAY 

257 

270 

REAL 

SIMPLE 

308 

REAL 

ARRAY 

258 

271 

REAL 

SIMPLE 

236 

REAL 

SIMPLE 

237 

REAL 

SIMPLE 

193 

REAL 

SIMPLE 

192 

REAL 

ARRAY 

336 

REAL 

ARRAY 

336 

REAL 

ARRAY 

337 

REAL 

SIMPLE 

309 

INTEGER 

SIMPLE 

70 

INTEGER 

ARRAY 

95 

96 

INTEGER 

SIMPLE 

27 

95 

LOGICAL 

ARRAY 

355 

357 

INTEGER 

UNKNOWN 

27 

28 

38 

35 

49 

50 

60 

61 

71 

72 

INTEGER 

SIMPLE 

68 

INTEGER 

UNKNOWN 

92 

INTEGER 

UNKNOWN 

200 

201 

INTEGER 

SIMPLE 

201 

INTEGER 

UNKNOWN 

84 

INTEGER 

UNKNOWN 

85 

INTEGER 

UNKNOWN 

83 

INTEGER 

UNKNOWN 

88 

INTEGER 

ARRAY 

200 

INTEGER 

SIMPLE 

28 

359 

380 

38  1 

INTEGER 

SIMPLE 

29 

INTEGER 

SIMPLE 

30 

INTEGER 

SIMPLE 

359/S 

361 

INTEGER 

SIMPLE 

360/S 

362 

INTEGER 

ARRAY 

202 

INTEGER 

UNKNOWN 

91 

INTEGER 

UNKNOWN 

81 

INTEGER 

UNKNOWN 

82 

INTEGER 

ARRAY 

77 

79 

89 

90 

INTEGER 

ARRAY 

281 

282 

INTEGER 

ARRAY 

78 

9 1 

INTEGER 

SIMPLE 

94 

388 

INTEGER 

SIMPLE 

87 

389 

INTEGER 

SIMPLE 

93 

368 

INTEGER 

SIMPLE 

86 

369 

INTEGER 

SIMPLE 

203 

LOGICAL 

SIMPLE 

212 

215 

INTEGER 

UNKNOWN 

80 

INTEGER 

UNKNOWN 

79 

INTEGER 

UNKNOWN 

89 

INTEGER 

UNKNOWN 

90 

INTEGER 

SIMPLE 

1 

365 

388 

389 

INTEGER 

SIMPLE 

354 

37  1/S 

INTEGER 

ARRAY 

204 

INTEGER 

ARRAY 

206 

i & 


If 


96 


29 

40 

51 

62 

73 

30 

41 

52 

63 

74 

31 

42 

53 

64 

75 

32 

43 

54 

65 

75 

33 

44 

55 

66 

77 

34 

45 

56 

67 

78 

35 

46 

57 

63 

36 

47 

58 

69 

37 

48 

59 

70 

202 

203 

204 

205 

206 

207 

208 

209 

210 

360 

385 

363 

389 

365 
38  3 

365 

393 

369 
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COMMON 

/ICNTRL/ 

NDT 

VCNTRL 

66 

OOOGO 

COMMON 

/ICNTRL/ 

NHMS 

VCNTRL 

67 

00061 

COMMON 

/ ICNTRL / 

NHMSE 

VCNTRL 

6B 

00062 

COMMON 

/ICNTRL/ 

NHMSO 

VCNTRL 

69 

00063 

COMMON 

/ICNTRL/ 

NLAY 

VCNTRL 

70 

00064 

COMMON 

/ICNTRL/ 

NLAVM1 

VCNTRL 

7 1 

00065 

COMMON 

/ICNTRL/ 

NLA VP  1 

VCNTRL 

72 

00066 

COMMON 

/ICNTRL/ 

NSOAY 

VCNTRL 

73 

00067 

COMMON 

/ICNTRL/ 

NSEQ 

VCNTRL 

74 

00063 

COMMON 

/ICNTRL/ 

ICSP53 

VCNTRL 

75 

00069 

COMMON 

/ICNTRL/ 

NSTEP 

VCNTRL 

76 

00070 

COMMON 

/ICNTRL/ 

IBLKSIZ 

VCNTRL 

77 

0007  t 

COMMON 

/ICNTRL/ 

NYMD 

VCNTRL 

78 

00072 

COMMON 

/ICNTRL/ 

NYMDE 

VCNTRL 

79 

00073 

COMMON 

/ICNTRL/ 

NYMOO 

VCNTRL 

80 

00074 

COMMON 

/ICNTRL/ 

NZINIT 

VCNTRL 

81 

00075 

COMMON 

/ICNTRL/ 

NMLEV 

VCNTRL 

82 

00076 

COMMON 

/ICNTRL/ 

NDHOG 

VCNTRL 

83 

00077 

COMMON 

/ICNTRL/ 

IQS  < 30 ) 

VCNTRL 

e4 

00078 

COMMON 

/ICNTRL/ 

IQU  (10> 

VCNTRL 

85 

C 

VCNTRL 

86 

00079 

EQUIVALENCE 

(ITMIN 

, IQS(  1 > > 

VCNTRL 

87 

00080 

EQUIVALENCE 

< ITMAX 

,IQS<  2)) 

VCNTRL 

38 

00081 

EQUIVALENCE 

( I PRE ACC 

, I QS ( 3)) 

VCNTRL 

89 

00082 

EQUIVALENCE 

< IPRECON 

, I QS ( 4}) 

VCNTRL 

90 

00083 

EQUIVALENCE 

(INFLUX 

* I QS ( 5)) 

VCNTRL 

91 

00084 

EQUIVALENCE 

1 IEFLOH 

♦ IQS(  6)) 

VCNTRL 

92 

00085 

EQUIVALENCE 

( I FUSION 

,IQS(  7)) 

VCNTRL 

93 

00086 

EQUIVALENCE 

( IRADSWG 

t IQS(  81) 

VCNTRL 

94 

00087 

EQUIVALENCE 

( IRADLWG 

,IQS<  9)) 

VCNTRL 

95 

oooaa 

EQUIVALENCE 

< I I CLOUD 

, I QS ( 10 ) ) 

VCNTRL 

96 

00089 

EQUIVALENCE 

< IUFLUX 

, I QS  ( ID) 

VCNTRL 

97 

00090 

EQUIVALENCE 

( IVFLUX 

♦ IQS< 12) ) 

VCNTRL 

98 

c 

VCNTRL 

99 

00091 

EQUIVALENCE 

< IOMEGA 

• I QU { 1>> 

VCNTRL 

100 

00092 

EQUIVALENCE 

(IDIABAT 

,IOUI  2)) 

VCNTRL 

101 

00093 

EQUIVALENCE 

< IRADSW 

, I QU ( 3)) 

VCNTRL 

102 

00094 

EQUIVALENCE 

( IRADLW 

,I0U(  4) ) 

VCNTRL 

103 

c 

VCNTRL 

104 

00095 

EQUIVALENCE 

UCO,IC<  1)  ) 

VCNTRL 

105 

00096 

INTEGER 

ICO,  I C ( 200 ) 

VCNTRL 

106 

c 

VCNTRL 

107 

c 

LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

108 

c 

VCNTRL 

109 

00097 

COMMON 

/LCNTRL / 

LCO 

VCNTRL 

1 10 

00098 

COMMON 

/LCNTRL / 

QALT 

VCNTRL 

1 1 1 

00099 

COMMON 

/LCNTRL/ 

QBEG 

VCNTRL 

1 12 

00100 

COMMON 

/LCNTRL/ 

QDAY 

VCNTRL 

113 

00101 

COMMON 

/LCNTRL/ 

QEND 

VCNTRL 

1 14 

00102 

COMMON 

/LCNTRL/ 

QOUT 

VCNTRL 

115 

00103 

COMMON 

/LCNTRL/ 

QPHY 

VCNTRL 

1 16 

00104 

COMMON 

/LCNTRL/ 

QSHF 

VCNTRL 

1 17 

00105 

COMMON 

/LCNTRL/ 

SN2FLG 

VCNTRL 

1 18 

00106 

COMMON 

/LCNTRL/ 

QRSW 

VCNTRL 

1 19 

00107 

COMMON 

/LCNTRL/ 

QRSH 

VCNTRL 

120 

00  1 08 

COMMON 

/LCNTRL/ 

LQS ( 30 ) 

VCNTRL 

121 

00109 

COMMON 

/LCNTRL/ 

LQUi 10) 

VCNTRL 

* 22 

c 

VCNTRL 

123 

00110 

EQUIVALENCE 

< LTMIN 

, LQS ( D) 

VCNTRL 

124 

001  1 1 

EQUIVALENCE 

{ LTMAX 

, LQS ( 2)) 

VCNTRL 

125 

00112 

EQUIVALENCE 

(LPREACC 

f LQS ( 3)> 

VCNTRL 

126 

00  113 

EQUIVALENCE 

< LPRECON 

, LQS ( 4) ) 

VCNTRL 

127 

00114 

EQUIVALENCE 

( LHFLUX 

• LQS  < 5)) 

VCNTRL 

128 

001  15 

EQUIVALENCE 

(LEFLUX 

. LQS(  6 > ) 

VCNTRL 

129 

00116 

EQUIVALENCE 

(LFUSION 

* LQS ( 7)) 

VCNTRL 

130 

00117 

EQUIVALENCE 

( LRADSWG 

, LQSf  8) ) 

VCNTRL 

131 

00118 

EQUIVALENCE 

(LRADLWG 

» L Q S ( 9)) 

VCNTRL 

132 

00119 

EQUIVALENCE 

(LICLOUO 

, LQS ( 10)  ) 

VCNTRL 

133 

00120 

EQUIVALENCE 

(LUFLUX 

. LQS  4 1 1 n 

VCNTRL 

134 

00121 

EQUIVALENCE 

(LVFLUX 

, LQS  ( 1 2 ) ) 

VCNTRL 

135 

ORIGINAL  PAGE  m 
Op  POOR  QUALITY 


3 

\ t 

00122 

C 

EQUIVALENCE 

(LOMEGA 

* LQU  ( 

1) 

00123 

EQUIVALENCE 

{ LDIABAT 

T LQU  ( 

2) 

00124 

EQUIVALENCE 

(LRADSW 

. LQU  1 

3) 

00125 

p 

EQUIVALENCE 

( LRADLW 

* LQU  ( 

4) 

1 

1 

00126 

V 

LOGICAL 

QALT 

i 

00127 

•_  Qn  ina^ 

QBEG 

i 

00128 

LOGICAL 

ODAY 

00129 

LOGICAL 

QEND 

t 

00130 

LOGICAL 

QOUT 

i 

00131 

LOGICAL 

QPHY 

i 

00132 

LOGICAL 

QSHF 

r 

00133 

LOGICAL 

SN2FLG 

t 

00134 

LOGICAL 

QRSW 

\ 

3 

00135 

p 

LOGICAL 

ORSH 

1 

00136 

LOGICAL 

LQS 

j .. 

00137 

LOGICAL 

LQU 

00138 

LOGICAL 

LTMIN 

t 

jf  - 

00139 

LOGICAL 

LTMAX 

00140 

LOGICAL 

LPREACC 

0014  1 

LOGICAL 

LPRECON 

00142 

LOGICAL 

LHFLUX 

. 

00143 

LOGICAL 

LEFLUX 

00144 

LOGICAL 

LFUSION 

00  145 

LOGICAL 

LRAOSWG 

00146 

LOGICAL 

LRADLWG 

s . • 

00147 

LOGICAL 

LICLOUD 

00148 

LOGICAL 

LUFLUX 

00149 

p 

LOGICAL 

LVFLUX 

l- 

00150 

Is 

LOGICAL 

LOMEGA 

•vV 

00151 

LOGICAL 

LDIABAT 

j'. 

00152 

LOGICAL 

LRADSW 

00153 

p 

LOGICAL 

LRADLW 

00154 

EQUIVALENCE 

< LCO , LC ( 1 > > 

' * 

L W 

00155 

p 

LOGICAL 

LCO  « LC  f 200 1 

;F 

V 

C 

c 

REAL  MODEL  PARAMETERS  SAVED 

ON  HISTOf 

t 

i.i 

00156 

COMMON  /RCNTRL/ 

RCO 

00157 

COMMON  /RCNTRL/ 

APHEL 

f a 

00158 

COMMON  /RCNTRL/ 

BETA 

f * 

00159 

COMMON  /RCNTRL/ 

COSD 

k 

00160 

COMMON  /RCNTRL/ 

CP 

Jf 

00161 

COMMON  /RCNTRL/ 

DAYSPY 

1 { 

00162 

COMMON  /RCNTRL/ 

DEC 

00163 

COMMON  /RCNTRL/ 

DECMAX 

00  1 64 

COMMON  /RCNTRL/ 

DIST 

00165 

COMMON  /RCNTRL/ 

DLAT 

' 

00166 

COMMON  /RCNTRL/ 

DLON 

00167 

COMMON  /RCNTRL/ 

DT 

1 

00168 

COMMON  /RCNTRL/ 

ECCN 

; 4 

00169 

COMMON  /RCNTRL/ 

GNU  1 

00170 

COMMON  /RCNTRL/ 

GNU2 

■.  t; 

00171 

COMMON  /RCNTRL/ 

GRAV 

00172 

COMMON  /RCNTRL/ 

OMEGA 2 

00173 

COMMON  /RCNTRL/ 

PI 

00174 

COMMON  /RCNTRL/ 

PI  180 

N 

00175 

COMMON  /RCNTRL/ 

P I 2 

! 

00176 

COMMON  /RCNTRL/ 

PSTD 

1 = 
* 

i 00177 

COMMON  /RCNTRL/ 

PIMEAN 

00  1 78 

COMMON  /RCNTRL/ 

PSMAX 

00179 

COMMON  /RCNTRL/ 

PSMIN 

00180 

COMMON  /RCNTRL/ 

PTOP 

r • 

00181 

COMMON  /RCNTRL/ 

RADE 

i 

00182 

COMMON  /RCNTRL/ 

RGAS 

ij-  { 

00183 

COMMON  /RCNTRL/ 

ROCP 

\ J • 7 

00184 

COMMON  /RCNTRL/ 

RSDIST 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

vontrl 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 


136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 
15G 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 
187 
IBS 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 
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PI 

CO 

I 

LO 


. v:. 


ORIGINAL  PAGE  El 
OF  POOR  QUALITY 


00185 

0C186 

00 187 

00188 

00189 

00190 

00191 

00192 

00193 

00194 

00195 

00196 

00197 

00198 

00199 


00200 

00201 

00202 

00203 

00204 

00205 

00206 

00207 

00208 
00209 
00210 


0021  1 
00212 
00213 

00214 

00215 

00216 


00217 

00218 

00219 

00220 
00221 
00222 

00223 

00224 

00225 

00226 

00227 

00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 

00241 

00242 

00243 

00244 


COMMON  /RCNTRL/  SDAY 
COMMON  /RCNTRL/  SEASON 
COMMON  /RCNTRL/  SIGE  (251 
COMMON  /RCNTRL/  SIND 
COMMON  /RCNTRL/  SOLS 
COMMON  /RCNTRL/  TSTD 
COMMON  /RCNTRL/  PLEVS  , 25 > 
COMMON  /RCNTRL/  HEATW 
COMMON  /RCNTRL/  HEATI 
COMMON  /RCNTRL/  EPS 
COMMON  /RCNTRL/  EPSFAC 
COMMON  /RCNTRL/  CALTOd 
COMMON  /RCNTRL/  P2ER0 

C 

EQUIVALENCE  (RCO.RC(U) 

REAL  RCO,  RC ( 200 } 

C INTEGER  MODEL  CONSTANTS 

COMMON  /IDPARM/  I JUMP  (46) 
COMMON  /IDPARM/  IDSP02 
COMMON  /IDPARM/  INDEX  (72) 
COMMON  /IDPARM/  I ROD 
COMMON  /IDPARM/  dC  (461 

COMMON  /IDPARM/  JE  (2) 

COMMON  /IDPARM/  dP  (2,2) 

COMMON  /IDPARM/  KSTEP 
COMMON  /IDPARM/  Md  (461 

COMMON  /IDPARM/  NHMS ? 

COMMON  /IDPARM/  NYMD1 

C 

C LOGICAL  MODEL  CONSTANTS 

COMMON  /LDPARM/  FILTER  (4G1 
COMMON  /LDPARM/  I TAPE 
COMMON  /LDPARM/  START 

C 

LOGICAL  FILTER 

LOGICAL  ITAPE 

LOGICAL  START 

C 

C REAL  MODEL  CONSTANTS 

COMMON  /RDPARM/'aDLDP 
COMMON  /RDPARM/  CONI 
COMMON  /RDPARM/  C0N1DT 
COMMON  /RDPARM/  C0N2 
COMMON  /RDPARM/  C0N2DT 
COMMON  /RDPARM/  C0N3 
COMMON  /RDPARM/  C0N3DT 
COMMON  /RDPARM/  C0N4 
COMMON  /RDPARM/  C0N4DT 
COMMON  /RDPARM/  C0N5 
COMMON  /RDPARM/  COSL  (46) 
COMMON  /RDPARM/  COSLON  (72) 
COMMON  /RDPARM/  CP02 
COMMON  /RDPARM/  DXP  <461 
COMMON  /RDPARM/  DXYP  (461 
COMMON  /RDPARM/  DYP  (461 
COMMON  /RDPARM/  FCORLS  (46) 
COMMON  /RDPARM/  F IDT 
COMMON  /ROPARM/  F2DT 
COMMON  /RDPARM/  H1DT 
COMMON  /RDPARM/  H2DT 
COMMON  /RDPARM/  PKSTD 
COMMON  /RDPARM/  PKTOP 
COMMON  /RDPARM/  RLAT  (46) 
COMMON  /RDPARM/  RLATD  (46) 
COMMON  /RDPARM/  ROCPDT 
COMMON  /RDPARM/  R0CPP1 
COMMON  /RDPARM/  SGNP  (2) 


VCNTRL  207 
VCNTRL  208 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  216 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 


8 


4N 
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00245 

00246 

00247 

00248 

00249 

00250 
0025  t 
00252 


00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 

00262 

00263 

00264 

00265 

00266 

00267 

00268 

00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00278 

00279 


00280 

00281 

00282 

00283 


00284 

00285 

00286 

00287 

00288 
00289 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


c 

c 

c 

c 


c 

c 

c 

c 


COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 
COMMON  /RDPARM/ 


SINL 

(46) 

SINLON 

(72) 

THSTD 

THSTD2 

WSAVE 

( 159) 

D5IG 

(9) 

SIG 

(9) 

dsiginv 

(9) 

COMDECK  VQANDQT  RESOLUTION ^VA L UES 


IM  =72 

NLA V =9 

JM+1  =46 

NLAY* 1 1 =99 

IM*NLAY*11  =7128 
JM/2M  =23 


GLOBAL  MODEL  PROGNOSTIC  FIELDS  *NEEDE COMPO) 


COMMON 


/QANDQT / 0PR0G(72,9 . 1 1 ,46> 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PHIS  <7128.11 

SMTH  (7128,23) 

ALBEDO  (7128,1) 

GT  (7128,1) 

GW  (7128,1) 

TS  (7128,1) 

SH5  (7128. 1) 

p (72,99,1) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


U (72,9,11.1) 
V (72,9,11.1) 
T (72,9,11. t> 
SH  (72,9,11,1) 
PHI  ( 72 , 9 , t 1 , 1 ) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(QPROGt 1 , 
( QPROG ( 1 . 
( QPROG ( 1 , 
( QPROG ( 1, 
( QPROG ( 1 . 
( QPROG ( 1 , 
(QPROGi 1 . 
( QPROG ( 1 , 


1.1.1)  .PHIS  ( 1 , 1 ) > 

2.1.1)  , SMTH  ( 1 . 1 ) > 

3.1.1)  , ALBEDO ( 1 . 1 > > 

4.1.1) ,  GT  (1,D) 

5.1.1) ,  GV/  (1.1)) 

6.1.1) , TS  (1,1)) 

7.1.1)  , SHS  (1,1)) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( QPROG1 1,1*  2 , 1 ) , U <1 
( QPROG (1,1*  4 ♦ 1 > , V (1 
( QPROG ( 1,1.  6,  t ) , T ( 1 
(QPROGI 1,1.  8,1), SH  (1 
<QPROG< 1,1.10,1) , PHI ( 1 


1,1)) 
1,1)) 
1,1)) 
1,1)) 
t , 1 > > 


SPACE  FOR  GLOBAL  MODEL  DI AGNOSTICF I ELDS_ ( NOTNEEDED^ IN^COMPO ) 


COMMON 

DIMENSION 

EQUIVALENCE 


/QANDQT/  QSDIAG<72 
I Q5DI AG<  72 
(QSDIAG, IQSDIAG) 


15,46) 

,15,46) 


COMMON 


/QANDQT/  QUDI AG (72,9,  5,46) 


POLAR  MODEL  PROGNOSTIC  FIELOS 
COMMON  /QPOLES/  PP(2,2> 
COMMON  /QPOLES/  UP (9, 2, 2) 
COMMON  /QPOLES/  VP (9, 2,2) 
COMMON  /QPOLES/  TP(9,2,2> 
COMMON  /QPOLES/  SHP (9,2,2) 
COMMON  /QPOLES/  PHI PC 3, 2,2) 


VCNTRL  27B 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VQANDQT  2 
VQANDQT  3 
VQANDQT  4 
VQANDQT  5 
VQANDQT  6 
VQANDQT  7 
VQANDQT  S 
VQANDQT  9 
VQANDQT  10 
VQANDQT  1 1 
VQANDQT  12 
VQANDQT  13 
VQANDQT  14 
VQANDQT  IS 
VQANDQT  16 
VQANDQT  17 
VQANDQT  18 
VQANDQT  19 
VOANDQT  20 
VQANDQT  21 
VQANDQT  22 
VQANDQT  23 
VQANDQT  24 
VQANDQT  25 
VQANDQT  26 
VQANDQT  27 
VOANDQT  28 
VOANDQT  29 
VQANDQT  30 
VQANDQT  31 
VQANDQT  32 
VQANDQT  33 
VQANDQT  34 
VQANDQT  35 
VQANDQT  36 
VOANDQT  37 
VQANDQT  38 
VQANDQT  39 
VOANDQT  40 
VQANDQT  41 
VOANDQT  42 
VOANDQT  43 
VQANDQT  44 
VQANDQT  45 
VQANDQT  46 
VOANDQT  47 
VOANDQT  48 
VQANDQT  49 
VQANDQT  50 
VOANDQT  5 t 
VOANDQT  52 
VOANDQT  53 
VOANDQT  54 
VOANDQT  55 
VQPOLES  2 
VOPOLES  3 
VQPOLES  4 
VOPOLES  5 
VQPOLES  6 
VOPOLES  7 
VOPOLES  8 
VOPOLES  9 


50 

to 

CD 
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uv 
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00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 


00302 

00303 

00304 


00305 

00306 

00307 

00308 

00309 

00310 
003  1 1 
00312 


00313 

00314 

00315 

00316 
003  17 

00318 

00319 

00320 

STATEMENT 
— LABEL 

1 0 

10000 

50 


^^SmMoHomISvE/  PM»72A5rS  °UflIMG  HV0SC0VNAM1CS  STEP 
COMMON  /QMSAVE/  UM(72i9,5) 

COMMON  /QMSAVE/  VM(72.9.5> 

COMMON  /QMSAVE/  TM( 72 ,9.5) 

COMMON  /QMSAVE/  SHM (72,9.5) 

COMMON  /QMSAVE/  PHIM<72.9,5) 

COMMON  /QMSAVE/  PV(72,S,5) 

COMMON  /QMSAVE/  PIT (72,5) 

COMMON  /QMSAVE/  CONV < 72 , 9 , 5 ) , SD<72  9 5) 

COMMON  /QMSAVE/  TERMW( 72 ,9,5) , TERMT( 72 , 9,5) 


COMMON  /IMJM/ 


IMJM/  I MM 1 4 

IMT2 , 

IMNLAY,  IMNLAY 1 , 
IMD2M1 , 

NLAYT2,  NLAYT3 . 


I MM2,  I MM3. 
IMT4, 

IMNLAV2,  IMNLA Y3 , 


, ^ NLAVT2,  NLAVT3 , NLAYT4 , NLAYT5 

C OEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION  00.001  INPUT  IOQ 

£ ***  * CYBER  VECTOR  VERSION  00 


IMNLAY4.  IMNLAY5. 
NLAYT6 . NLAYT7 


VQPOLES  10 
VOMSAVE  2 
VQMSAVE  3 
VOMSAVE  4 
VQMSAVE  S 
VOMSAVE  6 
VQMSAVE  7 
VQMSAVE  8 
VOMSAVE  9 
VQMSAVE  10 
VQMSAVE  1 1 
VOMSAVE  12 
VQMSAVE  13 
VOMSAVE  14 
VI MUM  2 
V IMJM  3 
VI MUM  4 
VIMdM  5 
VIMtJM  6 
VRESTOM  15 
VBEGDEB  2 
VBEGDEB  3 
VBEGDEB  4 
VBEGDEB  5 


C ****  CYBER  VECTOR  VERSION  00.001  INPUT  IOQ  VBPrnPR  2 

C CYBER  VECTOR  VERSION  00  wSlSRIS  t 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssvbegdIb  i 

K = JC  j VRESTOM  17 

IF  ( M FO  o \ rn  in  VRESTOM  18 

c * - * IF  Go  TO  50  VRESTQM  19 

C POLE  POINT  VRESTOM  20 

PP»N.M>  = PMC1.KI  VRESTOM  2T 

DO  10  L = 1 MLAV  VRESTQM  22 

UP(L.N.M)  = uS.I.lIkV  ll 

VP(L.N,M>  = VMtt.L.K)  wSIfJSK  52 

TP'L.N.M)  = TMM.L.K)  51 

SHP(L.N.M)  = SHMO.L.K)  VRESTOM  I? 

10  ZlWnT*  vrII^m  28 

C . . . ” VRESTOM  23 

C NON-POLE  POINT  £51515!'!  2? 

50  CONTINUE  55 

B Ptt,N,J;IM)  s PM ( 1 , K ; I M ) VrIItQM  H 

Ult. I.N.JjIMNLAV)  = UM  ( 1 . t , K ; IMNLAY ) vEli^is 

V<t.t.N.J;IMNLAV)  = VM* t . 1 , K ; IMNLAY)  VRESTOM  3S 

T t.t.N.dflMNLAVl  = TMf t . 1 , K ; IMNLAY)  vSI1T2S5I 

SMM.t.N.J;  IMNLAY)  = SHM(  1 . t . K ; IMNLAY ) vSIIJoM38 

END  VRESTOM  39 

VRESTOM  40 


U(  1 , I ,N,d; IMNLAY) 
V ( 1 , 1 , N . U ; IMNLAY ) 
T ( 1 , 1 .N.d; IMNLAY) 
SHU  , 1 ,N,d; IMNLAY) 
RETURN 


UM< 1 . I ,K; IMNLAY) 
VMf 1 . 1 ,K  ; IMNLAY) 
TMf  1 . 1 . K ; IMNLAY) 
SHMf  1 . 1 ,H;  IMNLAY) 


LABEL  MAP 

DEFINED REFERENCES 


VARIABLE  MAP 
--NAME 


ADATE 

ADLDP 

ALBEDO 

APHEL 

ATIME 

BETA 

CALTOd 

CC 

CCO 

CCNTRL 


►BLOCK 

TYPE 

--CLASS-- 

CCNTRL 

CHAR  *8 

SIMPLE 

RDPARM 

REAL 

SIMPLE 

QANDQT 

REAL 

ARRAY 

RCNTRL 

REAL 

SIMPLE 

CCNTRL 

CHARTS 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

RCNTRL 

REAL 

SIMPLE 

CCNTRL 

CMAR*Q 

array 

CCNTRL 

CHARTS 

SIMPLE 

REAL 

UNKNOWN 

-REFERENCES 


A^ARGLIST.  C=CTRL  OF  DO.  I =DATA  INIT,  REREAD,  S=STORE , 
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CCSP06 

CCSP07 

CCSPOB 

CONI 

CONtDT 

C0N2 

C0N2DT 

C0N3 

C0N3DT 

CON4 

CON4DT 

CONS 

CCNV 

COSO 

cost 

CQSLON 

CP 

CPD2 

COS 

COU 

DAVSPY 

DEC 

DECMA* 

DIST 

DL  AT 

DLON 

DSIG 

DSIGINV 

DT 

D XP 

DXYP 

OYP 

ECCN 

EPS 

EPSFAC 
F IDT 
F2DT 

FCORLS 

FILTER 

GNU  1 

GNU  2 

GRAV 

GT 

GW 

H 1 DT 

H2DT 

HEAT  I 

HEATW 

IBLKSIZ 

IC 

ICO 

ICNTRL 


ICSP53 
101 ABAT 
IDPARM 
IDSP02 
I EFLUX 
IFUSION 
INFLUX 
1 1 CLOUD 
I JUMP 
IM 

IMD2 
IMD2M1 
IMD2P  t 
IMJM 


CCNTRL 

CCNTRL 

CCNTRL 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

OMSAVE 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

CCNTRL 

CCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 


CHAR *8 

CHARTS 

CHAR  *8 

REAL 

REAL 

REAL 

REAL 

real 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

real 

REAL 

REAL 

REAL 

CHARTS 

CHARTS 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


SIMPLE 

7 

20 

SIMPLE 

8 

21 

SIMPLE 

g 

22 

SIMPLE 

218 

SIMPLE 

219 

SIMPLE 

220 

SIMPLE 

221 

SIMPLE 

222 

SIMPLE 

223 

SIMPLE 

224 

SIMPLE 

225 

SIMPLE 

226 

ARRAY 

298 

SIMPLE 

159 

ARRAY 

227 

ARRAY 

228 

SIMPLE 

ISO 

SIMPLE 

229 

ARRAY 

12 

25 

ARRAY 

13 

26 

SIMPLE 

16  1 

SIMPLE 

162 

SIMPLE 

163 

SIMPLE 

164 

SIMPLE 

165 

SIMPLE 

166 

ARRAY 

250 

ARRAY 

252 

SIMPLE 

167 

ARRAY 

230 

ARRAY 

231 

array 

232 

SIMPLE 

168 

SIMPLE 

194 

SIMPLE 

195 

SIMPLE 

234 

SIMPLE 

235 

RDPARM 

ldparm 

RCNTRL 

RCNTRL 

RCNTRL 

QANDQT 

QANDQT 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

rCNTRL 

IMJM 

ICNTRL 


REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

array 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 
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ARRAY 

SIMPLE 

UNKNOWN 


SIMPLE 

UNKNOWN 
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SIMPLE 

UNKNOWN 

UNKNOWN 
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UNKNOWN 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 


233 
21  1 

169 

170 

171 

257 
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236 

237 
193 
192 

70 
95 
27 

27 
38 
49 
60 

71 
68 
92 

200 

201 

84 

85 
83 
88 

200 

28 

29 
300 

30 
300 


214 

270 

271 


96 

95 

96 

28 

39 

50 

61 

72 

29 

40 

51 

62 

73 

30 

41 

52 

63 

74 

31 

42 

S3 

64 

75 

32 

43 

54 

65 

76 

33 

44 

55 

66 

77 

34 

45 

56 

67 

78 

35 

57 

68 

36 

47 

58 

69 

37 

48 

59 

70 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

314  314 
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IMM1 

I MM2 

I MM3 

I MM 4 

IMM5 

IMNLAY 

IMNLAYt 

IMNLAY2 

IMNLAY3 

1MNLAY4 

IMNLAY5 

IMT2 

IMT4 

INDEX 

IOMEGA 

IPREACC 

IPRECON 

IQS 

IQSDIAG 

IOU 

IRADLW 
IRAOLWG 
IRADSW 
IRADSWG 
I ROD 

ITAPE 

UMAX 

ITMIN 

IUFLUX 

IVFLUX 

d 

JC 

iiE 

JIC 

JM 

dMD2 

dMT2 

dNP 

J04 

JOB 

JOB 

JP 

JSP 

K 

KLIALB 

KLIGW 

KLISST 

KS 

KSTEP 

KU 

L 

LC 

LCD 

LCNTRL 

LDIABAT 

LDP ARM 

LEFLUX 

LFUSION 

LHFLUX 

LI CLOUD 

LOGSR 

•LOMEGA 

LPREACC 

LPRECON 

LQS 

LQU 

LRADLW 


IMdM 

IMdM 

IMdM 

IMdM 

IMdM 

IMdM 

IMdM 

IMdM 

IMdM 

IMdM 

IMdM 

IMdM 

IMdM 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

QANDQT 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 
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INTEGER 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 
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UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

ARRAY 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 


300 

300 

300 

300 

300 

300 

300 

300 

300 

300 

300 

300 

300 

202 

91 

81 

82 

77 

89 

281 

7B 

94 

87 

93 

86 

203 


H 

«o 
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315  316  316  317  317  318 


79 

90 

80 

8 1 

82 

83 

84 

85 

86 

87 

88 

282 

91 

92 

93 

94 

LDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

IDPARM 

CCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IGNTRL 

CCNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

LCNTRL 

LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

ICNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


LOGICAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR-8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR-8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


SIMPLE 

212 

215 

UNKNOWN 

80 

UNKNOWN 

79 

UNKNOWN 

89 

UNKNOWN 

90 

SIMPLE 

1 

302 

ARRAY 

204 

303 

ARRAY 

205 

SIMPLE 

5 

18 

SIMPLE 

32 

SIMPLE 

33 

SIMPLE 

34 

SIMPLE 

35 

SIMPLE 

36 

SIMPLE 

37 

SIMPLE 

6 

19 

ARRAY 

206 

SIMPLE 

38 

SIMPLE 

303/S 

305 

SIMPLE 

39 

SIMPLE 

40 

SIMPLE 

4 1 

SIMPLE 

42 

SIMPLE 

207 

SIMPLE 

43 

SIMPLE 

306/C 

307 

ARRAY 

154 

155 

SIMPLE 

97 

154 

UNKNOWN 

97 

9B 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

ARRAY 

UNKNOWN 


108 
123 
211 
1 ! 5 
1 16 
1 14 
1 19 
44 
122 
t 1 2 
1 13 
108 
120 
109 
125 


109 

151 

212 

143 

144 
142 
1 47 

150 
140 
14  1 
1 10 
121 
1 22 
153 


303  314  315  316  317  318 


307 

308 

309 

310 

314 

315 

316 

317 

318 

307 

308 

308 

309 

309 

310 

310 

155 

99 

100 

10  1 

102 

103 

104 

105 

106 

107 

213 


1 1 1 
136 
123 


1 12 
124 


1 13 
125 


114 

137 


1 15 


1 16 


1 17 


118  119 
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LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

LVFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

M 

MATIN 

ICNTRL 

INTEGER 

INTEGER 

SIMPLE 

SIMPLE 

MATSNX 

ICNTRL 

integer 

SIMPLE 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

MJ 

IDPARM 

INTEGER 

ARRAY 

MLF 

ICNTRL 

INTEGER 

ARRAY 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

N 

NB 

ICNTRL 

INTEGER 

INTEGER 

SIMPLE 

SIMPLE 

ND 

ICNTRL 

INTEGER 

SIMPLE 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

NPOUT 

ICNTRL 

INTEGER 

SIMPLE 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

NHMS  1 

IDPARM 

INTEGER 

SIMPLE 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

NLA YP 1 
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INTEGER 

SIMPLE 

NLAYT2 

IMJM 
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INTEGER 

SIMPLE 
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SIMPLE 
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INTEGER 

SIMPLE 
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IDPARM 

INTEGER 

SIMPLE 

NYMDE 
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INTEGER 

SIMPLE 

NZINIT 
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INTEGER 

SIMPLE 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

P 

OANDQT 

REAL 
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PHI 

QANDQT 
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PHIM 
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P HIP 
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F! 
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REAL 

SIMPLE 

P1 180 
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REAL 

SIMPLE 
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RCNTRL 

REAL 

SIMPLE 

PXMEAN 
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REAL 
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QMSAVE 

REAL 
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PKSTD 

RDPARM 

REAL 

SIMPLE 

PKTOP 

RDPARM 

REAL 

SIMPLE 

PLEVS 
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REAL 
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PM 

QMSAVE 

REAL 
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PP 

QPOLES 
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PSMAK 
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REAL 
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P5MIN 
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50 
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64 
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75 
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74 
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DIMENSION 

P 

(72.99,1) 

VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VCNTRL  287 
VCNTRL  288 
VCNTRL  289 
VCNTRL  290 
VCNTRL  291 
VCNTRL  292 
VCNTRL  293 
VCNTRL  294 
VCNTRL  295 
VCNTRL  296 
VCNTRL  297 
VQANDQT  2 
VQANDQT  3 
VQANDQT  4 
VQANDQT  6 
VQANDQT  6 
VQANDQT  7 
VQANDQT  8 
VQANDQT  9 
VQANDQT  10 
VQANDQT  1 1 
VQANDQT  12 
VQANDQT  13 
VQANDQT  14 
VQANDQT  15 
VQANDQT  16 
VQANDQT  17 
VQANDQT  18 
VQANDQT  19 
VQANDQT  20 
VQANDQT  21 
VQANDQT  22 
VQANDQT  23 
VQANDQT  24 


o o 

*71  # 

oz 

9 £ 

70  s“ 

tO  -o 

c > 

> SI 

r*  pa 

2m 


R 


O 

-o 


Ln 


L 


00275 

00276 

00277 

00278 

00279 

00280 
00281 
00282 

00283 

00284 

00285 

00286 

00287 

00288 

00289 

00290 

00291 

00292 


00293 

00294 

00295 


DIMENSION  U { 72 ,9*11,1) 

DIMENSION  V <72.9.11,1) 

DIMENSION  T (72.9.11.?) 

DIMENSION  SH  (72,9,11.1) 

DIMENSION  PHI  (72,9,11,1) 

EQUIVALENCE  (QPROGd,  1,1,1). PHIS  (1.1)) 

EQUIVALENCE  ( QPROG ( 1 , 2,1,1>,SMTH  (1,1)) 

EQUIVALENCE  (QPROGC 1 , 3.1,1) ,ALBEDO< 1,1)) 

EQUIVALENCE  <QPROG( 1 , 4.1.U.GT  (1.1)) 

EQUIVALENCE  ( QPROG ( 1 , 5 , 1 , 1 ) , GW  (1.1)) 

EQUIVALENCE  ( QPROG  ( 1 , B.I.U.TS  (1,1)) 

EQUIVALENCE  (QPR0G( 1 , 7.1.1),SHS  <l,1>> 

EQUIVALENCE  (QPROG(1,  8,I,1).P  (1,1.1)) 

EQUIVALENCE  (QPROG(1,1.  2,1),U  (t,1,1,1>) 

EQUIVALENCE  (QPR0G(1,1.  4.1),V  (1.1,  1,1)) 

EQUIVALENCE  (QPROGMJ,  6,1),T  (1,1,  1,1)) 

EQUIVALENCE  (QPR0G<1,1.  8 , U , SH  (1.1,1,11) 

EQUIVALENCE  (QPROG( 1 , I , 1 0 , 1 ) , PH I ( 1 . 1 , 1 . 1) > 

SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COMPO > 

COMMON  /QANDQT / QSDIAG(72  . *5,46) 

BIT  BQSD I AG ( 32 , 72,15.46) 

EQUIVALENCE  < QSDI AG , BQSD I AG ) 


( QPROG ( 1 . 

1 

1 

t ) 

.PHI 

S 

( 

1 ) ) 

( QPROG ( 1 , 

2 

1 

1 ) 

, SMTH 

( 

1 > ) 

( QPROG { 1 . 

3 

1 

1 > 

, ALBEDO( 

in 

( QPROG ( 1 , 

4 

1 

1) 

• GT 

i ) ) 

( QPROG ( 1 . 

5 

1 

1 ) 

, GW 

i ) ) 

( QPROG ( 1 , 

6 

1 

. TS 

i ) > 

( QPROG ( 1 , 

7 

1 

1 ) 

,SHS 

t > > 

( QPROG ( 1 , 

8 

1 

1 > 

. P 

i , i 

( QPROG  < 1 , 

2 

1) 

,U 

( 1 

, t> 

< QPR0G1 1 , 

• * 

4 

1) 

, V 

( 1 

, i ) 

( QPROG ( 1 , 

• • 

6 

1) 

, T 

( 1 , 

, i ) 

( QPROGf  1 , 

■ t 

8 

1) 

, SH 

( 1 , 

, i ) 

( QPROG ( 1 , 

• 1 

10 

1 ) 

, PHI 

( 1 . 

, i » 

/QANDQT/  QUDI AG (72,9,  5,46) 


COMMON  /QANDQT/  QUDIAG<72,9,  5,46) 

C 
C 

c 

C DEBUG 
10000  CONTINUE 

C *+**  CYBER  VECTOR  VERSION  00.001  INPUT  IOQ 

C CYBER  VECTOR  VERSION  00 


VQANDOT  25 
VQANDQT  26 
VQANDQT  27 
VQANDQT  28 
VQANDQT  29 
VQANDQT  30 
VQANDQT  31 
VQANDQT  32 
VQANDQT  33 
VQANDQT  34 
VQANDQT  35 
VQANDQT  36 
VQANDQT  37 
VQANDQT  38 
VQANDQT  39 
VQANDQT  40 
VQANDQT  41 
VQANDQT  42 
VQANDQT  43 
VQANDQT  44 
VQANDQT  45 
VQANDQT  46 
VQANDQT  47 
VQANDQT  48 
VQANDQT  49 
VQANDQT  50 
VQANDQT  51 
VQANDQT  52 
VQANDQT  53 
VQANDQT  54 
VQANDQT  55 
VIOQ  188 
VIOQ  189 
VIOQ  190 
VBEGDEB  2 
VBEGDEB  3 
VBEGDEB  4 
VBEGDEB  5 


C$$S$S$$$3SS$$S$$$$$$$$$$$$$$$$$$$$$$$SS$$$$$$$$$S$$$$$$S$$$$$$$$$$$$$S$VBEGDEB 

IF( (KS.GT.9) .AND. <KU.GT.tO>)  VIOQ 

$READ  (LU,£ND=810,ERR=910)  <<  QPROG ( I ,K,1,J) ,1=1 .IM) t K - 1 ,9) , VIOQ 

g ((  QSDI AG ( I , K-9, d) ,1=1 ,IM) ,K=10, KS) , VIOQ 

£ (((  QPROG ( I , L , K , J ) , 1=1, !M),L=1, NLAY)  VIOQ 

£ , K - 2 , 1 1 ) , VIOQ 

5 ( < ( QUO I AG f ) «L.K*tO,J). 1 = 1 , I M ) , L = 1 , NLA V) VIOQ 

5 . K = 1 1 . KU  > v/rnn 


IF  < (KS.GT ,9)  .AND.  (KU.EQ . 10) > 

SREAD  ( LU , END =8 10,ERR=910)  ((  QPROG ( I , K , 1 , 
$ ( ( QSDIAGU  , K -9  , 

$ (((  QPROG < I , L , K , 

$ 


, K= 1 ,9)  , 
,K=  TO. KS) , 
, L~ 1 , NLA V ) 


00303 

00304 


I F < < KS . EQ . 9 ) . AND . < KU . GT . 1 0 ) > 

$RE AD  < LU , END-8 1 0 . ERR-9 1 0 ) ((  QPROG ( I , 

$ < ( < QPROG ( I , 

$ 

$ ( ( ( QUO  I AG ( I . 

$ 


. 1 , J)  ,1=1. 
, K , U > ,1  = 1 , 
» K = 2 , 
10,0) ,1 


, K = 1 1 . KU) 


IM) , K= 1 . 9 > , VIOQ 
IM) , L= 1 , NLAY ) VIOQ 
11).  VIOQ 
= 1 . IM)  , L = 1 , NLAY ) VIOQ 


QPROG  ( I , 1<  , 


( ( ( QPROG ( I,L.K,J), 1-1, IM),L=1, NLAY) 
, K = 2 , 1 1 ) 


IF{ (KS.EQ.9)  .AND.  (KU.EQ.  10)  ) 

SREAD  (LU, END=8 10 , ERR=910>  (<  QPROG ( I , K , 1 , J ) , I = 1 , 

S ( ( ( QPROG1 I ,L,K, J> , I- 1 , 

S i/-9 

RETURN 

4-*  ttt  * 4 ♦ ♦ ♦♦ 

END-OF-FILE  ENCOUNTERED  * + 

) CONTINUE 

RETURN  1 


I = 1 . IM)  , If-  1 , 9 ) , 
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00305 

00306 


++*+  READ  ERROR  ENCOUNTERED 

♦ ****’*.H-**,rifr  + + + *»«-***  + ,n.*.>.«..t.«,#**** 

CONTINUE 
RETURN  2 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 

10000  297 

810  303  298 

9 10  305  298 


VIOQ  230 


VARIABLE  MAP 
--NAME BLOCK- 


PREFERENCES 


ADATE 

ADLDP 

ALBEDO 

APHEL 

ATIME 

BETA 

BQSDIA6 

CALTOJ 

CC 

cco 

CCNTRL 


A^ARGLIST,  C=CTRL  OF  DO,  I=DATA  INIT,  R=READ , S=STORE , W=WRITE 


CCNTRL 

RDPARM 

QANDQT 

RCNTRL 

CCNTRL 

RCNTRL 

QANDQT 

RCNTRL 

CCNTRL 

CCNTRL 


CHAR  *8 

HALF 

HALF 

HALF 

CHAR'S 

HALF 

BIT 

HALF 

CHAR  + 8 

CHAR'8 

HALF 


SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 


CCSP06 

CCNTRL 

CHAR'S 

SIMPLE 

14 

s 

15 

26 

CCSP07 

CCNTRL 

CHAR  '8 

SIMPLE 

g 

27 

1’- 

CCSP08 

CCNTRL 

CHAR'S 

SIMPLE 

t 0 

28 

CONI 

RDPARM 

HALF 

SIMPLE 

23  1 

CONIDT 

RDPARM 

HALF 

SIMPLE 

232 

CON  2 

RDPARM 

HALF 

SIMPLE 

233 

A> 

C0N2DT 

RDPARM 

HALF 

SIMPLE 

234 

C0N3 

RDPARM 

HALF 

SIMPLE 

235 

; 

CON3DT 

RDPARM 

HALF 

SIMPLE 

236 

■ Sc 

CON4 

RDPARM 

HALF 

SIMPLE 

237 

if 

C0N4DT 

CONS 

RDPARM 

RDPARM 

HALF 

HALF 

SIMPLE 

SIMPLE 

238 

239 

< 

COSD 

RCNTRL 

HALF 

SIMPLE 

172 

3 . 

COSL 

RDPARM 

HALF 

ARRAY 

240 

H 

COSLON 

RDPARM 

HALF 

ARRAY 

241 

? \ 

CP 

RCNTRL 

HALF 

SIMPLE 

173 

* h 

CPD2 

RDPARM 

HALF 

SIMPLE 

242 

COS 

CCNTRL 

CHAR'S 

ARRAY 

13 

31 

\ t 

CQU 

CCNTRL 

CHAR'S 

ARRAY 

14 

32 

h 

DAYSPY 

DEC 

RCNTRL 

RCNTRL 

HALF 

HALF 

SIMPLE 

SIMPLE 

174 
1 7S 

] 

1 * DECMA  X 

DIST 

RCNTRL 

RCNTRL 

HALF 

HALF 

SIMPLE 

SIMPLE 

176 
1 77 

* ■ 

DLAT 

RCNTRL 

HALF 

SIMPLE 

178 

s 

2 . 

DLON 

RCNTRL 

HALF 

SIMPLE 

179 

* 

DSALB 

CCNTRL 

CHAR '8 

ARRAY 

18 

36 

DSGWT 

CCNTRL 

CHAR+8 

ARRAY 

19 

37 

DSI G 

RDPARM 

HALF 

ARRAY 

263 

^ i 

DSIGINV 

RDPARM 

HALF 

ARRAY 

265 

DSLWI 

CCNTRL 

CHAR *8 

ARRAY 

16 

34 

! i 

DSSST 

CCNTRL 

CHAR'S 

ARRAY 

1 7 

35 

• i 

□ STOP 

CCNTRL 

CHAR'S 

ARRAY 

15 

33 

i 

DT 

RCNTRL 

HALF 

SIMPLE 

180 

5 « 

i i 

DXP 

RDPARM 

HALF 

ARRAY 

243 

DXYP 

RDPARM 

HALF 

ARRAY 

244 

! 

DYP 

RDPARM 

HALF 

ARRAY 

245 

,| 

ECCN 

RCNTRL 

HALF 

SIMPLE 

181 

END 

HALF 

UNKNOWN 

298 

299 

S i 

EPS 

RCNTRL 

HALF 

SIMPLE 

207 

ill 

EPSFAC 

RCNTRL 

HALF 

SIMPLE 

208 
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RDPARM 

RDPARM 

RDPARM 

LDPARM 

RCNTRL 

RCNTRL 

RCNTRL 

QANDQT 

QANDQT 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 


ICNTRL 

ICMTRL 

ICNTRL 


HALF 

HALF 

HALF 

LOGICAL 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 


F 1 DT 

F2DT 

FCORLS 

FILTER 

GNU! 

GNU2 

GRAU 

GT 

GW 

HtDT 

H2DT 

HEATI 

HEATW 

I 

IBLKSIZ 

IC 

ICO 

ICNTRL 


ICSP53 

IDIABAT 

IDPARM 

IDSP02 

IEFLUX 

I FUSION 

IHFLUX 

I I CLOUD 

I JUMP 

IM 

IMD2 

IMD2P1 

INDEX 

IOMEGA 

IPREACC 

IPRECON 

IQS 

I QU 

IRAOLW 

IRADLWG 

IRADSW 

I RADSWG 

I ROD 

I TAPE 

ITMAX 

I TWIN 

IUFLUX 

IVFLUX 

d 

JG 

JE 

dIC 

dM 

0MD2 

JMT2 

dNP 

JD4 

JOB 

JOB 

dP 

JSP 

K 

KLIALB 

KLIGW 


ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

LDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


IDPARM 

IDPARM 

CCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

CCNTRL 

IDPARM 

ICNTRL 


ICNTRL 

ICNTRL 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHA  R * 8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHARTS 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


SIMPLE 

UNKNOWN 

UNKNOWN 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

STMPLE 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


247 

248 
246 
224 
182 

183 

184 

270 

271 

249 

250 
206 
205 
298 
301/C 

81 

108 

38 

38 
49 
60 
71 
82 
73 

105 

213 

214 

97 

98 
96 

101 

213 

39 

40 

41 

215 
104 

94 

95 
88 

102 

89 

107 

too 

106 

99 

216 
225 

93 

92 

102 

103 

1 

301 

217 


227 

283 

284 


298 

298 

298/C 

299 

299 

109 

108 

109 

39 

40 

4 1 

42 

43 

50 

51 

52 

53 

54 

6 1 

62 

63 

64 

65 

72 

73 

74 

75 

76 

83 

84 

85 

86 

87 

214 

215 

216 

217 

218 

299/C 

300 

300 

300/C 

301 

44 

45 

46 

47 

48 

55 

56 

57 

58 

59 

66 

67 

68 

69 

70 

77 

78 

79 

80 

81 

88 

89 

90 

91 

219 

220 

221 

222 

223 

92  93  94 

103 

104  tOS  106 


95  96 

1 07. 


97 


98  99  tOO  101 


228 

29B  298  298  298  299  299  299  300  300  300 


R 

o 

jO 

00 


218 

6 

43 

44 

45 

46 

47 

48 
7 

219 

49 
298 
300/C 

50 

51 


24 


25 


298  298 

300/C  301 


298/C  298/C  299 

301/C  301/C 


299  299/C  299/C  300 


300 


KLILWI 

ICNTRL 

INTEGER 

SIMPLE 

91 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

52 

KLITOP 

ICNTRL 

INTEGER 

SIMPLE 

90 

KS 

ICNTRL 

INTEGER 

SIMPLE 

53 

298 

299 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

220 

KU 

ICNTRL 

INTEGER 

SIMPLE 

54 

298 

298 

L 

INTEGER 

SIMPLE 

298 

298/C 

299/C 

LC 

LCNTRL 

LOGICAL 

ARRAY 

167 

168 

too 

LCNTRL 

LOGICAL 

SIMPLE 

1 10 

167 

168 

LCNTRL 

INTEGER 

UNKNOWN 

1 10 

1 1 1 

112 

121 

122 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

136 

164 

LDPARM 

INTEGER 

UNKNOWN 

224 

225 

226 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

128 

156 

LFUS ION 

LCNTRL 

LOGICAL 

UNKNOWN 

129 

157 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

127 

155 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

132 

160 

L0G8R 

ICNTRL 

INTEGER 

SIMPLE 

55 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

135 

163 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

125 

153 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

126 

154 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

121 

123 

124 

133 

134 

149 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

122 

135 

136 

LRADLW 

LCNTRL 

LOGICAL 

UNKNOWN 

138 

166 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

131 

159 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

137 

1 65 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

130 

158 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

124 

! 52 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

123 

151 

LU 

INTEGER 

SIMPLE 

1 

298 

299 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

133 

161 

LVFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

134 

162 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

56 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

57 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

58 

MJ 

IDPARM 

INTEGER 

ARRAY 

221 

MLF 

ICNTRL 

INTEGER 

ARRAY 

59 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

60 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

62 

MB 

ICNTRL 

INTEGER 

SIMPLE 

63 

ND 

ICNTRL 

INTEGER 

SIMPLE 

64 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

65 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

66 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

87 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

67 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

68 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

42 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

69 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

70 

NHMS 

ICNTRL 

INTEGEP 

SIMPLE 

71 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

73 

NHMS  1 

IDPARM 

INTEGER 

SIMPLE 

222 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

72 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

61 

NLAY 

ICNTRL 

INTEGER 

SIMPLE 

74 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

75 

NLA VP  1 

ICNTRL 

INTEGER 

SIMPLE 

76 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

86 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

77 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

78 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

80 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

82 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

84 

NYMD1 

IDPARM 

INTEGER 

SIMPLE 

223 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

83 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

85 

OMEGA 2 

RCNTRL 

HALF 

SIMPLE 

185 

P 

QANDQT 

HALF 

ARRAY 

274 

287 

PHI 

QANDQT 

HALF 

ARRAY 

279 

292 

300 

301 

299 

300 

300 

300/C 

300 
301 /C 

301 

1 13 

1 14 

1 15 

1 16 

117 

1 18 

1 19 

120 

125  126  127  128  129  130  131  132 

137  138  150 


300  30 1 


JO 

VO 
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PHXS 

PI 

PI  180 
P I 2 

PJMEAN 

PKSTD 

PK  TOP 

PLEVS 

PSMAX 

PSMIN 

PSTO 

PTOP 

PZERO 

QALT 

QANDQT 

QBEG 

QDA  V 

QEND 

QOUT 

QPHY 

QPROG 

QRSH 

QRSW 

QSDIAG 

QSHF 

QUDIAG 

RADE 

RC 

RCO 

RCNTRL 


RDPARM 


RGAS 

RIOQ 

RLAT 

RLATD 

ROCP 

ROCPDT 

ROCPP1 

RSDIST 

SDAY 

SEASON 

SGNP 

SH 

SHS 

SIG 

SIGE 

SIND 

SINL 

SINLON 

SMTH 

SN2FLG 

SOLS 

START 

T 

THSTD 

THSTD2 

TS 

TSTD 

U 

V 

VER 

WSAVE 

XLABEL 


B 

O 

<0 


QANDQT 

HALF 

ARRAY 

RCNTRL 

HALF 

SIMPLE 

RCNTRL 

HALF 

SIMPLE 

RCNTRL 

HALF 

SIMPLE 

RCNTRL 

HALF 

SIMPLE 

RDPARM 

HALF 

SIMPLE 

RDPARM 

HALF 

SIMPLE 

RCNTRL 

HALF 

ARRAY 

RCNTRL 

HALF 

SIMPLE 

RCNTRL 

HALF 

SIMPLE 

RCNTRL 

HALF 

SIMPLE 

RCNTRL 

HALF 

SIMPLE 

RCNTRL 

HALF 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

HALF 

UNKNOWN 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

QANDQT 

HALF 

ARRAY 

LCNTRL 

LOGICAL 

SIMPLE 

LCNTRL 

LOGICAL 

SIMPLE 

QANDQT 

HALF 

ARRAY 

LCNTRL 

LOGICAL 

SIMPLE 

QANDQT 

HALF 

ARRAY 

RCNTRL 

HALF 

SIMPLE 

RCNTRL 

HALF 

ARRAY 

RCNTRL 

HALF 

SIMPLE 

HALF 

UNKNOWN 

HALF 

UNKNOWN 

RCNTRL 

HALF 

SIMPLE 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

QANDQT 

QANDQT 

RDPARM 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

QANDQT 

LCNTRL 

RCNTRL 

LDPARM 

QANDQT 

RDPARM 

RDPARM 

QANDQT 

RCNTRL 

QANDQT 

QANDQT 

CCNTRL 

RDPARM 

CCNTRL 


HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

LOGICAL 

HALF 

LOGICAL 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

HALF 

CHAR+B 

HALF 

CHAR  *8 


SUBROUTINE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 


267 

186 

187 

188 
190 
25  V 
252 
204 

191 

192 
189 

193 
2 10 


280 


1 1 1 

139 

266 

293 

296 

f 12 

140 

1 13 

14  1 

1 14 

142 

1 15 

143 

1 16 

144 

266 

290 

120 

280 

291 

148 

28  1 
292 

282 

298/R 

283 

298/R 

284 

299/R 

285 

299/R 

286 

300/R 

287 

300/R 

2B8 
301 /R 

2B9 

301 

1 19 

147 

293 

295 

298/R 

299/R 

1 17 

145 

296 

298/  R 

300/  R 

194 

2 1 1 

212 

169 

2 1 1 

212 

169 

180 

191 

170 

181 

192 

171 

182 

193 

172 

183 

194 

173 

184 

195 

174 

185 

196 

175 

1BG 

197 

176 

187 

198 

177 

TBS 

199 

178 

189 

200 

179 

190 

201 

202 
230 
241 
25  2 
263 

203 
23  1 
242 
253 
264 

204 

232 

243 

254 

265 

205 

233 

244 

255 

20C 

234 

245 

256 

207 

-235 

246 

257 

208 

236 

247 

258 

209 

237 

248 

259 

210 

238 

249 

260 

239 

250 

261 

240 

251 

262 

195 

1 

253 

254 

196 

255 

256 

197 

198 

199 

257 
278 
273 
264 

200 
20  1 

258 

259 
268 
1 18 
202 
226 
277 

260 
261 
272 
203 

275 

276 
1 1 

262 

12 


291 

286 


281 

146 


229 

290 


285 

288 

289 

29 

30 


OOOOI 


00002 

00003 

00004 

00005 

00006 

00007 

00008 
00009 
0001  0 
0001  1 
000  1 2 
00013 

000  14 

00015 

00016 
000  17 
00018 

00019 

00020 
0002  1 
00022 

00023 

00024 

00025 

00026 


00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


SUBROUTINE  SAVEQM  (Nt  J) 


UTILITY  SUBROUTINE  TO  SAVE  4TH-ORDER  MODEL 


ARGUMENTS 

N 

J 


DESCRIPTION 

TIME  STEP  POINTER  (1  OR 
LATITUDE  GRID  BAND 


2) 


VALUES  Q Y BAND 


SAVED  ON  HISTORY  RECORD 


COMMON  /CCNTRL / CCO 
COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  A TIME 
COMMON  /CCNTRL/  dIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  X LABEL  (10) 
COMMON  /CCNTRL / COS  (30» 
COMMON  /CCNTRL/  CQU  (10) 


EQUIVALENCE 
CHARACTER'S 
CHARACTER  *8 
CHARACTERS 
CHARACTERS 
CHARACTER  S 
CHARACTER  *8 
CHARACTERS 
CHARACTERS 

characters 
CHARACTER  S 
CHARACTERS 
CHARACTER  *8 


(CCO  f GC( 1 ) > 

CCO,  CC ( 200 ) 

ADATE 

ATIME 

JIC 

JOB 

CCSP06 

CCSP07 

CCSP08 

VER 

XLABEL 

CQS 

CQU 


RIEGER  MODEL  PARAMETERS  SAVED  ON 


COMMON  /ICNTRL/  ICO 
COMMON  /ICNTRL/  IM 
COMMON  /ICNTRL/  IMD2 
COMMON  /ICNTRL/  IMD2P 1 
COMMON  /ICNTRL/  NDRSW 
COMMON  /ICNTRL/  JM 
COMMON  /ICNTRL/  JMD2 
COMMON  /ICNTRL/  JMT2 
COMMON  /ICNTRL/  JNP 
COMMON  /ICNTRL/  JO 4 
COMMON  /ICNTRL/  JOS 
COMMON  /ICNTRL/  JSP 
COMMON  /ICNTRL/  KLIALB 
COMMON  /ICNTRL/  KLIGW 
COMMON  /ICNTRL/  KLISST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KU 
COMMON  /ICNTRL/  LOGBR 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MATSUN 
COMMON  /ICNTRL/  MLF 
COMMON  /ICNTRL/  MROO 
COMMON  /ICNTRL/  NKRSH 
COMMON  /ICNTRL/  M5M 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  ND 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDAY 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 


( 12) 


HISTORY  RECORD 


VSAVEOM 

2 

VSAVEQM 

3 

VSAVEQM 

4 

VSAVEOM 

5 

VSAVEQM 

6 

VSAVEQM 

7 

VSAVEQM 

8 

VSAVEQM 

9 

VCNTRL 

2 

VCNTRL 

3 

VCNTRL 

4 

VCNTRL 

5 

VCNTRL 

6 

VCNTRL 

7 

VCNTRL 

8 

VCNTRL 

9 

VCNTRL 

10 

VCNTRL 

1 1 

VCNTRL 

1* 

VCNTRL 

13 

VCNTRL 

14 

VCNTRL 

15 

VCNTRL 

16 

VCNTRL 

17 

VCNTRL 

18 

VCNTRL 

19 

VCNTRL 

20 

VCNTRL 

2 1 

VCNTRL 

22 

VCNTRL 

23 

VCNTRL 

24 

VCNTPL 

25 

VCNTRL 

26 

VCNTRL 

27 

VCNTRL  28 
VCNTRL  29 
VCNTRL  30 
VCNTRL  31 
VCNTRL  32 
VCNTRL  33 
VCNTRL  34 
VCNTRL  35 
VCNTRL  36 
VCNTRL  37 
VCNTRL  38 
VCNTRL  39 
VCNTRL  40 
VCNTRL  41 
VCNTRL  42 
VCNTRL  43 
VCNTRL  44 
VCNTRL  45 
VCNTRL  46 
VCNTRL  47 
VCNTRL  48 
VCNTRL  49 
VCNTRL  50 
VCNTRL  5 I 
VCNTRL  52 
VCNTRL  53 
VCNTRL  54 
VCNTRL  55 
VCNTRL  56 
VCNTRL  57 
VCNTRL  58 
VCNTRL  59 
VCNTRL  60 
VCNTRL  61 
VCNTRL  62 
VCNTRL  63 
VCNTRL  64 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


_L  L1'  .AV 


Mi 


I 

00058 

COMMON  /ICNTRL/ 

NDSHF 

1 

00059 

COMMON  /ICNTRL/ 

NOT 

i 

00060 

COMMON  /ICNTRL/ 

NHMS 

1: 

0006  1 

COMMON  /ICNTRL/ 

NHMSE 

f 

i 00062 

COMMON  /ICNTRL/ 

NHMSO 

)•  ■ 

00063 

COMMON  /ICNTRL/ 

NLA  Y 

1 

00064 

COMMON  /ICNTRL/ 

NLA YM 1 

00065 

COMMON  /ICNTRL/ 

NLAYP1 

| 

00066 

COMMON  /ICNTRL/ 

NSDAY 

00067 

COMMON  /ICNTRL/ 

NSEQ 

00068 

COMMON  /IGNTRL/ 

ICSP53 

i 

00069 

COMMON  /ICNTRL/ 

NSTEP 

i 

00070 

COMMON  /ICNTRL/ 

IBLKSI2 

?■ 

0007  1 

COMMON  /ICNTRL/ 

WYMD 

00072 

COMMON  /ICNTRL/ 

NYMDE 

* 

00073 

COMMON  /ICNTRL/ 

NYMDO 

00074 

COMMON  /ICNTRL/ 

NZINIT 

00075 

COMMON  /ICNTRL/ 

NMLEV 

00076 

COMMON  /ICNTRL/ 

NDHOG 

00077 

COMMON  /ICNTRL/ 

IQS  < 30 ) 

00078 

f* 

COMMON  /ICNTRL/ 

IQU  MO) 

00079 

V 

EQUIVALENCE 

(ITMIN 

, I QS  < 

1 > ) 

\ 

00080 

EQUIVALENCE 

( ITMAX 

, I QS  1 

2)  ) 

\ 

00081 

EQUIVALENCE 

< IPREACC 

* I QS  ( 

3)  ) 

$ 

00032 

EQUIVALENCE 

< IPRECON 

. IQSt 

4)  ) 

00083 

EQUIVALENCE 

f IHFLUX 

. IQS( 

5)  > 

00084 

EQUIVALENCE 

(IEFLUX 

, IQS( 

6)  ) 

’x 

00085 

EQUIVALENCE 

< IFUSION 

♦ 1 QS  < 

7)  > 

■ * 

00086 

EQUIVALENCE 

( IRADSWG 

,IOS< 

8)  > 

■ if 

00087 

EQUIVALENCE 

(IRADLWG 

, IQS( 

9)  > 

;v 

00088 

EQUIVALENCE 

(IICLOUD 

. 1QS( 

10)  > 

00089 

EQUIVALENCE 

UUFLUX 

, IQSt 1 1 ) J 

* <■ 

% 

) 

00090 

c 

EQUIVALENCE 

< I VF  LUX 

, IOS( 12) ) 

00091 

EQUIVALENCE 

( IOMEGA 

. IQU( 

1 ) ) 

! i 

00092 

EQUIVALENCE 

( IDIABAT 

, IQU< 

2 ) ) 

rf 

000S3 

EQUIVALENCE 

( IRADSW 

, 1QU< 

3)  > 

h 

i : 

00094 

Q 

EQUIVALENCE 

< IRADLW 

, 1QU( 

4)  ) 

i 

00095 

EQUIVALENCE 

( ICO , IC( 1 ) ) 

i 

00096 

INTEGER 

ICO,  IC ( 200 ) 

c 

c 

c 


LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


00097 

COMMON 

/LCNTRL/ 

LCD 

0009S 

COMMON 

/LCNTRL / 

QALT 

00099 

COMMON 

/LCNTRL/ 

Q8EG 

00100 

COMMON 

/LCNTRL/ 

QDAY 

00101 

COMMON 

/LCNTRL/ 

QEND 

00102 

COMMON 

/LCNTRL/ 

QOUT 

00103 

COMMON 

/LCNTRL/ 

QPHY 

00104 

COMMON 

/LCNTRL/ 

QSHF 

00105 

COMMON 

/LCNTRL/ 

SN2FLG 

00106 

COMMON 

/LCNTRL/ 

QRSW 

00107 

COMMON 

/LCNTRL/ 

QRSH 

00108 

COMMON 

/LCNTRL/ 

LOS  t 30 ) 

00109 

n 

COMMON 

/LCNTRL/ 

LQU( 10) 

001  10 

U 

EQUIVALENCE 

(LTMIN 

, LOS  ( 

1)  > 

00111 

EQUIVALENCE 

(LTMAX 

, LQS ( 

2)  > 

00112 

EQUIVALENCE 

<LPREACC 

, LQS< 

3)  > 

001  13 

EQUIVALENCE 

< LPRECON 

, LQS ( 

4)  > 

001  14 

EQUIVALENCE 

{ LHFLUX 

,LQS( 

5)  > 

001  15 

EQUIVALENCE 

UEFLUX 

« LQS  < 

6)  ) 

00116 

EQUIVALENCE 

< LFU5I ON 

,LQS( 

7)  ) 

00117 

EQUIVALENCE 

< LRAOSV/G 

t LQS  ( 

8)  ) 

00118 

EQUIVALENCE 

( LRADLWG 

* LQS  i 

9)) 

001  19 

EQUIVALENCE 

ILICLOUD 

, LQS  ( 

10)  ) 

00120 

EQUIVALENCE 

ILUFLUX 

, LQS ( 1 1 ) ) 

00121 

EQUIVALENCE 

(LVFLUX 

,LOS< 12) ) 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 

VCNTRL 


65 

66 

67 

68 

69 

70 

7 1 

72 

73 

74 

75 

76 

77 

78 

79 

80 
8 t 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 
109 
1 10 
111 
112 
1 13 
1 14 
1 IS 
1 16 
1 17 
1 18 
1 19 
120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 
121 

132 

133 

134 

135 


CO 

§ 

pd 

JO 

K 

ro 


OR1G3NAL  PACad  Si 
OF  POOR  QUALITY 


00122 

C 

EQUIVALENCE 

(LOMEGA 

, LQU  ( 

1 1 ) 

00  123 

EQUIVALENCE 

(LDIABAT 

, LOU  ( 

2 > ) 

00124 

EQUIVALENCE 

(LRADSW 

♦ LQU  ( 

3)  ) 

00125 

EQUIVALENCE 

< LRADLW 

♦ LQU< 

4 ) } 

00126 

C 

LOGICAL 

QALT 

00127 

LOGICAL 

QBEG 

00128 

LOGICAL 

QDAY 

00129 

LOGICAL 

QEND 

00130 

LOGICAL 

QOUT 

00131 

LOGICAL 

QPHY 

00132 

LOGICAL 

QSHF 

00  133 

LOGICAL 

SN2PLG 

00  134 

LOGICAL 

QRSW 

00135 

LOGICAL 

QRSH 

00136 

c 

LOGICAL 

LQS 

00137 

LOGICAL 

LQU 

00138 

LOGICAL 

ltmin 

00139 

LOGICAL 

LTMAX 

00140 

LOGICAL 

LPREACC 

00141 

LOGICAL 

LPRECON 

00142 

LOGICAL 

LHFLUX 

00  143 

LOGICAL 

LEFLUX 

00144 

LOGICAL 

LFUSION 

00145 

LOGICAL 

LRADSWG 

00146 

LOGICAL 

LRADLWG 

00147 

LOGICAL 

LICLOUD 

00148 

LOGICAL 

LUFLUX 

00149 

LOGICAL 

LVFLUX 

00150 

c 

LOGICAL 

LOMEGA 

00151 

LOGICAL 

LDIABAT 

00152 

LOGICAL 

LRADSW 

00153 

LOGICAL 

LRADLW 

00154 

c 

EQUIVALENCE 

( LCO , LC< 1 1 > 

00155 

LOGICAL 

UCO,  LC<200) 

00  1 56 

00157 

00158 

00159 
00150 
00161 
00162 

00163 

00164 

00165 

00166 

00167 

00168 

00169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

00178 

00179 

00180 
00131 
00  182 
00  183 
00184 


C REAL  MODEL  PARAMETERS  SAVED  ON  STORYRECORD 

° COMMON  /RCNTRL/  RCO 

COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSD 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYSPY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  DECMAX 
COMMON  /RCNTRL/  DIST 
COMMON  /RCNTRL/  DLAT 
COMMON  /RCNTRL/  DLON 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNU  1 
COMMON  /RCNTRL/  GNU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  0MEGA2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI  2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PIMEAN 
COMMON  /RCNTRL/  PSMAX 
COMMON  /RCNTRL/  PSMIN 
COMMON  /RCNTRL/  PTOP 
COMMON  /RCNTRL/  RACE 
COMMON  /RCNTRL/  RGAS 
COMMON  /RCNTRL/  ROCP 
COMMON  /RCNTRL/  RSDIST 


VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  141 
VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  150 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  176 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  ISO 
VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  136 
VCNTRL  187 
VCNTRL  188 
VCNTRL  1 69 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 
VCNTRL  199 
VCNTRL  200 
VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 


o c 

p— * 

•a  2 
O 2 
O 

r 

9m 


CD 

% 


«o 


3: 


u> 


00  185 

COMMON 

/RCNTRL/ 

SDAY 

00  186 

COMMON 

/ RCNTRL / 

SEASON 

001B7 

COMMON 

/RCNTRL/ 

SIGE 

(25) 

00  188 

COMMON 

/RCNTRL/ 

SIND 

00189 

COMMON 

/RCNTRL/ 

SOLS 

00190 

COMMON 

/RCNTRL/ 

TSTD 

00191 

COMMON 

/RCNTRL/ 

PLEVS 

( 25  ) 

00192 

COMMON 

/RCNTRL/ 

HEATW 

00  193 

COMMON 

/RCNTRL/ 

HEAT  I 

00194 

COMMON 

/RCNTRL/ 

EPS 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

00196 

COMMON 

/RCNTRL/ 

CALTOJ 

00197 

COMMON 

/>?CNTRL/ 

PZERO 

00198 

C 

EQUIVALENCE 

( RCO , RC ( 1 ) ) 

00  199 

REAL 

RCO , RC ( 200 

00200 

00201 

00202 

00203 

00204 

00205 

00206 

00207 

00208 

00209 

00210 


00211 

00212 

00213 

00214 

00215 

00216 


00217 

00218 

00219 

00220 
00221 
00222 

00223 

00224 

00225 

00226 

00227 

00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00238 

00239 

00240 

00241 

00242 

00243 

00244 


C 

C 

C 


C 

c 

c 


c 


c 

c 

c 


INTEGER  MODEL  CONSTANTS 

COMMON  / I DPARM/  I JUMP  (46) 
COMMON  / I DPARM/  IDSP02 
COMMON  / I DPARM/  INDEX  (72) 
COMMON  /I DP ARM/  I ROD 
COMMON  /I DPARM/  JC  (46) 

COMMON  /I DPARM/  JE  (2) 

COMMON  / IDPARM/  UP  (2,2) 

COMMON  /IDPARM/  KSTEP 
COMMON  /IDPARM/  Md  (46) 

COMMON  /IDPARM/  NHMS1 
COMMON  /IDPARM/  NYMD1 

LOGICAL  MODEL  CONSTANTS 

COMMON  /LDPARM/  FILTER  (46) 
COMMON  /LDPARM/  I TAPE 
COMMON  /LDPARM/  START 

LOGICAL  FILTER 

LOGICAL  ITAPE 

LOGICAL  START 

REAL  MODEL  CONSTANTS 

’common  /RDPARM/  ADLDP 
COMMON  /RDPARM/  CONI 
COMMON  /RDPARM/  CON IDT 
COMMON  /RDPARM/  C0N2 
COMMON  /RDPARM/  C0N2DT 
COMMON  /RDPARM/  C0N3 
COMMON  /RDPARM/  C0N3DT 
COMMON  /RDPARM/  CON4 
COMMON  /RDPARM/  C0N4DT 
COMMON  /RDPARM/  C0N5 
COMMON  /RDFARM/  COSL  (46) 
COMMON  /RDPARM/  COSLON  (72) 
COMMON  /RDPARM/  CPD2 
COMMON  /RDPARM/  DXP  <46J 
COMMON  /RDPARM/  DXYP  (46) 
COMMON  /RDPARM/  DYP  (46) 
COMMON  /RDPARM/  FCORLS  (46) 
COMMON  /RDPARM/  F IDT 
COMMON  /RDPARM/  F2DT 
COMMON  /RDPARM/  H IDT 
COMMON  /RDPARM/  H2DT 
COMMON  /RDPARM/  PKSTD 
COMMON  /RDPARM/  PKTOP 
COMMON  /RDPARM/  RLAT  (46) 
COMMON  /RDPARM/  RLATD  (46) 
COMMON  /RDPARM/  ROCPDT 
COMMON  /RDPARM/  R0CPP1 
COMMON  /RDPARM/  SGNP  (2) 


VCNTRL  207 
VCNTRL  208 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  2S7 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 


&Q 
-n  aj 

§§ 

o| 

a 

•O  "Tf 

£ ® 
£T  R3 


3 


m 
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00245 

COMMON 

/RDPARM/ 

SI  NL 

(46  > 

00246 

COMMON 

/ RDPARM/ 

SINLON 

(72  > 

00247 

COMMON 

/RDPARM/ 

THSTD 

00248 

COMMON 

/RDPARM/ 

THSTD2 

00249 

COMMON 

/RDPARM/ 

WSAVE 

( 169) 

00250 

COMMON 

/RDPARM/ 

DSIG 

(9) 

00251 

COMMON 

/RDPARM/ 

SIG 

(9) 

00252 

C 

COMMON 

/RDPARM/ 

dsiginv 

(9) 

C 

C 

COMDECK  VOANDQT  RESOLUTION 

VALUES 

C 

= = = = = = :?  = = = 

= = = = ■=  — - 

C 

IM 

= 72 

c 

NLAY 

= 9 

C 

JM*  1 

= 46 

c 

NLAY*  1 1 

= 99 

c 

IM^NLAY* 1 1 

= 7128 

C 

JM/2* 1 

= 23 

c 


C GLOBAL  MOOEL  PROGNOSTIC  FIELDS  (NEEDED  IN  COMPO) 

c " ~ ~ ~ ~ ~ 


0 0 253 

COMMON 

/QANDQT/  QPR0G1 72 f 9, 1 1 , 

, 46  ) 

00254 

V 

DIMENSION 

PHIS  (71 28  f 1 > 

00255 

DIMENSION 

SMTH  (7128,23) 

00256 

DIMENSION 

ALBEDO  (7128,1) 

00257 

DIMENSION 

GT  (7128.1) 

00258 

DIMENSION 

GW  (7128,1) 

00259 

DIMENSION 

TS  (7128,1) 

00260 

DIMENSION 

SHS  (7128, 1) 

0026  1 

r 

DIMENSION 

P (72,99,1) 

00262 

u 

DIMENSION 

U (72.9,11,1) 

00263 

DIMENSION 

V (72,9. 11,1) 

00264 

DIMENSION 

T (72,9.11,1) 

00265 

DIMENSION 

SH  (72,9,11,1) 

00266 

c 

DIMENSION 

PHI  (72,9,11,1) 

00267 

EQUIVALENCE 

(QPROGM,  1,1,1)  .PHIS 

{ 1 , 

1 ) > 

00268 

EQUIVALENCE 

(.QPROG ( 1 , 2,1,1) .SMTH 

( 1 . 

1 ) ) 

00269 

EQUIVALENCE 

(0PROGI1,  3,1,1). ALSEDO ( 1 . 

1 ) > 

00270 

EQUIVALENCE 

(QPROGI 1 , 4,1,1), GT 

< 1 , 

1 ) ) 

00271 

EQUIVALENCE 

(QPR0G1 1 , 5,1,1), GW 

( 1 , 

1 ) ) 

00272 

EQUIVALENCE 

( QPROG ( 1 , 6,1,1). TS 

< 1 . 

1 ) ) 

00273 

EQUIVALENCE 

( QPROG ( 1 , 7,1,1) , SHS 

( 1 . 

1 ) ) 

00274 

EQUIVALENCE 

( QPROG ( 1 , B, 1 , 1 ) ,P 

f 1 , 

1,1)1 

00275 

N» 

EQUIVALENCE 

( QPROG ( 1,1,  2, 1) ,U  ( 1 , 

1 . 1 

, 1 ) ) 

00276 

EQUIVALENCE 

( QPROG ( 1,1,  4, 1) ,V  ( 1 . 

1 . 1 

f 1)  ) 

00277 

EQUIVALENCE 

( QPROG ( 1,1,  6, 1 > ,T  ( 1 , 

1 f 1 

, 1 ) ) 

00278 

EQUIVALENCE 

( QPROG ( 1.1,  8, 1) ,SH  < 1. 

1 , 1 

, 1 ) ) 

00279 

EQUIVALENCE 

( QPROG ( 1.1,10,1) , PH I ( 1 . 

1 . 1 

. 1 > ) 

c SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COMPO) 

c ~ ~ ~ ~ ~ 


00280 

00281 

00282 

00283 


00284 

00285 

00286 

00287 

00288 
002B9 


C 

C 

c 

c 


COMMON 

DIMENSION 

EQUIVALENCE 


/ QANDQT / OSD! AG ( 72  , 15.46) 

I OSD I AG (72  , 15,46) 

IQSDIAG, IOSDIAG) 


COMMON 


/QANDQT / QUD I AG (72,9,  5,46) 


POLAR  MODEL  PROGNOSTIC  FIELDS 
COMMON  /OPOLES/  PP(2,2> 
COMMON  / QPOLES/  UP (9,2,2) 
COMMON  /QPOLES/  VP (9,2, 2) 
COMMON  /QPOLES/  TP <9, 2 t 2) 
COMMON  /QPOLES/  5HP (9,2,2) 
COMMON  /QPOLES/  PHIP(9,2,2> 


VCNTRL 

278 

VCNTRL 

279 

VCNTRL 

280 

VCNTRL 

2S1 

VCNTRL 

282 

VCNTRL 

283 

VCNTRL 

284 

VCNTRL 

285 

VCNTRL 

286 

VOANDQT 

2 

VQANDQT 

3 

VQANDQT 

4 

VQANDQT 

5 

VQANDQT 

6 

VQANDQT 

7 

VQANDQT 

8 

VQANDQT 

9 

VQANDQT 

10 

VQANDQT 

1 1 

VQANDQT 

12 

VQANDQT 

13 

VQANDQT 

14 

VQANDQT 

15 

VQANDQT 

16 

VOANDQT 

17 

VQANDQT 

18 

VQANDQT 

19 

VQANDQT 

20 

VQANDQT 

21 

VOANDQT 

22 

VQANDQT 

23 

VQANDQT 

24 

VQANOQT 

25 

VQANDQT 

26 

VQANDQT 

27 

VQANDQT 

28 

VQANDQT 

29 

VOANDQT 

30 

VQANDQT 

31 

VQANDQT 

32 

VOANDQT 

23 

VQANDQT 

34 

VQANDQT 

35 

VQANOQT 

36 

VOANDQT 

37 

VQANDQT 

38 

VOANDQT 

39 

VQANDQT 

40 

VQANDQT 

41 

VQANDQT 

42 

VQANDQT 

43 

VQANDQT 

44 

VQANDQT 

45 

VQANDQT 

46 

VQANDQT 

47 

VOANDQT 

48 

VOANDQT 

49 

VOANDQT 

50 

VQANDQT 

5 1 

VQANDQT 

52 

VOANDQT 

53 

VQANDQT 

54 

VQANDQT 

55 

vqPOLES 

2 

VOPOLES 

3 

VQPOLES 

4 

VQPOLES 

5 

VQPOLES 

6 

VOPOLES 

7 

VQPOLES 

8 

VQPOLES 

9 

Ui 

% 

ts 

S3 


Ln 
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00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 


00301 


00302 

00303 

00304 


00305 

00306 

00307 

00308 

00309 

00310 
0031  1 
00312 


00313 
003  14 

00315 

00316 

00317 

00318 

00319 

00320 


C 

C 

C 


GLOBAL  BAND  MODULO  SAVE  AREAS  DURING  HYDRODYNAMICS  STEP 
COMMON  /QMSAVE/  PM  <72,5  ) 

COMMON  /QMSAVE/  UM<72»9,5) 

COMMON  /QMSAVE/  VM<72,9,5> 

COMMON  /QMSAVE/  TM<72,9,5) 

COMMON  /QMSAVE/  SHM(72,9,5) 

COMMON  /QMSAVE/  PHIM<72.9t5) 

COMMON  /QMSAVE/  PV172.9.5) 

COMMON  /QMSAVE/  PIT<72,5> 

COMMON  /QMSAVE/  CONV < 72 . 9 . 5 ) , 

COMMON  /QMSAVE/  TERMW < 7 2 . 9 » 5 > , 


SD  <72,9,5) 
TERMT1 72.9,5) 


COMMON  / I M JM/ 


I MM  1 . 
I M T 2 « 
IMNLAY 1 , 


S IMNLAY 

S IMD2M1 

S NLAYT2 

C » + * 

C DEBUG 
10000  CONTINUE 

C ♦***  CYBER  VECTOR  VERSION 

C CYBER  VECTOR  VERSION 


IMM2  . 
IMT4  t 
IMNLAY2, 


I MM3  . 


IMM4, 


IMM5  , 


IMNLAY3,  IMNLAY4  IMNLAY5, 


NLAYT3.  NLAYT4,  NLAYTS.  NLAYTG , NLAYT7 


00.001 
00 


INPUT  IOQ 


VQPOLES 

VOMSAVE 

V QMSAVE 

VOMSAVE 

VOMSAVE 

V0M5AVE 

VOMSAVE 

VOMSAVE 

VOMSAVE 

VOMSAVE 

VOMSAVE 

VOMSAVE 

VOMSAVE 

VOMSAVE 

VI  MOM 

VIMJM 

VIMJM 

VIMJM 

VIMJM 

VSAVEQM 

VBEGDEB 

VBEGDEB 

VBEGDEB 

VBEGDEB 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSVBEGDEB 


M = MJ(J) 
K = JC ( J ) 


C 

C 


IF  1M.E0.0)  GO  TO  50 


POLE  POINT 
PM  I 1 ,K) 


1 0 


PP  < N . M) 

DO  10  L=  1 „ NLA Y 
UMU.L.H)  * U P ( L ♦ N , M ) 
VM< 1 .L.K)  - VP<L,N.M> 
TMM.L.K)  * TP  f L ,N,M) 
SHM  < 1 , L , K ) = SHP(L,N,M) 

CONTINUE 
RETURN 


NON-POLE  POINT 
SO  CONTINUE 

PM  < 1 , K ; I M ) = P< 1 ,N, J 
UM  <1.1 ,K; IMNLAY)  « 
VM  ( 1 , 1 , K ; IMNLAY)  = 
TM  ( 1 t ! tK; IMNLAY)  = 
SHM  < 1 , 1 , K; 2 MNLA Y ) 
RETURN 

END 


IM) 
U(  1 , 
V(  1 , 
T ( 1 , 
SH  ( 1 , 


1 .N. J; IMNLAY) 
1 .N, J ; IMNLAY ) 
1 . N , d ; IMNLAY) 
1 ,N, J; IMNLAY) 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


10 

10000 
50 

VARIABLE  MAP 


31  1 
30  1 
313 


306 

304 


10 

2 

3 

4 

5 

6 

7 

8 
9 

to 
1 1 
12 

13 

14 
2 

3 

4 

5 

6 

15 
2 

3 

4 

5 

6 

17 

18 

19 

20 


VSAVEQM 
VSAVEQM 
VSAVEQM 
VSAVEQM 
VSAVEQM  21 
VSAVEQM  22 
VSAVEQM  23 
VSAVEQM  24 
VSAVEQM  25 
VSAVEOM  26 
VSAVEQM  27 
VSAVEOM  28 
VSAVEOM  29 
VSAVEQM  30 
VSAVEQM  31 
VSAVEQM  32 
VSAVEOM  33 
VSAVEQM  34 
VSAVEQM  35 
VSAVEQM  36 
VSAVEQM  37 
VSAVEOM  38 
VSAVEQM  39 


NAME 

— -BLOCK 

TYPE 

--CLASS 

---REFERENCES 

ADATE 

CCNTRL 

CHAR  *8 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

217 

ALBEDO 

QANDQT 

REAL 

ARRAY 

256 

269 

APHEL 

RCNTRL 

REAL 

SIMPLE 

157 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

153 

CALTOd 

RCNTRL 

REAL 

SIMPLE 

196 

CC 

CCNTRL 

CHAR » 8 

ARRAY 

14 

15 

CCO 

CCNTRL 

CHAR*8 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 
1 3 

3 

CCSP06 

CCNTRL 

CHARTS 

SIMPLE 

7 

20 

A=ARGLIST.  C=CTRL  OF  DO.  I^DATA  INIT.  R=READ,  S^STORE . VJ« WRITE 


15 

4 


10 


1 1 


12 
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CCSP07 
CCSP08 
CONI 
con  tor 

C0N2 

C0N20T 

C0N3 

C0N3DT 

C0N4 

C0N4DT 

C0N5 

CONV 

COSD 

COSL 

COSLON 

CP 

CPD2 

CQS 

CQU 

DAYSPY 

DEC 

DECMAX 

DIST 

DLAT 

DLON 

DSIG 

DSTGINV 

DT 

DXP 

D X VP 

D VP 

ECCN 

EPS 

EPSFAC 
F 1 DT 
F2DT 

F COR  L S 

FILTER 

GNUT 

GNU2 

GRAV 

GT 

GW 

H1DT 

H2DT 

HEAT  I 

HEATW 

IBLKSI2 

IC 

ICO 

ICNTRL 


ICSPS3 

IDIABAT 

10PARM 

IDSP02 

IEFLUX 

I FUSION 

IHFLUK 

IICLOUD 

I JUMP 

IM 

IMD2 
IMD2M1 
IMD2P1 
IMJM 
I MM  1 


CCNTRL 

CCNTRL 

rdparm 

rdparm 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

RDPARM 

QMSAVE 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

CCNTRL 

CCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

RCNTRL 

RDPARM 

RDPARM 

RDPARM 

RCNTRL  * 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

RDPARM 

LDPARM 

RCNTRL 

RCNTRL 

RCNTRL 

QANDQT 

QANDQT 

RDPARM 

ROPARM 

RCNTRL 

RCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

IMJM 

ICNTRL 

IMJM 


CHAR -8 

CHARTS 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

CHAR  *8 

CHAR'S 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWNS 


SIMPLE 

UNKNOWN 

UNKNOWN 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 


8 

9 

2ta 
2 19 
220 
221 
222 

223 

224 

225 

226 
298 

159 

227 

228 

160 
22S 

12 

13 

161 

162 

163 

164 

165 

166 
250 
252 

167 

230 

231 

232 

168 

194 

195 

234 

235 


2 1 
22 


25 

26 


233 
21  1 

169 

170 
17  1 

257 

258 

236 

237 
193 
192 

70 
95 
27 

27 
38 
49 
60 

71 
68 
92 

200 

201 

84 

85 
S3 
88 

200 

28 

29 
300 

30 
300 
300 


214 

270 
27  1 


96 

95 

28 

39 

50 

61 

72 

96 

29 

40 

51 

62 

73 

30 
4 1 
52 
63 
74 

3 1 
42 
53 
64 
75 

32 

43 

54 

65 

76 

33 

44 

55 

66 

77 

34 

45 

56 

67 

78 

35 

46 

57 

63 

36 

47 

58 

69 

37 

48 

59 

70 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

314  314 


CD 

5 
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IMM2 

IMJM 

INTEGER 

SIMPLE 

300 

I MM3 

IMJM 

INTEGER 

SIMPLE 

300 

IMM4 

IMJM 

INTEGER 

SIMPLE 

300 

I MM  5 

IMJM 

INTEGER 

SIMPLE 

300 

IMMLAY 

IMJM 

INTEGER 

SIMPLE 

300 

315 

IMNLAY 1 

IMJM 

INTEGER 

SIMPLE 

300 

IMNLAY2 

IMJM 

INTEGER 

SIMPLE 

300 

TMNLAY3 

IMJM 

INTEGER 

SIMPLE 

300 

IMNLAY4 

IMJM 

INTEGER 

SIMPLE 

300 

IMNLAYS 

IMJM 

INTEGER 

SIMPLE 

300 

IMT2 

IMJM 

INTEGER 

SIMPLE 

300 

IMT4 

IMJM 

INTEGER 

SIMPLE 

300 

INDEX 

IDPARW 

INTEGER 

ARRAY 

202 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

91 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

81 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

82 

IQS 

ICNTRL 

INTEGER 

ARRAY 

77 

79 

89 

SO 

IQSDIAG 

QANDQT 

INTEGER 

ARRAY 

28  1 

282 

IQU 

ICNTRL 

INTEGER 

ARRAY 

78 

91 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

94 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IRADSW 

ICNTRL 

INTEGER 

UNKNOWN 

93 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

203 

ITAPE 

LDPARM 

LOGICAL 

SIMPLE 

212 

215 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

80 

ITMIN 

ICNTRL 

INTEGER 

UNKNOWN 

73 

IUFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

89 

I VF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

90 

J 

INTEGER 

SIMPLE 

1 

302 

JC 

IDPARM 

INTEGER 

ARRAY 

204 

303 

JE 

IDPARM 

INTEGER 

ARRAY 

205 

JIC 

CCNTRL 

CHAR  *3 

SIMPLE 

5 

18 

JM 

ICNTRL 

INTEGER 

SIMPLE 

32 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

33 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

34 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

35 

JD4 

ICNTRL 

INTEGER 

SIMPLE 

36 

JOS 

ICNTRL 

INTEGER 

SIMPLE 

37 

JOB 

CCNTRL 

CHAR  *8 

SIMPLE 

6 

19 
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LCNTRL 
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1 19 
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ICNTRL 
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SIMPLE 

44 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 
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LCNTRL 
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UNKNOWN 

113 
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LQS 

LCNTRL 
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INTEGER 
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SIMPLE 
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INTEGER 
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INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 
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SIMPLE 
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INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 

61 

INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 

63 

INTEGER 

SIMPLE 

64 

INTEGER 

SIMPLE 

65 

INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 
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INTEGER 

SIMPLE 
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SIMPLE 
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INTEGER 

SIMPLE 
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SIMPLE 
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SIMPLE 
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SIMPLE 
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REAL 

SHM 

OMSAVE 

REAL 

SHP 

QPOLES 
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UTILITY  SUBROUTINE  TO  SCALE  4TH-0RDER  MODEL  VALUES 


ARGUMENTS 

N 

d 
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DESCRIPTION 

TIME  STEP  POINTS (1  OR  2) 

LATITUDE  GRID  BAUD 

SCALING  EXPONENT  M TO  SCALE ♦ 


TO  UNSCALE  > 


CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

sscsssscrrsrssssssssssssssssstffsssss'szsssffssssasssfis 

COMMON  /CCNTRL/  CCO 
COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  dIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  <10> 

COMMON  /CCNTRL/  CQS  (30) 

COMMON  /CCNTRL/  CQU  (10) 


EQUIVALENCE 
CHARACTERS 
CHARACTERS 
CHAR ACTER  *8 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTERS 
CHARACTER  S 
CHARACTERS 
CHARACTERS 
CHARACTERS 


( CCO  v CC  < 1 ) > 

CCO,  CC  < 200 ) 

ADATE 

ATI  ME 

JIC 

JOB 

CCSP06 

CCSP07 

CCSPOS 

VER 

XLABEL 

CQS 

CQU 


INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 


COMMON  /ICNTRL/  ICO 
COMMON  /ICNTRL/  IM 
COMMON  /ICNTRL/  IMD2 
COMMON  /ICNTRL/  IMD2P1 
COMMON  /ICNTRL/  NDRSW 
COMMON  /ICNTRL/  JM 
COMMON  /ICNTRL/  JMD2 
COMMON  /ICNTRL/  dMT2 
COMMON  /ICNTRL/  JNP 
COMMON  /ICNTRL/  d04 
COMMON  /ICNTRL/  J08 
COMMON  /ICNTRL/  JSP 
COMMON  /ICNTRL/  KLIALB 
COMMON  /ICNTRL/  KLIGW 
COMMON  /ICNTRL/  KLISST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KU 
COMMON  /ICNTRL/  L0G8R 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MATSUN 
COMMON  /ICNTRL/  MLF  M2) 
COMMON  /ICNTRL/  MROD 
COMMON  /ICNTRL/  NKRSH 
COMMON  /ICNTRL/  MSM 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  ND 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDAY 
COMMON  /ICNTRL/  NDOUT 
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00057 

COMMON  / 1CNTRL/ 

NDPHY 

00058 

COMMON  / ICNTRL/ 

NDSHF 

00059 

COMMON  /ICNTRL/ 

NDT 

00060 

COMMON  /ICNTRL/ 

NHMS 

00061 

COMMON  /ICNTRL/ 

NHMSE 

00062 

COMMON  /ICNTRL/ 

NHMSO 

00063 

COMMON  /ICNTRL/ 

NLA  Y 

00064 

COMMON  /ICNTRL/ 

NLAYM1 

00065 

COMMON  /ICNTRL/ 

NLA VP  1 

00066 

COMMON  /ICNTRL/ 

MSDAY 

000677 

COMMON  /ICNTRL/ 

N5EQ 

00068 

COMMON  /ICNTRL/ 

ICSPS3 

00069 

COMMON  /ICNTRL/ 

NSTEP 

00070 

COMMON  /ICNTRL/ 

IBLKSIZ  , 

00071 

COMMON  /ICNTRL/ 

NYMD 

00072 

COMMON  /ICNTRL/ 

NYMDE 

00073 

COMMON  /ICNTRL/ 

NYMOO 

00074 

COMMON  /ICNTRL/ 

NZINIT 

00075 

COMMON  /ICNTRL/ 

NMLEV 

00076 

COMMON  /ICNTRL/ 

NDHOG 

00077 

COMMON  /ICNTRL/ 

IQS  (30) 

00078 

Q 

COMMON  /ICNTRL/ 

IOU  (10) 

00079 

EQUIVALENCE 

( I TWIN 

, IOS( 

i ) ) 

00080 

EQUIVALENCE 

( ITMAX 

. IOS( 

2)  ) 

00081 

EQUIVALENCE 

r IPREACC 

, IQS( 

3 > ) 

00082 

EQUIVALENCE 

( IPRECON 

, IQS( 

4)  ) 

00083 

EQUIVALENCE 

( I HFLUX 

, IOS< 

5)  ) 

C00B4 

EQUIVALENCE 

< 1EFLUX 

. IQS( 

6)  ) 

00085 

EQUIVALENCE 

( I FUSION 

, IQS( 

7)  } 

00088 

EQUIVALENCE 

( IRADSWG 

t I QS  < 

8)  ) 

00087 

EQUIVALENCE 

( IRADLY/G 

. I QS  f 

9)  ) 

0008B 

equivalence 

(IICLOUD 

. IQS< 10) ) 

00089 

EQUIVALENCE 

( iUFLUX 

. IOS( 

II)) 

00090 

Q 

EQUIVALENCE 

{ I VF  LUX 

. IQS ( 12) > 

0009  1 

equivalence 

< IOMEGA 

. IQU( 

1 > > 

00092 

EQUIVALENCE 

( IDI ABAT 

, IOU( 

2 > > 

00093 

EQUIVALENCE 

( IRADSW 

. IQU( 

3 ) ) 

00094 

Q 

EQUIVALENCE 

( IRADLW 

. lour 

4)  ) 

00095 

EQUIVALENCE 

(ICO.ICf 1 ) > 

00096 

INTEGER 

ICO,  I C ( 200 ) 

Q parameters  saved  on  history  record 
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COMMON 
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LCO 

00098 

COMMON 

/ LCNTRL / 

OALT 

00099 

COMMON 

/LCNTRL/ 

OBEG 

00100 

COMMON 

/LCNTRL/ 

QDAY 

00101 

COMMON 

/LCNTRL/ 

OEND 

00102 

COMMON 

/LCNTRL/ 

OOUT 

00103 

COMMON 

/LCNTRL/ 

QPHY 

00104 

COMMON 

/LCNTRL/ 

QSHF 

00  1 05 

COMMON 

/LCNTRL/ 

SN2FLG 

00  106 

COMMON 

/LCNTRL/ 

QRSW 

00  107 

C0MPJ10N 

/LCNTRL/ 

QRSH 

00  108 

COMMON 

/LCNTRL/ 

LQS{ 30 ) 

00  1 09 

c 

COMMON 

/LCNTRL/ 

LOU  f 10) 

00110 

EQUIVALENCE 

( LTMIN 

. LOS  ( 

1 ) ) 

00111 

EQUIVALENCE 

(LTMAX 

, L05  { 

2)  ) 

00112 

EQUIVALENCE 

(LPREACC 

. LQS< 

3)  ) 

00113 

EQUIVALENCE 

(LPRECON 

. LQS  ( 

4 ) ) 

00114 

EQUIVALENCE 

( LHFLUX 

, LQS ( 

5)  ) 

00115 

EQUIVALENCE 

(LEFLUX 

, LOS ( 

6 > > 

00  116 

EQUIVALENCE 

(LFUSION 

. LQS  ( 

7 > ) 

00117 

EQUIVALENCE 

(LRADSWG 

t LQS  f 

8)  ) 

00  1 18 

EQUIVALENCE 

(LRACLV/G 

. L Q S ( 

9)  ) 

00119 

EQUIVALENCE 

(LICLOUD 

• LOS ( 10) > 

00120 

EQUIVALENCE 

< LUFLUX 

* LQS ( 11)) 

VCNTRL 

64 

VCNTRL 

65 

VCNTRL 

66 

VCNTRL 

67 

VCNTRL 

68 

VCNTRL 

69 

VCNTRL 

70 

VCNTRL 

71 

VCNTRL 

72 

VCNTRL 

73 

VCNTRL 

74 

VCNTRL 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRL 

79 

VCNTRL 

80 

VCNTRL 

B 1 

VCNTRL 

82 

VCNTRL 

83 

VCNTRL 

84 

VCNTRL 

85 

VCNTRL 

86 

VCNTRL 

87 

VCNTRL 

88 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

91 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

98 

VCNTRL 

99 

VCNTRL 

ioo 

VCNTRL 

101 

VCNTRL 

102 

VCNTRL 

103 

VCNTRL 

104 

VCNTRL 

105 

VCNTRL 

106 

VCNTRL 

107 

VCNTRL 

108 

VCNTRL 

109 

VCNTRL 

1 10 

VCNTRL 

1 t 1 

VCNTRL 

112 

VCNTRL 

113 

VCNTRL 

1 14 

VCNTRL 

1 15 

VCNTRL 

1 16 

VCNTRL 

117 

VCNTRL 

1 18 

VCNTRL 

1 19 

VCNTRL 

120 

VCNTRL 

121 

VCNTRL 

122 

VCNTRL 

123 

VCNTRL 

124 

VCNTRL 

125 

VCNTRL 

126 

VCNTRL 

127 

VCNTRL 

128 

VCNTRL 

129 

VCNTRL  130 
VCNTRL  131 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 


CO 

O 


£ 

PI 

JO 


to 


i 

■i 

fif‘ 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


00  121 

EQUIVALENCE 

(LVFLUX  .LQSM2M 

VCNTRL 

135 

C 

VCNTRL 

136 

00122 

equivalence 

(LOMEGA  , LQU ( 11) 

VCNTRL 

137 

00  1 23 

equivalence 

(LDIABAT  , LQU < 2>> 

VCNTRL 

138 

00124 

EQUIVALENCE 

(LRADSW  , LQU ( 3)) 

VCNTRL 

139 

00125 

EQUIVALENCE 

(LRADLW  , LQU  < 4 ) > 

VCNTRL 

140 

C 

VCNTRL 

14  1 

00  126 

LOGICAL 

QALT 

VCNTRL 

142 

00  127 

LOGICAL 

OBEG 

VCNTRL 

143 

00  128 

LOGICAL 

QDAY 

VCNTRL 

144 

00129 

LOGICAL 

QEND 

VCNTRL 

145 

00  130 

LOGICAL 

OOUT 

VCNTRL 

146 

00  121 

LOGICAL 

QPHV 

VCNTRL 

147 

00132 

LOGICAL 

QSHF 

VCNTRL 

148 

00  1 33 

LOGICAL 

SN2PLG 

VCNTRL 

149 

00134 

LOGICAL 

QRSW 

VCNTRL 

150 

00135 

LOGICAL 

QRSH 

VCNTRL 

151 

c 

VCNTRL 

152 

00136 

LOGICAL 

LOS 

VCNTRL 

153 

00137 

LOGICAL 

LQU 

VCNTRL 

154 

00  1 38 

LOGICAL 

LTMIN 

VCNTRL 

155 

00  139 

LOGICAL 

LTMAX 

VCNTRL 

156 

GO  1 40 

LOGICAL 

LPREACC 

VCNTRL 

157 

00141 

LOGICAL 

LPRECON 

VCNTRL 

158 

00  142 

LOGICAL 

LHFLUX 

VCNTRL 

159 

00  143 

LOGICAL 

LEFLUX 

VCNTRL 

160 

00144 

LOGICAL 

LFUSION 

VCNTRL 

161 

00145 

LOGICAL 

LRADSWG 

VCNTRL 

162 

00  146 

LOGICAL 

LRADLWQ 

VCNTRL 

162 

00147 

LOGICAL 

LI  CLOUD 

VCNTRL 

164 

00  148 

logical 

LUFLUX 

VCNTRL 

165 

00  149 

LOGICAL 

LVFLUX 

VCNTRL 

166 

c 

VCNTRL 

167 

00150 

LOGICAL 

LOMEGA 

VCNTRL 

168 

00151 

LOGICAL 

LD I ABA  T 

VCNTRL 

169 

00152 

LOGICAL 

LRADSW 

VCNTRL 

170 

00153 

LOGICAL 

LRADLW 

VCNTRL 

171 

c 

VCNTRL 

172 

00154 

EQUIVALENCE 

< LCO  , LC  < 1 ) > 

VCNTRL 

1 73 

00  155 

LOGICAL 

LCO , LC ( 200  > 

VCNTRL 

174 

c 

VCNTRL 

175 

c 

REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

176 

c 

= s = ?:c-=  = = = ass  = ssss:  = : 

VCNTRL 

177 

00156 

COMMON  /RCNTRL / 

RCO 

VCNTRL 

178 

00157 

COMMON  /RCNTRL/ 

APHEL 

VCNTRL 

179 

00158 

COMMON  /RCNTRL/ 

BETA 

VCNTRL 

180 

00159 

COMMON  /RCNTRL/ 

COSD 

VCNTRL 

18  1 

00160 

COMMON  /RCNTRL/ 

CP 

VCNTRL 

182 

00161 

COMP/JON  /RCNTRL/ 

DAYSPY 

VCNTRL 

183 

00162 

COMMON  /RCNTRL/ 

DEC 

VCNTRL 

184 

00163 

COMMON  /RCNTRL/ 

DECMAX 

VCNTRL 

185 

00164 

COMMON  /RCNTRL/ 

DIST 

VCNTRL 

186 

00165 

COMMON  /RCNTRL/ 

DL  AT 

VCNTRL 

187 

00166 

COMMON  /RCNTRL/ 

DLON 

VCNTRL 

188 

00167 

COMMON  /RCNTRL/ 

DT 

VCNTRL 

189 

00  168 

COMMON  /RCNTRL/ 

ECCN 

VCNTRL 

190 

00169 

COMMON  /RCNTRL/ 

GNU  1 

VCNTRL 

191 

00170 

COMMON  /RCNTRL/ 

GNU2 

VCNTRL 

192 

00171 

COMMON  /RCNTRL/ 

GRAV 

VCNTRL 

193 

00172 

COMMON  /RCNTRL/ 

OMEGA 2 

VCNTRL 

194 

00173 

COMMON  /RCNTRL/ 

PI 

VCNTRL 

195 

00  174 

COMMON  /RCNTRL/ 

PI  180 

VCNTRL 

196 

00175 

COMMON  /RCNTRL/ 

P I 2 

VCNTRL 

1 97 

00  1 76 

COMMON  /RCNTRL/ 

PSTD 

VCNTRL 

198 

00177 

COMMON  /RCNTRL/ 

PIMEAN 

VCNTRL 

1 99 

00178 

COMMON  /RCNTRL/ 

PSMAX 

VCNTRL 

200 

00179 

COMMON  /RCNTRL/ 

PSMIN 

VCNTRL 

20  1 

00180 

COMMON  /RCNTRL/ 

PTOP 

VCNTRL 

202 

00181 

COMMON  /RCNTRL/ 

RADE 

VCNTRL 

203 

00182 

COMMON  /RCNTRL/ 

RGAS 

VCNTRL 

204 

00183 

COMMON  /RCNTRL/ 

ROCP 

VCNTRL 

205 

cn 

o 


gs 

C =3 

<o 


03 


ORIGINAL  PAGE 
OF  POOR  QUALITY 


00184 

C0MW0N  / RCNTRL / 

RSDIST 

VCNTRL 

206 

00185 

COMMON  /RCNTRL/ 

SDAY 

VCNTRL 

207 

00186 

COMMON  /RCNTRL/ 

SEASON 

VCNTRL 

208 

00187 

COMMON  /RCNTRL/ 

SIGE 

(25) 

VCNTRL 

209 

00188 

COMMON  /RCNTRL/ 

SIND 

VCNTRL 

210 

00189 

COMMON  /RCNTRL/ 

SOLS 

VCNTRL 

2 1 1 

00190 

COMMON  /RCNTRL/ 

TSTD 

VCNTRL 

2 12 

00191 

COMMON  /RCNTRL/ 

PLEVS 

<25  > 

VCNTRL 

213 

00  192 

COMMON  /RCNTRL/ 

HEATW 

VCNTRL 

214 

00193 

COMMON  /RCNTRL/ 

HE  AT  I 

VCNTRL 

215 

00194 

COMMON  /RCNTRL/ 

EPS 

VCNTRL 

216 

00195 

COMMON  /RCNTRL/ 

EPSPAC 

VCNTRL 

217 

00196 

COMMON  /RCNTRL/ 

CALTOd 

VCNTRL 

218 

00197 

COMMON  /RCNTRL/ 

PZERO 

VCNTRL 

219 

C 

VCNTRL 

220 

001  93 

EQUIVALENCE 

{ RCO  t RC 

( 1 ) > 

VCNTRL 

221 

00199 

REAL 

RCO , RC  t 200 ) 

VCNTRL 

222 

C 

VCNTRL 

223 

c 

INTEGER  MODEL  CONSTANTS 

VCNTRL 

224 

c 

2 = = 

VCNTRL 

225 

00200 

COMMON  /I DP ARM/ 

I JUMP 

<4G> 

VCNTRL 

226 

0020  1 

COMMON  / IDPARM/ 

IDSP02 

VCNTRL 

227 

00202 

COMMON  /IDPARM/ 

INDEX 

(72) 

VCNTRL 

228 

00203 

COMMON  /IDPARM/ 

I ROD 

VCNTRL 

229 

00204 

COMMON  /IDPARM/ 

JC 

( 46) 

VCNTRL 

230 

00205 

COMMON  /IDPARM/ 

JE 

(2) 

VCNTRL 

231 

00206 

COMMON  /IDPARM/ 

dP 

(2,2) 

VCNTRL 

232 

00207 

COMMON  /IDPARM/ 

KSTEP 

VCNTRL 

233 

00208 

COMMON  /IDPARM/ 

Md 

(46) 

VCNTRL 

234 

00209 

COMMON  /IDPARM/ 

NHMS1 

VCNTRL 

235 

00210 

COMMON  /IDPARM/ 

NYMD1 

VCNTRL 

236 

c 

VCNTRL 

237 

c 

LOGICAL  MODEL  CONSTANTS 

VCNTRL 

233 

c 

VCNTRL 

239 

00211 

COMMON  /LDPARM/ 

FILTER 

(46) 

VCNTRL 

240 

00212 

COMMON  /LDPARM/ 

ITAPE 

VCNTRL 

241 

00213 

COMMON  /LDPARM/ 

START 

VCNTRL 

242 

c 

VCNTRL 

243 

00214 

LOGICAL 

FILTER 

VCNTRL 

244 

00215 

LOGICAL 

ITAPE 

VCNTRL 

245 

00216 

LOGICAL 

START 

VCNTRL 

246 

c 

VCNTRL 

247 

c 

REAL  MODEL  CONSTANTS 

VCNTRL 

248 

c 

VCNTRL 

249 

00217 

COMMON  /RDPARM/ 

ADLDP 

VCNTRL 

250 

00218 

COMMON  /RDPARM/ 

CONI 

VCNTRL 

251 

00219 

COMMON  /RDPARM/ 

C0N1DT 

VCNTRL 

252 

00220 

COMMON  /RDPARM/ 

C0N2 

VCNTRL 

253 

00221 

COMMON  /RDPARM/ 

C0N2DT 

VCNTRL 

254 

00222 

COMMON  /RDPARM/ 

CON3 

VCNTRL 

255 

00223 

COMMON  /RDPARM/ 

C0N3DT 

VCNTRL 

256 

00224 

COMMON  /RDPARM/ 

C0N4 

VCNTRL 

257 

00225 

COMMON  /RDPARM/ 

C0N4DT 

VCNTRL 

258 

00226 

COMMON  /RDPARM/ 

CONS 

VCNTRL 

259 

00227 

COMMON  /RDPARM/ 

COSL 

(46) 

VCNTRL 

260 

00228 

COMMON  /RDPARM/ 

COSLON 

(72) 

VCNTRL 

261 

00229 

COMMON  /RDPARM/ 

CPD2 

VCNTRL 

262 

00230 

COMMON  /RDPARM/ 

DXP 

(46) 

VCNTRL 

263 

00231 

COMMON  /RDPARM/ 

DXYP 

(46) 

VCNTRL 

264 

00232 

COMMON  /RDPARM/ 

DYP 

(46) 

VCNTRL 

265 

00233 

COMMON  /RDPARM/ 

FCORLS 

(46) 

VCNTRL 

266 

00234 

COMMON  /RDPARM/ 

F IDT 

VCNTRL 

267 

00235 

COMMON  /RDPARM/ 

F2DT 

VCNTRL 

268 

0 0236 

COMMON  /RDPARM/ 

H1DT 

VCNTRL 

269 

00237 

COMMON  /RDPARM/ 

H2DT 

VCNTRL 

270 

00238 

COMMON  /RDPARM/ 

PKSTD 

VCNTRL 

271 

00239 

COMMON  /RDPARM/ 

PH  TOP 

VCNTRL 

272 

00240 

COMMON  /RDPARM/ 

RLAT 

(46) 

VCNTRL 

273 

00241 

COMMON  /RDPARM/ 

RLATD 

(46) 

VCNTRL 

274 

00242 

COMMON  /RDPARM/ 

ROCPDT 

VCNTRL 

275 

00243 

COMMON  /RDPARM/ 

ROCPP 1 

VCNTRL 

276 
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00244 

COMMON 

/RDPARM/ 

SGNP 

(2) 

00245 

COMMON 

/RDPARM/ 

SI  NL 

(46) 

00246 

COMMON 

/RDPARM/ 

SINLON 

(72) 

00247 

COMMON 

/RDPARM/ 

THSTD 

00248 

COMMON 

/RDPARM/ 

THSTD2 

00249 

COMMON 

/RDPARM/ 

WSAVE 

(159) 

00250 

COMPTON 

/RDPARM/ 

DSIG 

(9) 

0025  1 

COMMON 

/RDPARM/ 

SIG 

(9) 

00252 

COMMON 

/RDPARM/ 

DSIGINV 

(9) 

00253 

00254 

00255 

00256 

00257 

00258 

00259 

00260 
00261 

00262 

00263 

00264 

00265 

00266 

00267 

00268 

00269 

00270 

00271 

00272 

00273 

00274 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


COMDECK  VQANDQT  RESOLUTION  VALUES 


IM  “7  2 

NLA V = 9 

JM-M  =46 

NLAY* 1 1 =99 

IM*NLAY*11  “7128 
JM/2+1  =23 


GLOBAL  MODEL  PROGNOSTIC  FIELDS  < NEEDED _ £N_COMPO> 


COMMON 


/ QANDQT / QPROG(72.9. 1 1 ,46) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PHIS  (7128,1) 

SMTH  (7128.23) 

ALBEDO  (7128,1) 

GT  (7128,1) 

GW  (7128,1) 

TS  (7128,1) 

SHS  (7128,1) 

P (72,99,1) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


U (72,9, 11,1) 
V (72,9, 11.1) 
T (72.9, 11,1) 
SH  (72.9,11,1) 
PHI  (72,9,11,1) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(QPR0G11,  1,1,1), PHIS  (1.1)) 

(QPROGU,  2, 1,1),  SMTH  (1,1)) 

{ QPROG ( 1 , 3,1,11 , ALBEDO ( 1,1)) 

< QPROG ( 1 , 4,1,1)  .GT  (1,1)) 

( QPROG ( 1 , 5, 1 , 1) ,GW  (1,1)) 

( QPROG ( 1 , 6 , 1 , 1 ) , TS  ( 1 , 1 > ) 

( QPROG ( 1 , 7, 1,1), SHS  (1,1)) 

( QPROG ( 1 , 8 , 1 , 1) ,P  (1,1,1)) 


00275 

00276 
00  277 

00278 

00279 


00280 

00281 

00282 

00283 


00284 

00285 

00286 

00287 

00288 


C 


C 

C 

C 

C 


C 

C 

C 

c 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( QPROG (1,1,  2.1), U (1,1*1.  IM 
(QPROG( 1,1,  4, 1 ) . V ( 1 , 1 , 1 . t ) ) 
( QPROG ( 1,1,  6, 1 ) .T  ( 1 , 1 . 1 . 1 ) > 
( QPROG (1,1*  8,1), SH  11,1,1,1)) 
< QPROG ( 1,1,10,1)  « PHI ( 1 , 1 . 1 , 1 ) ) 


SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  F I ELDS  ( NOT  NEEDED  I NCOMPO)^ 


COMMON 

DIMENSION 

EQUIVALENCE 


/QANDQT/  QSDI AG (72 
I QSDI AG (72 
( QSDI AG , I QSD I AG ) 


13.46) 

,15.46) 


COMMON 


/QANDQT/  QUD I AG <72,9,  5,46) 


POLAR  MODEL  PROGNOSTIC  FIELDS 
COMMON  / QPOLES/  PP(2,2) 
COMMON  /QPOLES/  UP (9,2, 2) 
COMMON  /QPOLES/  VP (9, 2, 2) 
COMMON  / QPOLES/  TP (9 ,2,2) 
COMMON  /QPOLES/  SHP<9,2,2> 


VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  2B0 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VQANDQT  2 
VQANDQT  3 
VQANDQT  4 
VQANDQT  5 
VQANDQT  6 
VQANDQT  7 
VQANDQT  8 
VQANDQT  9 
VQANDQT  10 
VQANDQT  11 
VQANDQT  12 
VQANDQT  13 
VQANDQT  14 
VQANDQT  15 
VQANDQT  16 
VQANDQT  17 
VQANDQT  18 
VQANDQT  19 
VQANDQT  20 
VQANDQT  21 
VQANDQT  22 
VQANDQT  23 
VQANDQT  24 
VQANDQT  25 
VQANDQT  26 
VQANDQT  27 
VQANDQT  28 
VQANDQT  29 
VQANDQT  30 
VQANDQT  31 
VQANDQT  32 
VQANDQT  33 
VQANDQT  34 
VQANDQT  35 
VQANDQT  36 
VQANDQT  37 
VQANDQT  38 
VQANDQT  39 
VQANDQT  40 
VQANDQT  41 
VQANDQT  42 
VQANDQT  43 
VQANDQT  44 
VQANDQT  45 
VQANDQT  46 
VQANDQT  47 
VQANDQT  48 
VQANDQT  49 
VQANDQT  50 
VQANDQT  51 
VQANDQT  52 
VQANDQT  53 
VQANDQT  54 
VQANDQT  55 
VQPOLES  2 
VQPOLES  3 
VQPOLES  4 
VQPOLES  5 
VQPOLES  6 
VQPOLES  7 
VQPOLES  8 


£3* 

w 2* 
> ® 
C 2*| 


\SQ 


i ■ 


00289 

00290 

00291 


00292 


00293 

00294 


00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 

00303 


00304 

00305 

00306 


00307 

00308 

00309 

00310 

00311 

00312 

00313 

00314 

STATEMENT 

--LABEL--* 

10 

10000 

50 

60 


COMMON  / QPOLES/  PHIPC9.2,2> 


I MM  1 , 
IMT2. 
IMNLAY1 , 


I MM2, 
IMT4, 
IMNLAY2, 


NLAYT3,  NLAYT4, 


I MM3  , 
IMNLAY3, 
NLAYT5, 


IMM4,  IMM5, 
IMNLAY4,  IMNLAY5. 
NLAYT6,  NLAYT7 


VQPOLES  9 
VOPOLES  10 
VWKSCAL  2 
VIMJM  2 
VIMJM  3 
VIMdM  4 
V I MUM  5 
V 1 MdM  6 
VSCALEQ  16 
V8EGDEB  2 
VBEGDE&  3 
VBEGDEB  4 


c 

c 

c 

c 

c 

c 

c 

c 

c 


COMMON  SCALEV (72,9) 

COMMON  / I MdM/ 

s 

S IMNLAY, 

S IMD2M1. 

S NLAYT2, 

C DEBUG 
10000  CONTINUE 

| cvel"  vIcTOR  !S5!S  00 ' 001  INPUT  IOQ  VBEGOEB  4 

csssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssvbIgdIb  6 

„ IF  tM-EO.O)  GO  TO  50  VSCALEQ  18 

C * * * VSCALEQ  19 

C POLE  POINT  

SCALE  = PP<N,M) 

IF  (KSC.LT. 0)  SCALE  = 1 ♦ /SCALE 
, DO  10  L=1  , NLA Y 

- UP  (LfN,M)  -SCALE 
VP  L,N.M)  * VP(L  ,N  ,M) -SCALE 
TP(L.N.M)  * TP ( L , N , M> -SCALE 
SHP(L,N,M)  * SHP(LNM) -SCALE 
CONTINUE 
RETURN 


10 


NON-POLE  POINT 
50  CONTINUE 


IF  (KSC-LT.O) 


SCALEVi 1 , 
SCALEV  < 1 , 


SCALEV (1,2;  IM> 
SCALEV ( 1 ,3; IMT2) 
SCALEV ( 1 ,5; IMT4) 
SCALEV (1,9;  IM> 

THE  ABOVE  SCHEME 
DO  LOOP. 

DO  60  L = 2 , NLA Y 
60  SCALEV ( 1 , L : IMJ 


- SCALEV ( 1 
= SCALEV ( 1 
= SCALEV { 1 , 
= SCALEV ( 1 , 


1;IM)  = PM  ,N,d;IM)-DSYP(d) 
1;IM)  - 1 . /SCALEV! 1 , 1 ; XM> 

1 ; IM) 
i ;IMT2) 

1 ; IMT4) 
i ; IM) 


IS  FASTER  FOR  9 LAYERS  THEN  THE  FOLLOWING 


“ SCALEV ( 1,1;  IM) 


U( 1 , 1 ,N,d; IMNLAY) 
VM  , 1 ,Ntd;  IMNLAY) 
T ( 1 , f , N , d ; IMNLAY) 
SH  M , 1 , N , J ; IMNLAY) 
RETURN 

END 

LABEL  MAP 

DEFINED REFERENCES 


= UM,1,N,J;  IMNLAY  ) -SCALEV  < 1 

- I MNLAY j - SCALEV ( 1 , i ; i mnl  c Y ) 

- T M , 1 , N , J ; IMNLAY) -SCALEV { 1,1* IMNLAY) 
= SH (1,1 ,N, J; I MNLAY) -SCALEV* 1 , 1 ; IMNLAY) 


IMNLAY) 

IMNLAY) 


VSCALEQ  20 
V5CALEQ  21 
VSCALEQ  22 
VSCALEQ  23 
VSCALEQ  24 
VSCALEQ  25 
VSCALEQ  26 
VSCALEQ  27 
VSCALEQ  28 
VSCALEQ  29 
VSCALEQ  30 
VSCALEQ  31 
VSCALEQ  32 
VSCALEQ  33 
VSCALEQ  34 
VSCALEQ  35 
VSCALEQ  36 
VSCALEQ  37 
VSCALEQ  38 
VSCALEQ  39 
VSCALEQ  40 
VSCALEO  41 
VSCALEQ  42 
VSCALEQ  43 
VSCALEQ  44 
VSCALEQ  45 
VSCALEQ  46 
VSCALEQ  47 
VSCALEQ  48 
VSCALEQ  49 
VSCALEQ  50 
VSCALEQ  51 
VSCALEQ  52 
VSCALEQ  53 
VSCALEQ  54 


302 

292 

304 

308 


297 

294 

307 


VARIABLE  MAP 
- -NAME -BLOCK*- 


* TYPE - 


-CLASS- 


ADATE 

ADLDP 

ALBEDO 

APHEL 

ATIME 

BETA 

CALTOd 

CC 


CCNTRL 

RDPARM 

QANDQT 

RCNTRL 

CCNTRL 

RCNTRL 

RCNTRL 

CCNTRL 


CHAR -8 

REAL 

REAL 

REAL 

CHAR-8 

REAL 

REAL 

CHAR-8 


SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 


-REFERENCES  A=ARGLIST.  C=CTRL  OF  00,  I =DATA  INIT,  R=READ , 


CO 

o 

* 

Dd 

/D 

O' 


3 

16 

217 

256 

269 

157 

4 

17 

158 

196 

14 

15 

S-STORE , W= WRITE 
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OF  POOR  QUALITY 


cco 

CCNTRL 

CCNTRL 

CCSP06 

CCNTRL 

CCSP07 

CCNTRL 

CCSP08 

CCNTRL 

CONI 

RDPARM 

CON  IDT 

RDPARM 

CON  2 

PDPARfW 

C0N2DT 

RDPARM 

C0N3 

RDPARM 

C0N3DT 

RDPARM 

CON4 

RDPARM 

C0N40T 

RDPARM 

CON5 

RDPARM 

C0SD 

RCNTRL 

COSL 

RDPARM 

COSLON 

RDPARM 

CP 

RCNTRL 

CPD2 

RDPARM 

COS 

CCNTRL 

COU 

CCNTRL 

DAYSPY 

RCNTRL 

DEC 

RCNTRL 

DECMAX 

RCNTRL 

DIST 

RCNTRL 

DLAT 

RCNTRL 

DLON 

RCNTRL 

DSIG 

RDPARM 

dsiginv 

RDPARM 

DT 

RCNTRL 

DXP 

RDPARM 

DXYP 

RDPARM 

DYP 

RDPARM 

ECCN 

RCNTRL 

EPS 

RCNTRL 

EPSFAC 

RCNTRL 

F 1 DT 

RDPARM 

F20T 

RDPARM 

FCORLS 

RDPARM 

FILTER 

LDPARM 

GNU1 

RCNTRL 

GNU2 

RCNTRL 

GRAV 

RCNTRL 

GT 

QANDQT 

GW 

qandot 

H I DT 

RDPARM 

H2DT 

RDPARM 

HEAT  I 

RCNTRL 

HE  A TV/ 

RCNTRL 

IBLKSIZ 

ICNTRL 

IC 

ICNTRL 

ICO 

ICNTRL 

ICNTRL 

ICSP53 

ICNTRL 

IDIABAT 

ICNTRL 

IDPARM 

IDSP02 

IDPARM 

I EF  LUX 

ICNTRL 

I FUSI  ON 

ICNTRL 

INFLUX 

ICNTRL 

I I CLOUD 

ICNTRL 

I JUMP 

IDPARM 

SM 

ICNTRL 

IMD2 

ICNTRL 

IMD2M1 

IMJM 

CHAR  *8 

SIMPLE 

REAL 

UNKNOWN 

CHAR-8 

SIMPLE 

CHAR -8 

SIMPLE 

CHAR-8 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

CHAR-8 

ARRAY 

CHAR-8 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

LOGICAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

S I MP  L E 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

ARRAY 

INTEGER 

SIMPLE 

INTEGER 

UNKNOWN 

INTEGER 

SIMPLE 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

SIMPLE 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

ARRAY 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

2 

2 

13 

7 

8 
9 

2 18 

219 

220 
22  ! 
222 

223 

224 

225 

226 

159 

227 

228 

160 
229 

12 

13 

161 

162 

163 

164 

165 
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250 
252 

167 

230 

231 

232 

168 

194 

195 

234 

235 

233 
21  1 

169 

170 

171 

257 

258 

236 

237 
193 
192 

70 
95 
27 

27 
38 
49 
60 

71 
68 
92 

200 

201 

84 

85 
83 
88 

200 

28 
29 

291 


14 

3 

20 
2 1 
22 


15 

4 5 6 7 


8 


9 10  11  12 


25 

26 


305 


214 


o o 

•vi  ^ 

*£»  O 
O 5 

O S3 

S3  fa 

lO  *3 

C sS 

q css 


270 

271 


96 


95 

96 

28 

29 

30 

31 

32 

39 

40 

4 1 

42 

43 

50 

51 

52 

53 

54 

61 

62 

63 

64 

65 

72 

73 

74 

75 

76 

201 

202 

203 

204 

205 

305 

305 

306 

306 

308 

33 

34 

35 

36 

37 

44 

' ; 3 

46 

47 

48 

55 

56 

57 

58 

59 

66 

67 

68 

69 

70 

77 

78 

206 

207 

208 

209 

210 

308 


CO 


IMD2P  t 
IMJM 
I MM  t 
I MM2 
I MM3 
IMM4 
IMM5 
IMNLAY 

IMNLAY1 

IMNLAY2 

IMMLAY3 

IMMLAY4 

IMNLAY5 

IMT2 

IMT4 

INDEX 

IOMEGA 

IPREACC 

IPRECON 

IQS 

IQSDIAG 

IQU 

IRADLW 

IRADLWG 

IRADSW 

IRADSWG 

IROD 

ITAPE 

ITMAX 

I TWIN 

IUFLUX 

IVFLUX 

i J 

JC 

JE 

JIC 

JM 

dM02 

JMT2 

JNP 

d04 

JOS 

JOB 

JP 

JSP 

KLIALB 

KLIGW 

KLISST 

KS 

KSC 

KSTEP 

KU 

L 

LC 

LCO 

LCNTRL 

LDIABAT 

LDPARM 

LEFLUX 

LFUSION 

LNFLUX 

LICLOUD 

LOGBR 

LOMEGA 

LPREACC 

LPRECON 


ICNTRL 

I M JM 
IMJM 
IMJM 
IMJM 
IMJM 
IMJM 

IMJM 

IMJM 

IMJM 

IMJM 

IMJM 

IMJM 

IMJM 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

QANDQT 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

LDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 


IDPARM 

IDPARM 

CCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

CCNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

LCNTRL 

LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

ICNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR  *8 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHARTS 

INTEGER 

INTEGER 

integer 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 


SIMPLE 

UNKNOWN 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 

ARRAY 

ARRAY 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

UNKNOWN 

unknown 

UNKNOWN 


30 

291 

291 

291 

291 

291 

291 

291 

312 

291 

291 

291 

291 

291 

291 

291 

202 

91 

81 

82 

77 
89 

281 

78 
94 
87 
93 
86 

203 
212 

80 

79 

89 

90 
1 

312 

204 

205 

5 

32 

33 

34 

35 

36 

37 

6 

206 

38 

39 

40 
4 T 

42 
1 

207 

43 


123 
21  1 
1 15 
1 16 
1 14 
1 19 
44 
122 
112 
1 13 


CO 

O 

£ 

rd 

JO 

CO 


309 

312 


309 


309 


310 


310 


310 


311 


31  1 


31  1 


312 


79 

80 

81 

82 

90 

282 

91 

92 

93 

94 

215 

293 

305 

305 

309 

83 


84 


85 


86 


87 


88 


309 


310 


310 


31  1 


311 


312 


19 


296 


306 


297/C 

154 

298 

155 

29B 

299 

299 

300 

300 

301 

301 

307/C 

308 

97 

154 

155 

97 

108 

98 

109 

99 

too 

101 

102 

103 

104 

105 

106 

107 

151 

212 

143 

144 
142 
147 

150 

140 

141 


213 


o a 

33 
-O  Q 
O 2 
O > 
* F 

O -0 

c & 
3*  m 
£ m 


LQS 

LCNTRL 

LOGICAL 

ARRAY 

108 

110 

1 1 1 

120 

121 

136 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

109 

122 

123 

LRADLW 

LCNTRL 

LOGICAL 

UNKNOWN 

125 

153 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

118 

146 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

124 

152 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

145 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

111 

139 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

1 10 

138 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

120 

148 

LVFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

121 

149 

M 

INTEGER 

SIMPLE 

293/S 

294 

295 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

46 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

47 

Md 

IDPARM 

INTEGER 

ARRAY 

208 

293 

MLF 

ICNTRL 

INTEGER 

ARRAY 

48 

MR0D 

ICNTRL 

INTEGER 

SIMPLE 

49 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

51 

N 

INTEGER 

SIMPLE 

1 

295 

298 

309 

309 

310 

NB 

ICNTRL 

INTEGER 

SIMPLE 

52 

ND 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NDAY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDH0G 

ICNTRL 

INTEGER 

SIMPLE 

76 

NOOUT 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

57 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

31 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

58 

NOT 

ICNTRL 

INTEGER 

SIMPLE 

59 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

G2 

NHMS  1 

IDPARM 

INTEGER 

SIMPLE 

209 

NHMSE 

ICNTRL 

INTEGER 

SIMPLE 

61 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

50 

NLA  Y 

ICNTRL 

INTEGER 

SIMPLE 

63 

297 

307 

NLAYM1 

ICNTRL 

INTEGER 

SIMPLE 

64 

NLAYP1 

ICNTRL 

INTEGER 

SIMPLE 

65 

NLAYT2 

I MUM 

INTEGER 

SIMPLE 

291 

NLAYT3 

IMJM 

INTEGER 

SIMPLE 

291 

NLA YT 4 

IMJM 

INTEGER 

SIMPLE 

291 

NLAYT5 

IMJM 

INTEGER 

SIMPLE 

291 

NLAYT6 

IMJM 

INTEGER 

SIMPLE 

291 

NLAYT7 

IMJM 

INTEGER 

SIMPLE 

291 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

75 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

66 

NSEQ 

ICNTRL 

INTEGER 

SIMPLE 

67 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

69 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

7! 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

73 

NYMD  1 

IDPARM 

INTEGER 

SIMPLE 

210 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

72 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

74 

0MEGA2 

RCNTRL 

REAL 

SIMPLE 

172 

P 

QANDQT 

REAL 

ARRAY 

261 

274 

305 

PHI 

QANDQT 

REAL 

ARRAY 

266 

279 

PH  IP 

QPOLES 

REAL 

ARRAY 

289 

PHIS 

QANDQT 

REAL 

ARRAY 

254 

267 

PI 

RCNTRL 

REAL 

SIMPLE 

173 

PI  180 

RCNTRL 

REAL 

SIMPLE 

174 

PI  2 

RCNTRL 

REAL 

SIMPLE 

175 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

177 

PKSTD 

RDPARM 

REAL 

SIMPLE 

238 

PKTOP 

RDPARM 

REAL 

SIMPLE 

239 

PLEVS 

RCNTRL 

REAL 

ARRAY 

191 

P P 

QPOLES 

REAL 

ARRAY 

284 

295 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

178 

FSIWIN 

RCNTRL 

REAL 

SIMPLE 

179 

PSTD 

RCNTRL 

REAL 

SIMPLE 

176 

112  113  lid  115  116  117  118  119 

124  125  137 


298  298  299  299  300  300  301  301 


298  299  299  300  300  301  301  305 

310  311  311  312  312 


cn 

O 

Pf 

DO 

♦O 

VD 


OF  POOR  QUALITY 


! 

i 


f t 

PTOP 

RCNTRL 

REAL 

SIMPLE 

180 

PZERO 

RCNTRL 

REAL 

SIMPLE 

197 

OALT 

LCNTRL 

LOGICAL 

SIMPLE 

98 

126 

i 

QANDQT 

REAL 

UNKNOWN 

253 

280 

OBEG 

LCNTRL 

LOGICAL 

SIMPLE 

99 

127 

i 

-» . 

ODAY 

LCNTRL 

LOGICAL 

SIMPLE 

100 

128 

\ 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

101 

129 

* 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

102 

130 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

103 

131 

1 

QPOLES 

REAL 

UNKNOWN 

284 

285 

1 

QPRQG 

QANDQT 

REAL 

ARRAY 

253 

267 

277 

278 

j 

ORSH 

LCNTRL 

LOGICAL 

SIMPLE 

107 

135 

4 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

106 

134 

i ■ 

Q5DIAG 

QANDQT 

REAL 

ARRAY 

280 

282 

l 

QSHF 

LCNTRL 

’ LOGICAL 

SIMPLE 

104 

132 

\ 

j 

QUO  I AG 

QANDQT 

REAL 

ARRAY 

283 

RADE 

RCNTRL 

REAL 

SIMPLE 

181 

RC 

RCNTRL 

REAL 

ARRAY 

198 

199 

T 

RCO 

RCNTRL 

REAL 

SIMPLE 

156 

198 

RCNTRL 

REAL 

UNKNOWN 

156 

157 

i ; : 

167 

168 

178 

179 

! ; 

189 

190 

. •' 

RDPARM 

REAL 

UNKNOWN 

217 

218 

• IV. 

228 

229 

239 

240 

250 

251 

i-  ;; 

RGAS 

RCNTRL 

REAL 

SIMPLE 

182 

RLAT 

RDPARM 

REAL 

ARRAY 

240 

y 

jr 

PLATO 

RDPARM 

REAL 

ARRAY 

241 

ROCP 

RCNTRL 

REAL 

SIMPLE 

183 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

242 

ROCPPT 

RDPARM 

REAL 

SIMPLE 

243 

>1 

R5DIST 

RCNTRL 

REAL 

SIMPLE 

184 

SCALE 

REAL 

SIMPLE 

295/S 

296/S 

V 

SCALEQ 

SUBROUTINE 

1 

5CALEV 

// 

REAL 

ARRAY 

290 

305/S 

SDAY 

RCNTRL 

REAL 

SIMPLE 

185 

it 

SEASON 

RCNTRL 

REAL 

SIMPLE 

186 

SGNP 

RDPARM 

REAL 

ARRAY 

244 

] A 

SH 

QANDQT 

REAL 

ARRAY 

265 

278 

SHP 

QPOLES 

REAL 

ARRAY 

288 

30  1 / S 

SHS 

QANDQT 

REAL 

ARRAY 

260 

273 

f * 
} • 

SIG 

RDPARM 

REAL 

ARRAY 

251 

k 

SIGE 

RCNTRL 

REAL 

ARRAY 

187 

J.? 

SIND 

RCNTRL 

REAL 

SIMPLE 

188 

1 

SI  NL 

RDPARM 

REAL 

ARRAY 

245 

- 

SINLON 

RDPARM 

REAL 

ARRAY 

246 

SMTH 

QANDQT 

REAL 

ARRAY 

255 

268 

i 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

105 

133 

| 1 

SOLS 

RCNTRL 

REAL 

SIMPLE 

189 

* .• 

START 

LDPARM 

LOGICAL 

SIMPLE 

213 

216 

1 ? 

T 

QANDQT 

REAL 

ARRAY 

264 

277 

t f 

THSTD 

RDPARM 

REAL 

SIMPLE 

247 

j : 

TKSTD2 

RDPARM 

REAL 

SIMPLE 

248 

TP 

QPOLES 

REAL 

ARRAY 

287 

300/S 

TS 

QANDQT 

REAL 

ARRAY 

259 

272 

j ; 

T5TD 

RCNTRL 

REAL 

SIMPLE 

190 

i • 

U 

QANDQT 

REAL 

ARRAY 

262 

275 

t 

UP 

QPOLES 

REAL 

ARRAY 

285 

298/S 

( 

V 

QANDQT 

REAL 

ARRAY 

263 

276 

VER 

CCNTRL 

CHARTS 

SIMPLE 

10 

23 

VP 

QPOLES 

REAL 

ARRAY 

286 

299/S 

WSAVE 

RDPARM 

REAL 

ARRAY 

249 

M 

ir 

■i 

XLABEL 

CCNTRL 

CHAR*8 

ARRAY 

1 1 

24 

-« . I 

r < 

! - ! 
i:  j 

m 

-.vg- 

Ssg  ... 

H 

O 

283 


286  287  288  289 
268  269  270  27 t 
279 


199 

158 

159 

160 

161 

169 

170 

171 

172 

180 

181 

182 

183 

191 

192 

193 

194 

219 

220 

221 

222 

230 

231 

232 

233 

24  1 

25  2 

242 

243 

244 

295  298  299  300 

306/S  306  308/5  308 


312/S  312 

301 


272  273  274  275 


162 

163 

164 

165 

173 

174 

175 

176 

184 

185 

186 

187 

195 

196 

197 

223 

224 

225 

226 

234 

235 

236 

237 

245 

246 

247 

248 

301 

309  310  311  312 


276 


166 

177 

188 

227 

238 

249 


31  1 /S  311 


300 


309/S  309 

310/S  310 


299 


0000  1 


00002 

00003 

00004 

00005 

00006 

00007 

00008 
00009 
OOOtO 

000  1 t 
00012 

00013 

00014 

00015 

00016 

00017 

00018 
000  19 


00020 

00021 

00022 

00023 

00024 


00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


c 


c 


SUBROUTINE  SHAP  < 0 , I M . JM,  M ) 


NOTE  JM  IS  ACTUALLY  JNP  VALUE  ( WHEN  CALLED 

FROM  THE  MODEL) 

FOR  SHAPIRO  FILTERING  QUM.JM) 

NOTE  IT  AVERAGES  OVER  THE  POLE 
SET  M- 1 TO  FILTER  OVER  THE  POLE  < LATI TUOE ) 
_ AND  (LONGITUDINAL) 

M=2  TO  FILTER  JUST  LONGITUDINAL 

NOTE  JM  IS  ACTUALLY  JNP  VALUE 


COMMON  PQ (72,9)  , SUP  < 72 ) . 
COMMON  DM3312).  02(3312) 
COMMON  FLD (72, 46 ,12) 

COMMON  UVF (72,46. 18) 

COMMON  CARD  (10),  DA  TAM  44) 
BIT  B I T 1 ( 33 12),  DIT1 
DESCRIPTOR  D I T 1 
CHARACTER  *8  CARD 
DIMENSION  Q ( IM.JM) 


SVP ( 72 ) 

DY 1 ( 72)  , D Y2 ( 7 2 > 


CATA1 144 ) 


I M JM  * IM*JM 
IM JM  1 * IMJM  - IM 
IMJM2  = IMJM1  - IM 


C 


C 

C 

C 

C 

c 

c 

C 

c 

c 


c 


c 

C 

C 


c 


c 

C 


ASSIGN  DITI.BXT1M  ;2MJ«2) 
DIT1  = Q8VMKO ( IM-1 , IM;DIT1 ) 

JMT2  = JM - 2 
JT  = 1 
J1P1  = JM 
JMM1  - JM-1 


IORDER  = 8 IMPLIES  16TH  ORDER  SHAPIRO 
FIRST  DO  LONGITUDE  DIRECTION 
FOLLOWED  BY  LATITUDE 


I ORDER  = 8 

A = 1 . /4 .0**I0RDER 

D1 M ;I MJM2 ) = Q<!,2;IMJM2) 

DY1 r 1 ; Jffl*2)  = 08VGATHP ( D 1 < IM; IMJM2 ) . IM . JM- 2 ; DY 1 C 1 ; JM-2 ) ) 
00  100  M- f . \ ORDER 


WHERE ( DI T 1 } 
DY2( 1 ; JM-2) 
DY1M ; JM-2) 
D2( 1 ; IMJM2) 


D2 ( 2 ; XMJM2 ) = D1(2;IMJM2>  - D1( 1:IMJM21 
= QSVGATHP ( D 1 ( 1 ; IMJM2 ) , IM.JM-2;DY2< 1 ; JM-2) ) 
" DY2 ( 1 ; JM-2 ) - DVH1;  JM-2) 

= 08VSCATP ( DY 1 ( 1 ; JM-2  > , IM . JM-2;D2 < 1 ; IMJM2 ) ) 


WHERE ( DI T 1 ) 
DY2< 1 ; JM-2) 
DY 1 ( 1 ; JM-2) 
DI ( IM; IMJM2) 


D 1 ( 1 ; IMJM2 ) = D2(2;1MJM2)  - D2(t;rMJM2> 

* Q8VGATHP ( D2 { JM ; IMJM2 ) . IM , JM- 2 ; DY2 ( 1 ; JM-2) ) 

- DY Ilf; JM-2  > - D Y2 ( 1 ; JM-2 ) 

“ 08VSCATP (DY1 ( 1 ; JM-2) . IMf  JM-2;D1 ( XM; IMJM2) ) 


100  CONTINUE 


VSM3HAP225 

VSMSHAP226 

VSMSHAP227 

VSMSHAP228 

VSMSHAP229 

VSMSHAP230 

VSMSHAP231 

VSMSHAP232 

VSMSHAP233 

VSMSHAP234 

VSMSHAP235 

VSM5HAP236 

VSMSHAP237 

VSMSHAP238 

VSMSHAP239 

VSMSHAP 240 

VSMSHAP241 

VSMSHAP 24 2 

VSM5HAP243 

VSMSHAP244 

VSMSHCM  2 

VSMSHCM  3 

VSMSHCM  4 

VSMSHCM  5 

VSMSHCM  6 

VSMSHCM  7 

VSMSHCM  8 

VSMSHCM  9 

VSMSHAP246 

VSM5HAP247 

VSM5HAP  248 

VSMSHAP249 

VSMSHAP  250 

V5MSHAP25 1 

VSMSHAP 25 2 

VSMSHAP 253 

VSMSHAP254 

VSMSHAP255 

VSMSHAP256 

VSMSHAP257 

VSMSHAP258 

VSMSHAP259 

VSMSHAP 260 

VSMSHAP261 

VSMSHAP262 

VSMSHAP263 

VSMSHAP 264 

VSM5HAP265 

VSMSHAP266 

VSMSHAP2G7 

VSMSHAP268 

VSMSHAP 269 

VSMSHAP270 

VSMSHAP 27 1 

VSMSHAP 27 2 

VSMSHAP 27 3 

VSM5HAP274 

VSMSHAP275 

VSMSHAP 276 

VSMSHAP277 

VSMSHAP278 

VSMSHAP279 

VSMSHAP280 

VSMSHAP28 1 

VSMSHAP282 

VSMSHAP283 

VSM5HAP2S4 

VSMSHAP2B5 

VSMSHAP 286 

VSMSHAP 28 7 

VSMSHAP288 


. .. 


00034 


Q < 1 ,2; IMUM2 > = Of  1 . 2 ; I MJM2  > - D t ( t ; IMJM2 ) * A 
C 


00035 

1 F f W! . £ Q . 2 ) RETURN 

00036 

IMD2  = IM/2 

00037 

JMM1  = JM- 1 

0003B 

C 

JMPJMT2  = JMMt-2 

00039 

u 

c 

DlfljIMJM)  = 0 < 1 ♦ 1 ; I MUM) 

00040 

r« 

DO  200  N = 1 , I ORDER 

0004  t 

U 

D2 < 1 ; IMJM1 ) = D1 f IM+1 ; IMJM1 ) - D1<1;IMJM1> 

00042 

O 

D 1 ( IMX  1 ; IMUM2 ) - 02  ( I Mx  1 ; I MU  M2 ) - D2<1;IMdM2) 

00043 

Dili;  1MD2 ) = D2UMD2+1  ;IMD2)  + 02M;IMD2) 

00044 

0 1 < IMD24- 1 ; IMD2)  = DIM;  IMD2 ) 

00045 

01 UMJM1  + 1 ; IMD2)  = -02 < IMJM2 x t ; IMD2 ) - D2 ( IMUM2X IMD2X 1 ; I MD2 1 

00046 

DU  IMUMt  +IMD2-  1 ; IMD2)  * 0 1 t IMUMt  + 1 ; IMD2 > 

00047 

200 

CONTINUE 

00048 

1/ 

0 < 1 , 1 : I MUM)  = Q ( 1 , 1 ; I MJM ) - Dl 1 t; I MUM ) * A 

00049 

Q(t,  IJIIW)  = Q8SSUM(Q(  1 , t ; IM)  ) /FLOAT  ( IM) 

00050 

Q(1tJM;IM)  = OBSSUMf Q(  1 , JM ; IM)  ) /FLOAT  < I M 1 

0005  t 

RETURN 

00052 

END 

STATEMENT 

LABEL 

MAP 

--LABEL---DEF INED REFERENCES 


VSMSHAP289 
VSMSHAP290 
VSMSHAP29  t 
VSM5HAP  292 
VSMSHAP293 
VSMSHAP294 
VSMSHAP235 
VSMSHAP296 
VSM5HAP297 
VSMSHAP298 
VSMSHAP299 
VSMSHAP300 
VSMSHAP301 
VSMSHAP302 
VSMSHAP303 
VSMSHAP304 
VSMSHAP305 
VSMSHAP306 
VSMSHAP307 
VSMSHAP308 
VSMSHAP309 
VSMSHAP3  $ O 
VSMSHAP31 1 
V5MSHAP3 1 2 
VSM5HAP3  1 3 
VSMSHAP3 1 4 
VSM5HAP3 15 
VSMSHAP316 


o o 

-n  so 
T3  S 
os 

O 

so  r 

rO 

c > 
> @ 
n 


too  33  24 

200  47  40 

VARIABLE  MAP 


NAME 

---BLOCK 

TY°E 

--CLASS 

-REFERENCES 

A = 

ARGLIST. 

C-CTRL  OF 

DO.  I 

= DATA 

INIT,  REREAD 

, S=STORE.  W 

= WRITE 

A 

REAL 

SIMPLE 

21  /S 

34 

48 

B I T 1 

BIT 

ARRAY 

7 

14 

CARD 

// 

CHARTS 

ARRAY 

6 

9 

CATA 

// 

REAL 

ARRAY 

6 

01 

// 

REAL 

ARRAY 

3 

22/S 

23 

25 

25 

26 

29/S 

32 /S 

32 

34 

39 

41 

4 1 

42/S 

4 3 / S 

44/S 

44 

45/S 

46/S 

46 

48 

D2 

// 

REAL 

ARRAY 

3 

25/S 

28  /S 

28 

29 

29 

30 

41/S 

42 

42 

43 

43 

45 

45 

0ATA 

/ / 

REAL 

ARRAY 

G 

D I T 1 

BIT 

DESCRIPTOR 

7 

8 

14 

15/S 

15 

25 

29 

0 Y 1 

// 

REAL 

ARRAY 

3 

23/S 

23 

27  /S 

27 

28 

31/S 

31 

32 

DY2 

If 

REAL 

ARRAY 

3 

26/S 

2 6 

27 

30/S 

30 

31 

FLD 

ft 

REAL 

ARRAY 

4 

IM 

INTEGER 

SIMPLE 

1 

10 

1 1 

12 

13 

15 

15 

23 

23 

26 

28 

30 

30 

32 

32 

32 

36 

41 

42 

42 

49 

49 

49 

50 

50 

50 

IMD2 

INTEGER 

SIMPLE 

36/S 

43 

43 

43 

43 

44 

44 

44 

45 

45 

45 

45 

46 

46 

46 

I MUM 

INTEGER 

SIMPLE 

1 1/S 

12 

39 

39 

48 

48 

48 

I MJM  1 

INTEGER 

SIMPLE 

12/5 

13 

41 

41 

41 

45 

46 

46 

I MUM  2 

INTEGER 

SIMPLE 

1 3 fS 

14 

22 

22 

23 

25 

25 

25 

26 

28 

28 

29 

29 

29 

30 

32 

32 

24 

34 

34 

42 

42 

42 

45 

45 

IORDER 

INTEGER 

SIMPLE 

20/S 

21 

24 

40 

U1 

INTEGER 

SIMPLE 

17/S 

18 

J1P1 

INTEGER 

SIMPLE 

18/S 

JM 

INTEGER 

SIMPLE 

1 

10 

1 1 

16 

19 

23 

23 

23 

25 

26 

26 

27 

27 

27 

26 

28 

30 

30 

30 

31 

31 

31 

32 

32 

37 

50 

50 

JMKI1 

INTEGER 

SIMPLE 

19/S 

37/S 

38 

JMM1T2 

INTEGER 

SIMPLE 

38/S 

JMT2 

INTEGER 

SIMPLE 

16/S 

M 

INTEGER 

SIMPLE 

1 

35 

N 

INTEGER 

SIMPLE 

24 

PQ 

// 

REAL 

ARRAY 

2 

t 

Q 

REAL 

ARRAY 

1 

1 

50 

1 

SNAP 

SUBROUTINE 

1 

SUP 

// 

REAL 

ARRAY 

2 

svp 

// 

REAL 

ARRAY 

2 

UVF 

// 

REAL 

ARRAY 

5 

i.  PROCEDURE 

MAP 

---TVDC- . ^ , 

ACC  - - , ^ 

^ •ULAbo- 

f 

FLOAT 

REAL 

INTRINSIC 

49 

50 

' 7 

Q8SSUM 

REAL 

INTRINSIC 

49 

50 

Q8VGATHP 

REAL 

INTRINSIC 

23 

26 

i 

1 I. 

QBVMKO 

BIT 

INTRINSIC 

15 

I 

08VSCATP 

REAL 

INTRINSIC 

28 

32 

I I 
i 


40 

10  22  34/S  34  39  48/S  48  49/S  49 


D = STMT  FN  DEF  * A =ARGL I ST 
30 


50 


( I 


OOOOI 


00002 

00003 

00004 

00005 

00006 

00007 

00008 
00009 
000  to 
000  1 1 
00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 


00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 
0003B 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 


SUBROUTINE  SHCORN  Ut) 

C 

C CORRECT  ADVECTEO  NEGATIVE  SPECIFIC  HUMIDITIES 
C MOISTURE  DEFICIT  IS  DIFFUSED  THROUGH  REST  OF  COLUMN 

c 

C ARGUMENTS  DESCRIPTION 
C d LATITUDE  BAND  NUMBER 

C 
C 

C CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /CCNTRL / CCO 
COMMON  /CCNTRL/  ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  JIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSP06 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  (10) 

COMMON  /CCNTRL/  COS  (30) 

COMMON  /CCNTRL/  COU  (10) 

C 

EQUIVALENCE  (CCO.CCf 1 ) ) 

CHARACTERS  CCO  , CC  i 200  ) 

CHARACTERS  ADATE 

CHARACTER *8  ATIME 

CHARACTER  S JIC 

CHARACTER *8  JOB 

CHARACTERS  CCSP06 

CHARACTERS  CCSP07 

CHARACTERS  CCSPOQ 

CHARACTERS  VER 

CHARACTERS  XLA8EL 

CHARACTERS  COS 

CHARACTER  *8  COU 

C 

C INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 
C 3ssss3rr";!rss5  2s2:;;r;s2s:s5;:;jcs2s5  23sc;:!!2!!2 
COMMON  /ICMTRL/  ICO 
COMMON  / ICNTRL / IM 
COMMON  /ICNTRL/  IMD2 
COMMON  /ICNTRL/  IMD2PT 
COMMON  /ICNTRL/  NDRSW 
COMMON  /ICNTRL/  JM 
COMMON  /ICNTRL/  UMD2 
COMMON  /ICNTRL/  JMT2 
COMMON  /ICNTRL/  JNP 
COMMON  /ICNTRL/  J04 
COMMON  /ICNTRL/  U08 
COMMON  /ICNTRL/  dSP 
COMMON  /ICNTRL/  KLIALB 
COMMON  /ICNTRL/  KLIGW 
COMMON  /ICNTRL/  KLISST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KU 
COMMON  /ICNTRL/  LOGBR 
COMMON  /ICNTRL/  MATIN 
COMMON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MATSUN 
COMMON  /ICNTRL/  MLF  (12) 

COMMON  /ICNTRL/  MR CD 
COMMON  /ICNTRL/  NKRSH 
COMMON  /ICNTRL/  MSM 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  ND 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDAY 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 


VSHCORN 

2 

VSHCORN 

3 

VSHCORN 

a 

VSHCORN 

5 

VSHCORN 

6 

VSHCORN 

7 

VSHCORN 

8 

VSHCORN 

9 

VCNTRL 

2 

VCNTRL 

3 

VCNTRL 

4 

VCNTRL 

5 

VCNTRL 

6 

VCNTRL 

7 

VCNTRL 

8 

VCNTRL 

9 

VCNTRL 

10 

VCNTRL 

1 1 

VCNTRL 

12 

VCNTRL 

13 

VCNTRL 

14 

VCNTRL 

15 

VCNTRL 

16 

VCNTRL 

17 

VCNTRL 

18 

VCNTRL 

19 

VCNTRL 

20 

VCNTRL 

21 

VCNTRL 

22 

VCNTRL 

23 

VCNTRL 

24 

VCNTRL 

25 

VCNTRL 

26 

VCNTRL 

27 

VCNTRL 

28 

VCNTRL 

29 

VCNTRL 

30 

VCNTRL 

31 

VCNTRL 

32 

VCNTRL 

33 

VCNTRL 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

38 

VCNTRL 

39 

VCNTRL 

40 

VCNTRL 

41 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

46 

VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

51 

VCNTRL 

52 

VCNTRL 

53 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

VCNTRL 

53 

VCNTRL 

59 

VCNTRL 

60 

VCNTRL 

61 

VCNTRL 

62 

VCNTRL 

63 

VCNTRL 

64 
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SHCORN  1 


00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 
0007  1 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
oooai 
00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 


00097 

00098 

00099 

00100 
00101 
00102 

00103 

00104 

00105 

00106 
00107 
00  108 

00109 

00110 
OOtt  1 
00112 
001  13 

00114 

00115 

00116 
00117 
001  18 

00119 

00120 
00121 


COMMON  /ICNTRL/  NDSHF 
COMMON  / ICNTRL/  NOT 
COMPTON  /ICNTRL/  NHMS 
COr/IMON  /ICNTRL/  NMPflSE 
COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLA Y 
COMMON  /ICNTRL/  NLAYM1 
COMMON  /ICNTRL/  NLA YP  f 
COMPTON  /ICNTRL/  NS0AY 
COWir-AON  /ICNTRL/  NSEC 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  IBLKSJZ 
COPV1MON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL,/  NZINIT 
COMPTON  /ICNTRL/  NPflLEV 
COMMON  /ICNTRL/  NOHOG 
COrjMON  /ICNTRL/  IQS  (30) 
COMMON  /ICNTRL/  IQU  flO) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(ITMIN  .IQSI  1>> 
UTMAX  , I Q5 ( 21) 
(IPREACC  • I 05 ( 3)  ) 
(I  PRECON  , I QS ( 4)) 
(INFLUX  , IQS(  5)) 
UEFLUX  . 2 QS(  6)) 
( I FUSION  . I QS ( 7>) 
(IRADSWG  . I QS ( 8)) 
{ 1 RADLWG  * I QS ( 9)) 
(IICLOUD  ,IQS(10>> 
(IUFLUX  « I QS (11)) 
fIVFLUX  . I QS (12)) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(IOMEGA  . 1 QU ( I)) 

UDIABAT  , IQU(  2>> 
(IRADSW  ,IQU(  3)) 
(XRADLW  , IQU(  4 ) J 


EQUIVALENCE  (ICO, IC( 1 ) ) 

INTEGER  ICO,  IC(200> 

LOGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /LCWTRL/  LCO 
COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL/  QBEG 
COMMON  /LCNTRL/  QDAY 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMPJIGN  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 
COMMON  /LCNTRL/  QRSW 
COMMON  /LCNTRL/  QRSH 
COMPilON  /LCNTRL/  LQS (30) 

COMMON  /LCNTRL/  LOUMO) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(LTMIN  , LQS  C 1>) 
(LTMAX  t LQS ( 2)) 
( LPREACC  , LOS ( 3>) 
(LPRECON  ,LQS<  4) ) 
(LHFLUX  , LQS(  5)> 
(LEPLUX  , LQS { 6)) 
{ LFUSION  ,LQSC  7)) 
(LRADSWG  ,LOS(  8)) 
(LRADLWG  ♦ LQS ( 9)) 
(LICLOUD  ,LQSUO») 
(LUFLUX  , LQS (11)) 
(LVFLUX  , LQS ( 1 2 ) > 


VCNTRL  65 
VCNTRL  66 
VCNTRL  67 
VCNTRL  68 
VCNTRL  69 
VCNTRL  70 
VCNTRL  71 
VCNTRL  72 
VCNTRL  73 
VCNTRL  74 
VCNTRL  75 
VCNTRL  76 
VCNTRL  77 
VCNTRL  78 
VCNTRL  79 
VCNTRL  80 
VCNTRL  81 
VCNTRL  82 
VCNTRL  83 
VCNTRL  84 
VCNTRL  85 
VCNTRL  86 
VCNTRL  87 
VCNTRL  88 
VCNTRL  89 
VCNTRL  90 
VCNTRL  91 
VCNTRL  92 
VCNTRL  93 
VCNTRL  94 
VCNTRL  9b 
VCNTRL  96 
VCNTRL  97 
VCNTRL  98 
VCNTRL  99 
VCNTRL  100 
VCNTRL  101 
VCNTRL  102 
VCNTRL  103 
VCNTRL  104 
VCNTRL  105 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  110 
VCNTRL  111 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  115 
VCNTRL  116 
VCNTRL  117 
VCNTRL  118 
VCNTRL  119 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 
VCNTRL  128 
VCNTRL  129 
VCNTRL  130 
VCNTRL  131 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
VCNTRL  135 
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00  122 

C 

EQUIVALENCE 

{LOMEGA 

♦ LQU  ( 

1 ) > 

00123 

EQUIVALENCE 

(LDIABAT 

. LQU  C 

2)  > 

00124 

EQUIVALENCE 

(LRADSW 

, LQU< 

3)  ) 

1 • 

00  1 25 

EQUIVALENCE 

1LRADLW 

« LQU  < 

4)  > 

00126 

C 

LOGICAL 

QALT 

r . 

00127 

LOGICAL 

QBEG 

t 

00128 

LOGICAL 

QDAY 

00129 

LOGICAL 

QEND 

? 

00130 

LOGICAL 

QOUT 

00131 

LOGICAL 

QPHY 

•T.  ! 

00132 

LOGICAL 

QSHF 

i 

00133 

LOGICAL 

SN2FLG 

1 

00134 

LOGICAL 

QRSW 

J 

4 

00135 

LOGICAL 

QRSH 

{ 

00136 

c 

LOGICAL 

LQS 

I 

00137 

LOGICAL 

LQU 

► • 

00138 

LOGICAL 

LTMIN 

! '■ 

00139 

LOGICAL 

LTMAX 

i 

00140 

LOGICAL 

LPREACC 

00141 

LOGICAL 

LPRECON 

\ 

00142 

LOGICAL 

LHP LUX 

i 

00143 

LOGICAL 

LEFLUX 

t 

00144 

LOGICAL 

LFUSION 

00145 

LOGICAL 

LRADSWG 

00146 

LOGICAL 

LRADLWG 

00147 

LOGICAL 

LICLOUD 

00148 

LOGICAL 

LUFLUX 

00149 

LOGICAL 

LVFLUX 

00150 

c 

LOGICAL 

LOMEGA 

\i.  : 

00151 

LOGICAL 

LDIABAT 

i • ; . 

00152 

LOGICAL 

LRADSW 

00153 

LOGICAL 

LRADLW 

•1 

00154 

c 

EQUIVALENCE 

(LCOtLC< 1 ) > 

•\\  : 

00155 

LOGICAL 

LCO , LC1200J 
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00  156 

00157 

00158 

00159 
00150 
00161 
00162 

00163 

00164 

00165 
00168 

00167 

00168 

00169 

00170 
0017  1 

00172 

00173 

00174 

00175 

00176 

00177 

00178 

00179 

00180 
00181 
00182 
00  1 S3 
00184 


C 

C REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /RCNTRL / RCO 
COMMON  /RCNTRL/  APHEL 
COMMON  /RCNTRL/  BETA 
COMMON  /RCNTRL/  COSD 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAY5PY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTRL/  OECMAX 
COMMON  /RCNTRL/  DIST 
COMMON  /RCNTRL/  DLAT 
COMMON  /RCNTRL/  DLON 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNUt 
COMMON  /RCNTRL/  GMU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  OMEGA 2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI2 
COMMON  /RCNTRL/  PSTD 
COMMON  /RCNTRL/  PI ME AN 
COMMON  /RCNTRL/  PSMAX 
COMMON  /RCNTRL/  PSMIN 
COMMON  /RCNTRL/  P TOP 
COMMON  /RCNTRL/  RADE 
COMMON  /RCNTRL/  RGAS 
COMMON  /RCNTRL/  ROCP 
COMMON  /RCNTRL/  RSDIST 


VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  141 
VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  140 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  150 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  t56 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  175 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  180 
VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  189 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  137 
VCNTRL  193 
VCNTRL  199 
VCNTRL  200 
VCNTRL  201 
VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 


CO 
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00185 

COMMON 

/RCNTRL/ 

SDAY 

00186 

COMMON 

/ RCNTRL / 

SEASON 

00187 

COMMON 

/RCNTRL/ 

SIGE 

(25) 

00188 

COMMON 

/RCNTRL/ 

SIND 

00189 

COMMON 

/RCNTRL/ 

SOLS 

00190 

COMMON 

/RCNTRL/ 

TSTD 

00  191 

COMMON 

/RCNTRL/ 

PLEVS 

(25) 

00192 

COMMON 

/RCNTRL/ 

HEATW 

00193 

COMMON 

/RCNTRL/ 

HEAT  I 

00194 

COMMON 

/RCNTRL/ 

EPS 

00  195 

COMMON 

/RCNTRL/ 

EPSFAC 

00196 

COMMON 

/RCNTRL/ 

CALTOJ 

00197 

p 

COMMON 

/RCNTRL/ 

PZERO 

00198 

EQUIVALENCE 

( RCO , RC 1 1) > 

00199 

REAL 

RCO  * RC ( 200 

c 

C INTEGER  MODEL  CONSTANTS 

C 5SS5=  = ;ssact:  = = =;;-si-s- 


00200 

COMMON 

/ IDPARM/ 

IUUMP 

(46) 

00201 

COMMON 

/ I DP ARM/ 

IDSP02 

00202 

COMMON 

/IDPARM/ 

INDEX 

(72) 

00203 

COMMON 

/IDPARM/ 

I ROD 

00204 

COMMON 

/IDPARM/ 

dC 

(46) 

00205 

COMMON 

/IDPARM/ 

JE 

(2) 

00206 

COMMON 

/IDPARM/ 

JP 

(2,2) 

00207 

COMMON 

/IDPARM/ 

KSTEP 

00208 

COMMON 

/IDPARM/ 

MJ 

(46) 

00209 

COMMON 

/IDPARM/ 

NHMS1 

00210 

COMMON 

/IDPARM/ 

NVMD  1 

c 

C LOGICAL  MODEL  CONSTANTS 


002  1 1 

COMMON  /LDPARM/ 

FILTER  (46) 

00212 

COMMON  /LDPARM/ 

ITAPE 

00213 

c* 

COMMON  /LDPARM/ 

START 

00214 

LOGICAL 

FILTER 

00215 

LOGICAL 

ITAPE 

00216 

LOGICAL 

START 

C 

C REAL  MODEL  CONSTANTS 

C =::;c=s=tss:sssss:=: 


00217 

COMMON 

/RDPARM/ 

ADLDP 

00218 

COMMON 

/RDPARM/ 

CONI 

002  19 

COMMON 

/RDPARM/ 

CON  IDT 

00220 

COMMON 

/RDPARM/ 

C0N2 

0022  1 

COMMON 

/RDPARM/ 

C0N2DT 

00222 

C0P4M0N 

/RDPARM/ 

C0N3 

00223 

COMMON 

/RDPARM/ 

C0N3DT 

00224 

COMMON 

/RDPARM/ 

C0N4 

00225 

COMMON 

/RDPARM/ 

C0N4DT 

00226 

COMMON 

/RDPARM/ 

CONS 

00227 

COMMON 

/RDPARM/ 

COSL 

(46) 

00228 

COMMON 

/RDPARM/ 

COSLON 

( 72  ) 

00229 

COMMON 

/RDPARM/ 

CPD2 

00230 

COMPJION 

/ RDPARM/ 

OXP 

( 46  > 

0023  1 

COMMON 

/RDPARM/ 

OX  YP 

(46) 

00232 

COMMON 

/RDPARM/ 

DYP 

(46) 

00233 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

00234 

COMMON 

/RDPARM/ 

F1DT 

00235 

COMMON 

/RDPARM/ 

F2DT 

00236 

COMMON 

/RDPARM/ 

H IDT 

00237 

COMMON 

/RDPARM/ 

H2DT 

00238 

COMMON 

/RDPARM/ 

PKSTD 

00239 

COMMON 

/RDPARP4/ 

PKTOP 

00240 

COMPJION 

/RDPARM/ 

RLAT 

(46  > 

00241 

COMMON 

/RDPARM/ 

RLATD 

(46) 

00242 

COMMON 

/RDPARM/ 

ROCPDT 

00243 

COMMON 

/RDPARM/ 

ROCPP 1 

00244 

COMMON 

/RDPARM/ 

SGNP 

(2) 

VCNTRL  207 
VCNTRL  208 
VCNTRL  209 
VCNTRL  2 1 0 
VCNTRL  2 f ! 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
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00245 

COMMON 

/RDPARM/ 

SI  NL 

(46) 

VCNTRL 

278 

00246 

COMMON 

/RDPARM/ 

SINLON 

( 72) 

VCNTRL 

279 

00247 

COMMON 

/RDPARM/ 

THSTD 

VCNTRL 

280 

00248 

COMMON 

/RDPARM/ 

THSTD2 

VCNTRL 

281 

00249 

COMMON 

/RDPARM/ 

WSAVE 

f 159  ) 

VCNTRL 

282 

00250 

COMMON 

/RDPARM/ 

DSIG 

(9) 

VCNTRL 

283 

00251 

COMMON 

/RDPARM/ 

SIG 

(9) 

VCNTRL 

284 

00252 

COMMON 

/ROPARM/ 

DSIGINV 

(9) 

VCNTRL 

285 

C 

VCNTRL 

2B6 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


COMDECK  VOANDQT  RESOLUTION  VALUES 


IM 

NLA  V 
JM'L  ! 

NLA  V » t t 
HI  * NL  A V * 1 1 
tllill/  2 * 1 


= 72 
= 9 
-46 
= 99 
= 7 128 
= 23 


GLOBAL  MODEL  PROGNOSTIC  FIELDS  ( NEEDED  IN  COMPO) 


SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COMPO) 


VOANDQT 

VOANDOT 

VOANDQT 

VOANDQT 

VQANDOT 

VOANDOT 

VOANDQT 

VOANDQT 

VQANDOT 

VOANDOT 

VQANDOT 


2 

3 

4 

5 

6 

7 

8 
9 

10 
1 1 
12 


C 

S -u 

- - - 

VOANDQT 

13 

C 

VQANDQT 

14 

00253 

COMMON 

/ QANDQT / QPROGt 72,9. 11 , 

46) 

VQANDQT 

15 

C 

VQANDQT 

16 

00254 

DIMENSION 

PHIS  (7  1 28 . 1 ) 

VQANDQT 

17 

00255 

DIMENSION 

SMTH  (7128,23) 

VQANDQT 

18 

00256 

DIMENSION 

ALBEDO  (7128,1) 

VQANDQT 

19 

00257 

DIMENSION 

GT  (7128,1) 

VQANDQT 

20 

00258 

0 I ME NS I ON 

GW  (7128,1) 

VQANDQT 

21 

00259 

DIMENSION 

TS  (7128,1) 

VOANDQT 

22 

00260 

DIMENSION 

SHS  (7128.1) 

VQANDQT 

23 

00261 

DIMENSION 

P (72,99,1) 

VQANDQT 

24 

c 

VQANDQT 

25 

00262 

DIMENSION 

U (72,9.11,1) 

VQANDOT 

26 

00263 

DIMENSION 

V (72,9,11.1) 

VQANDQT 

27 

00264 

DIMENSION 

T (72,9,11,1) 

VQANDQT 

28 

00265 

DIMENSION 

SH  (72,9, 11.1) 

VOANDQT 

29 

00266 

DIMENSION 

PHI  <72,9,11.1) 

VQANDOT 

30 

c 

VQANDQT 

31 

00267 

EQUIVALENCE 

(QPROGt 1 , 1,1,1) , PHIS 

< 1 . 

1 ) ) 

VQANDQT 

32 

00268 

EQUIVALENCE 

(QPROGt 1 , 2.1,1) ,SMTH 

( 1 , 

1 ) > 

VQANDQT 

33 

00269 

EQUIVALENCE 

( QPROG ( 1 , 3,1.1) . ALBEDO < 1 . 

1 ) ) 

VOANDQT 

34 

00270 

EQUIVALENCE 

(QPROGt 1 , 4,1,1), GT 

< 1 . 

1 > > 

VQANDQT 

35 

0027  1 

EQUIVALENCE 

( QPROGt 1 , 5,1,1), GW 

< 1 . 

! ) > 

VOANDQT 

36 

00272 

EQUIVALENCE 

< QPROGt  1 , 6 , 1 , 1 ) . TS 

< 1 i 

1 > ) 

VQANDQT 

37 

00273 

EQUIVALENCE 

< QPROGt  1 , 7,1,1). SHS 

< 1 , 

1 > ) 

VQANDQT 

38 

00274 

EQUIVALENCE 

(QPROGt 1 , 8 , 1 . 1 ) , P 

( 1 . 

1,D) 

VOANDQT 

39 

c 

VQANDQT 

40 

00275 

EQUIVALENCE 

( QPROG ( 1,1.  2. 1 ) ,U  < 1 , 

1 . 1 

,1)> 

VQANDQT 

41 

00276 

EQUIVALENCE 

(QPROGt 1.1.  4 , J ) . V ( 1 . 

1 , 1 

, 1)  > 

VOANDQT 

42 

00277 

EQUIVALENCE 

( QPROG  f 1.1.  G,  1) ,T  ( 1 , 

1 , 1 

, 1 ) ) 

VQANDQT 

43 

0027B 

EQUIVALENCE 

(QPROG < 1,1.  8,11, SH  ( 1 , 

1 r 1 

, 1 ) ) 

VQANDQT 

44 

00279 

EQUIVALENCE 

(QPROGt 1,1,10,1) , PHI < 1 , 

1 . 1 

, 1 ) ) 

VQANDQT 

45 

VOANDQT  46 
VQANDOT  47 
VOANDOT  48 
VQANDOT  49 


(00280 

COMMON 

/QANDQT/  QSD I AG ( 72  .15,46) 

VOANDQT 

50 

00281 

DIMENSION 

I QSDI AG ( 72  , 15,46) 

VQANDQT 

51 

00282 

EQUIVALENCE 

( OSDIAG, I QSD I AG ) 

VOANDQT 

52 

C 

VQANDQT 

53 

00283 

COMMON 

/QANDQT/  QUO I AGt  72.9,  5,46) 

VQANDOT 

54 

C 

VQANDQT 

55 

C 

+ + + 

VQPOLES 

2 

C 

POLAR  MODEL  PROGNOSTIC  FIELDS 

VQPOLES 

3 

00284 

COMMON  /QPOLE5/ 

PP (2,2) 

VQPOLES 

4 

00285 

COMMON  /QPOLES/ 

UP (9,2,2) 

VQPOLES 

5 

00286 

COMMON  /QPOLES/ 

VP (9,2,2) 

VQPOLES 

6 

00287 

COMMON  /QPOLES/ 

TP (9,2,2) 

VQPOLES 

7 

00288 

COMMON  /QPOLES/ 

SHP< 9,2,2) 

VQPOLES 

8 

00289 

COMMON  /QPOLES/ 

PHI P ( 9 , 2 . 2 > 

VQPOLES 

9 

CO 

ss 

a 

o 


Ln 
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00290 


0029  1 


00292 

00233 


00294 

00295 

00296 

00297 

00298 

00299 

00300 
0030  1 


00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 
00310 

0031  1 

003  12 
00313 


C VO POLE 5 

BIT  0 I TTEMP  < 29808 ) VBIT 

C * * * VSHCORN 

C DEBUG  VBEGDEB 

10000  CONTINUE  VBEGDEB 

C ♦***  CYBER  VECTOR  VERSION  00.001  INPUT  lOQ  VBEGDEB 

C CYBER  VECTOR  VERSION  00  VBEGDEB 

CSSSSS5SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS2SSS5SSSSSSSSSSSSSSSSSSSSSSSSSSSVBEGDEB 


C 

c 


M = IWJ(J) 

IF  (M.EQ.O)  GO  TO  20 

♦ * *■ 

CORRECT  SPECIFIC  HUMIDITY  AT  POLES 
DO  10  L=Z , NLAY 
LM1  = L - 1 

IF  ( SHP ( LM 1 , NB , M ) . GE ,0,1  GO  TO  10 
SHP  < L , NB , M ) = SHP { L , NB  . M ) * SHP ( LM 1 , NB . M ) *DS IG ( LM 1) * DSIGI NV ( L I 

SHP < LM1 ,NB,M)  = 0 . 

10  CONTINUE 

SHP (NLAY, NB,M)  = AMAX t ( SHP t NLA V , NB , M ) , 0 . ) 

RETURN 

* » ♦ 

CORRECT  SPECIFIC  HUMIDITY  ELSEWHERE 
20  CONTINUE 

DO  30  L = 2 . NLAY 
LM  t » L - 1 

BITTEM P<  1 ; IM)  ® SH < 1 * LM 1 . NB t J ; I M ) . LT . 0 . 

IF  ( 08SCNT IBITTEMPf I ; IM) ) . EQ . 0 ) GOTO  30 
TEMPNOW  = DSI G < LM 1 ) ♦DSIGINV(L) 

WHERE { B I TTEMP ( 1 ;IM) ) 

S SH< 1 ,L,NB. J; IM)  = SH ( 1 , L , NB . J ; I M > * TEMPNOW* SH < 1 , LM1 , NB . J ; IM > 
WHERE ( B I TTEMP < 1 ; IM) ) SH ( 1 *LM1 , 1MB  , «J  ; IM)  = 0. 

30  CONTINUE 


S 


SHI  J , NLAY  , NB  . d ; IM>  * .SM  SH<  1 , NLAY  , NB  , J ; IM) 
VABS  fSHM,  NLAY  , NB  . d : IM  > ; 


END 


RETURN 


I M > ) 


V5HC0RN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

V5HC0RN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 

VSHCORN 


10 

2 

14 

2 

3 

4 

5 

6 
16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
4 1 

42 

43 

44 

45 


STATEMENT  LABEL  MAP 
- -LABEL DEFINED REFERENCES 

10  299  294  296 

10000  291 

20  302  293 

30  310  303  306 

VARIABLE  MAP 

--NAME BLOCK TYPE CLASS REFERENCES  A = ARGL  I ST  . C-CTRL  OF  DO.  I -DATA  INI  T . REREAD.  S=STORE  . W=WRI  TE 


ADATE 

CCNTRL 

CHAR  *8 

SIMPLE 

3 

16 

ADLDP 

R DP ARM 

REAL 

SIMPLE 

217 

ALBEDO 

QANDOT 

REAL 

ARRAY 

256 

269 

APHEL 

RCNTRL 

REAL 

SIMPLE 

157 

ATIME 

CCNTRL 

CHAR*8 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

158 

BITTEMP 

BIT 

ARRAY 

290 

305/S 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

196 

CC 

CCNTRL 

CHAR*8 

ARRAY 

14 

15 

CCO 

CCNTRL 

CHAR  *8 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

CCSP06 

CCNTRL 

CHARTS 

SIMPLE 

1 d 

7 

20 

CCSP07 

CCNTRL 

CHAR  *8 

SIMPLE 

8 

21 

CCSP08 

CCNTRL 

CHAR*8 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

218 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

219 

C0N2 

RDPARM 

REAL 

SIMPLE 

220 

CON20T 

RDPARM 

REAL 

SIMPLE 

221 

CON3 

RDPARM 

REAL 

SIMPLE 

222 

C0N3DT 

RDPARM 

REAL 

SIMPLE 

223 

306  308  309 

15 

*1  S 6 7 8 9 10  11 


33 

ON 


12 


CON4 

RDPARM 

REAL 

SIMPLE 

224 

t 

i 

CON4DT 

RDPARM 

REAL 

SIMPLE 

225 

C0N5 

RDPARM 

REAL 

SIMPLE 

226 

j 

COSO 

RCNTRL 

REAL 

SIMPLE 

t59 

COSL 

RDPARM 

REAL 

ARRAY 

227 

| 

COSLON 

RDPARM 

REAL 

ARRAY 

22B 

j 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

t 

\ 

CQ5 

CCNTRL 

CHARTS 

ARRAY 

12 

25 

CQU 

CCNTRL 

charts 

ARRAY 

13 

26 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

161 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

DECIVIA  X 

RCNTRL 

REAL 

SIMPLE 

163 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

297 

307 

o o 

•n  so 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

DSIGINV 

RDPARM 

REAL 

ARRAY 

252 

297 

307 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

TJ  §5 

DXP 

RDPARM 

REAL 

ARRAY 

230 

if  T+r* 

R s 

O 

ya  r 

DXYP 

RDPARM 

REAL 

ARRAY 

231 

DYP 

RDPARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

<o  *3 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

F t DT 

RDPARM 

REAL 

SIMPLE 

234 

C 5S" 

3>  Q 

F 20  T 

RDPARM 

REAL 

SIMPLE 

235 

r;  PI 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

At* 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

211 

214 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU2 

RCNTRL 

REAL 

SIMPLE 

170 

GRAV 

RCNTRL 

REAL 

SIMPLE 

171 

270 

GT 

QANDQT 

REAL 

ARRAY 

257 

GW 

QANDQT 

REAL 

ARRAY 

258 

271 

H1DT 

RDPARM 

REAL 

SIMPLE 

236 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

HEATI 

RCNTRL 

REAL 

SIMPLE 

193 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

I BLKSI Z 

ICNTRL 

INTEGER 

SIMPLE 

70 

96 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

32 

33 

34 

35 

36 

37 

ICNTRL 

INTEGER 

UNKNOWN 

27 

2S 

29 

30 

3 1 

38 

39 

40 

41 

42 

43 

44 

45 

45 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

206 

207 

208 

209 

210 

IDPARM 

INTEGER 
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VSLEXP 
VSMSHAP 
VBEGDEB 
VBEGDEB 
VBEGDEB 
VBEGDEB 


PTOP)'SLEXP(TS( 1 ,d) .PHISM .d  > 

♦ BETAG'PHISI 1 ,d> 

2 ) 

+ BETAG'PHISf 1 ,d) 


VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSM5HAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 

VSMSHAP 


2 

3 

4 

5 

6 

7 

8 
9 
2 

3 

4 

5 

6 
2 

3 

4 

5 
15 

2 

3 

4 

5 

6 

17 

18 

19 

20 
21 


24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
5B 

59 

60 
61 
62 

63 

64 
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00330 

00331 


00332 

00333 


00366 

00367 

00368 

00369 

00370 


130  CONTINUE 

POM  . r : IMNLAY  } = 

S VEXPBYK  < PQ 1 1 * 1 ; IMNLAY ) , IMNLAY ; PQ  t 1,1; IMNLAY » 

CALL  ZE  I TBEGH  8HSHF  T2F  > 


00334 

00235 

00336 

00337 

C 

c 

FLD  { 

135 

CALL 

140 

1 . J . 2 + L ; IM ) = T ( 1 , L . N0  « J ; I M ) / PQ ( 1 , L : I M ) 
CONTINUE 
ZEI TEND 

CONTINUE 

c 

» * _ * 

* * 

c 

• * » » 

U AND  V V/IND  COMPONENTS 

♦ 4 t • 

c 

c 

A p ♦ • 

00338 

c 

200 

CONTINUE 

00339 

IF  (d.NE.I  .AND.  J.NE.dNP)  GO  TO  220 

00340 

DO  210  L= 1 , NL A Y 

00341 

LL  = L NLA Y 

00342 

UVF  r 1 r J,L; IM)  = -SINLONt 1 : IM) *UP(L.NB.M) 

S 

* SGNP(M) •CO5L0N1 1 : IM ) * VP ( L . NB . M ) 

00343 

UVF ( 1 , J,LL; IM)  = -5GNP<M>  *COSLON< 1 : IM) *UP ( L . NB . M) 

S 

SINLONf 1 ; IM ) *VP { L . NB ,M) 

00344 

210 

CONTINUE 

00345 

P-1  - 

2 

00346 

GO  TO  240 

00347 

220 

CONTINUE 

00348 

CALL 

ZE I TBEG l EHSHF  UV2F) 

00349 

DO  230  L = 1 . NLA Y 

00350 

UVF ( t , J , L ; IM ) = U( 1 .L.NB. J;IM> 

00351 

UVF  ( 1 , J , L-*-NLAY  ; IM)  = V ( 1 . L . NB  . d : T M ) 

00352 

230 

CONTINUE 

00353 

CALL 

ZE I TEND 

00354 

c 

Q 

240 

CONTINUE 

c 

» ♦ * ♦ 

. » » • 

c 

+ 4*  * * 

NO  SHAPIRO  FILTER  ON  WINDS  IN  THE 

*•  * ♦ * 

c 

* * • » 

latitudinal  direction 

» » • » 

c 

Q 

» ♦ * ♦ 

• * * • 

c 

00355 

300 

CONTINUE 

00356 

Q 

DO  1 180  L=1 ,LM 

00357 

CALL 

ZEITBEG  * 8H5HAP  ) 

00358 

CALL 

SHAP { FLD ( 1 , 1 ,L) , IM. JNP, I ) 

00359 

CALL 

ZEI TEND 

00360 

1180 

CONTINUE 

00361 

Q 

DO  1190  L= 1 . LMF 

00362 

CALL 

ZEI T8EG ( 8HSHAP  ) 

00363 

CALL 

SHAP (UVF 1 1 , 1 ,L) . IM , JNP , 2 ) 

00364 

/*» 

CALL 

ZEI TEND 

00365 

1 190 

CONTINUE 

* » ■*  * 


SEA  LEVEL  PRESSURE,  SEA  LEVEL  TEMPERATURE, 
AND  POTENTIAL  TEMPERATURE 


1 200 


M = 1 


CONTINUE 
DO  13S0  Jc 1 , JNP 

IF  (U.NE.1  . AND . J.NE.JNP)  GO  TO  1240 

TSURF  = FLD ( 1 , J,2)  - BETAG*PH I S M , J ) 


VSMSHAP  6S 
VSMSHAp  66 
VSMSHAP  67 
VSMSHAP  68 
VSMSHAP  69 
VSMSHAP  70 
VSMSHAP  71 
VSMSHAP  72 
VSMSHAP  73 
VSMSHAP  74 
VSMSHAP  75 
VSMSHAP  76 
VSMSHAP  77 
VSMSHAP  78 
VSMSHAP  79 
VSMSHAP  80 
VSMSHAP  81 
VSMSHAP  82 
VSMSHAP  83 
VSMSHAP  84 
VSMSHAP  85 
VSMSHAP  86 
VSMSHAP  87 
VSMSHAP  88 
VSMSHAP  89 
VSMSHAP  90 
VSMSHAP  91 
VSMSHAP  92 
VSMSHAP  93 
VSMSHAP  94 
VSMSHAP  95 
VSMSHAP  96 
VSMSHAP  97 
VSMSHAP  98 
VSMSHAP  99 
VSMSHAP 100 
VSMSHAP 101 
V5MSHAP 102 
VSMSHAP; 03 
VSMSHAP 104 
VSMSHAP 105 
VSMSHAP 106 
VSMSHAP 107 
VSMSHAP 108 
VSMSHAP 109 
VSMSHAP! 10 
VSMSHAP 1 1 1 
VSMSHAP 1 12 
VSMSHAP 113 
VSMSHAP 1 14 
VSMSHAP 115 
VSMSHAP 1 16 
VSMSHAP 1 17 
VSMSHAP! 18 
VSMSHAP! 19 
VSMSHAP 120 
VSMSHAP 121 
VSMSHAP 122 
VSMSHAP 123 
VSMSHAP 124 
VSMSHAP 125 
VSMSHAP 126 
VSMSHAP 127 
VSMSHAP 128 
VSMSHAP  f 29 
VSMSHAP 130 
VSMSHAP13 1 
VSMSHAP 132 
VSMSHAP 133 
VSMSHAP 134 
VSMSHAP 135 
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c p-.K.'EiSi  ; . PTOP 

°0373 

00374  TP(,  00  1230  L=,.NLAV 

00376  1 230  ™‘l''N^’coMTr  = ™°L  '-VB  .'«)  L ’ * E*Pa  VK  * PP  * NS  • M 1 *SIGC  L l‘PTOC  > 

q CONTINUE 

00377 

0037J  nTr.  . . 1F  <PHI  S(1aJ}.E0  0 > rn  m 

Sols!  ,235  gt<2-J:immi)  = £ro.,1j?'2‘NLAvi,»  - BETAG*PHISr,  , d) 

00381  235  CONTINUE 

c GO  TO  ,280 

00383  '240  pq(,  , CONTINUE 

£ = FLDn*J-2;»M>  - BETAG*PMIS(,,J:iM, 

C ****  ^******^»*****#^^^#^  ^ ^ ^ ^ ^ ^ ^ 

I • Rgas*  (TS*-  -5^BETA*PHI  S/GR  A V M J * * * 

C ***♦»*****♦,  t 

c * ********♦♦•♦****♦♦♦.***  . *♦** 

Soil!  f*™  Jig  : 

:::::  * 

R(..NB<J;lM)  . FUD  ( 1 ,J  , ;IMj/pq( i ,.im1 

00389  - PTOP 

00390  pn(i  L.,.°0  ,13°  L = 1.NLAV 

« »ssi  ,>M:I;1ci,,?,,','",J,,',,,,mu  * ptop 

Hill  ^LL  ?EIT0OG,ti^F^iv0M  ’ ’ ! IMNLAY’  * IMNLAV:P0<  '•»’•  IW««-AV  1 , 

SS3S?  1250  J;L;NB’c6^NUEFLDi,’J-2^^«>*P0<..t;IM, 

00400  - °~™ 

C * * ***-***4.  „ „ * 

C * ♦ ♦ * *******p^^^^ft^^ 

C *♦**  ’***♦••*»***♦*•*♦  4.  . * 

C *****  U AND  V V/rfJD  COMPONENTS  ***** 

C *«•*■***♦♦*.*,.*-.  * * * * 

c * ***  * *«»  * * ****  «-«■  » > * » • » # ^ ^ # . * ♦ * ♦ 

00402  7300  CONTINUE 

SS3S2  LL  . L “TO,  34„ 

00405  SUP { I • IM) 

00407  ° UP(L  NB  M,  - SINLON ( , ; IM, »UVF ,, * d ;tL * 

oo;o8  o vpil.'nbImi  ; SgSffl,,»Slit«lS!J,/ftSi?{55i 

y UI1,L, NB • d * IM)  - 


VSMSHAP 1 3G 
V5MSHAP137 
VSMSHAP 138 
VSMSHAP 139 
VSMSHAP  t 40 
VSMSHAP 1 4 f 
VSMSHAP t42 
VSMSHAP  T 43 
VSMSHAP 144 
VSMSHAP  MB 
VSMSHAP 1 46 
VSMSHAP 147 
VSMSHAP  148 
VSMSHAP  M9 
VSMSHAP 750 
VSMSHAP 15  1 
VSMSHAP 152 
VSMSHAP  J53 

VSMSHAP  154 
VSMSHAP 155 
VSMSHAP 156 
VSMSHAP 157 
VSMSHAP 1 5Q 
VSMSHAP 159 
VSMSHAP 160 

VSMSHAP 161 
VSMSHAP 162 
VSMSHAP 163 
VSMSHAP 164 
VSMSHAP 165 

VSMSHAP 166 
VSMSHAP 167 
VSMSHAP 168 
VSMSHAP 169 
VSMSHAP 1 70 
VSMSHAP 171 

VSMSHAP 172 
VSMSHAP 173 
VSMSHAP 174 
VSMSHAP 175 
VSMSHAP 176 
VSMSHAP 177 
VSM5HAP 1 78 
VSMSHAP 1 79 
VSMSHAP iso 
VSMSHAP  tat 
VSMSHAP 182 
VSMSHAP 183 
VSMSHAP 184 
VSMSHAP 185 
VSMSHAP 186 
VSMSHAP 187 
VSMSHAP 188 

VSMSHAP 189 
VSMSHAP 190 
VSMSHAP 191 
VSMSHAP 1 92 
VSMSHAP 193 
VSMSHAP 194 
VSMSHAP 195 
VSMSHAP 196 
VSMSHAP 197 
VSMSHAP  7 98 
VSMSHAP 199 
VSMSHAP200 
VSMSHAP201 
VSMSHAP 202 
VSMSHAP203 
VSMSHAP204 
VSMSHAP205 
VSMSHAP206 


o o 


2 1! 
o 4 

Si 


<Q  *73 
C 55 
> 62 
£T  d 


* 


>A»g  • z)*-s,  ■ —»*'• 


SMSHAP  8 


'Tt^T 


A 


Tt  TWf  ? 


■ ;.  •:’ :•  ’<r 


, **■ 


004  t 1 

00412 

00413 
004  14 

00415 

00416 
004  17 

00418 

00419 

00420 

00421 

00422 

00423 

00424 

00425 


1320 


M * 


CONTINUE 


1340 


1360 

1380 
1 400 
1900 


GO  TO  1380 
CONTINUE 

CALL  ZE ITBEG( BHSHF  F2UV ) 

DO  1360  L= 1 , NLAY 
U(  t ,L,NB,  J;  m)  = UVFU.d.LjlM) 

V(  1 ,L«  NB  , J ; IM ) = UVFU  ,.tl , L*NLAY  ; IM) 
CONTINUE 
CALL  ZEI TEND 

CONTINUE 
CONTINUE 
CONTINUE 
WRITE  ( 3 , 6000  > 

RETURN 


C * ' * 

00426  6000  FORMAT  (‘OSHAPIRO  SMOOTHER  APPLIED 

00427  END 

STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


10000 

301 

105 

318 

315 

1 130 

391 

389 

1 180 

360 

356 

1 190 

365 

361 

1 20 

320 

308 

1200 

366 

1230 

376 

373 

1235 

380 

377 

1240 

382 

369 

1250 

396 

394 

1280 

400 

3B1 

130 

330 

328 

1300 

401 

1320 

41  1 

403 

1340 

4 14 

402 

135 

335 

333 

1360 

419 

416 

413 

1380 

421 

368 

140 

337 

319 

1400 

422 

1900 

423 

200 

33S 

210 

344 

340 

220 

347 

339 

230 

352 

349 

240 

354 

307 

346 

300 

355 

5000 

426 

424 

VSMSHAP207 
VSM5HAP208 
VSMSHAP209 
VSMSHAP2 10 
VSMSHAP21 1 
VSMSHAP2 1 2 
VSMSHAP213 
VSMSHAP2 14 
VSMSHAP2 15 
VSMSHAP216 
VSMSHAP217 
VSMSHAP218 
VSMSHAP219 
VSMSHAP220 
VSMSHAP221 
VSM5HAP222 
VSMSHAP223 
VSMSHAP224 


o o 

-n  33 
*T3  O 
02 
O > 
33  p 

tO  H 
C £ 
> G> 
i-  m 


VARIABLE  MAP 
— NAME BLOCK 


TYPE CLASS 


REFERENCES 


A-ARGLIST,  C-CTRL  OF  DO,  I=DATA  INIT,  REREAD,  S-STORE.  W^V/RITE 


ADATE 

CCNTRL 

AOLDP 

rdparm 

ALBEDO 

QANDQT 

APHEL 

RCNTRL 

ATIME 

CCNTRL 

BETA 

RCNTRL 

BETAG 

BETAG5 

BIT1 

BITTEMP 

CALTOd 

RCNTRL 

CARD 

// 

CATA 

// 

CC 

CCNTRL 

CCO 

CCNTRL 

CHAR  * B 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

SIMPLE 

CHARTS 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

BIT 

ARRAY 

BIT 

ARRAY 

REAL 

SIMPLE 

CHARTS 

ARRAY 

REAL 

ARRAY 

CHAR'S 

ARRAY 

CHAR'S 

SIMPLE 

3 

217 

16 

256 

157 

269 

4 

17 

158 

300 

302 

302/S 

303 

31  1 

303/S 

296 

321 

384 

290 

196 

39Q/S 

399 

295 

298 

295 

321/S 

322/S 

386 

387 

14 

15 

2 

14 

15 

326  327  370 


323/S  323  324 


378  383  399 


384 /S  385  /S  385 


386 


CD 

3 

CD 

SC 

iS 


VO 


CCNTRL 

REAL 

UNKNOWN 

2 

13 

7 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

tz 

CCSP06 

CCNTRL 

CHAR-8 

SIMPLE 

20 

CCSP07 

CCNTRL 

CHAR-8 

SIMPLE 

B 

21 

CCSP08 

CCNTRL 

CHAR-8 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

2 1 B 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

219 

CON  2 

RDPARM 

REAL 

SIMPLE 

220 

C0N2DT 

RDPARM 

REAL 

SIMPLE 

22  1 

CON3 

RDPARM 

REAL 

SIMPLE 

222 

CON3DT 

RDPARM 

REAL 

SIMPLE 

223 

C0N4 

RDPARM 

REAL 

SIMPLE 

224 

CON4DT 

RDPARM 

REAL 

SIMPLE 

225 

CON5 

RDPARM 

REAL 

SIMPLE 

226 

COSD 

RCNTRL 

REAL 

SIMfPLE 

159 

COSL 

RDPARM 

REAL 

AR^AY 

227 

COSLON 

RDPARM 

REAL 

ARRAY 

228 

342 

343 

405 

406 

409 

410 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

o o 

a? 

CP02 

RDPARM 

REAL 

SIMPLE 

229 

CQS 

CCNTRL 

CHAR-8 

ARRAY 

f 2 

25 

COU 

CCNTRL 

CHARTS 

ARRAY 

13 

26 

TJ  o 
O *5? 

D 1 

// 

REAL 

ARRAY 

292 

D2 

// 

REAL 

ARRAY 

292 

DATA 

// 

REAL 

ARRAY 

295 

2 § 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

161 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

iO  U 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

163 

DIST 

RCNTRL 

REAL 

SIMPLE 

164 

C £o 

DIT1 

BIT 

DESCRIPTOR 

296 

297 

> O 

£ Z P3 
- ■ 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

DSXG 

RDPARM 

REAL 

ARRAY 

250 

J I?31 

DSIGINV 

RDPARM 

REAL 

ARRAY 

25  2 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

DXP 

RDPARM 

REAL 

ARRAY 

230 

DXYP 

RDPARM 

REAL 

ARRAY 

231 

DY  1 

// 

REAL 

ARRAY 

292 

DY2 

// 

REAL 

ARRAY 

292 

DYP 

RDPARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

195 

F 1 DT 

RDPARM 

REAL 

SIMPLE 

234 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

FILTER 

LDPARM 

LOGICAL 

ARRAY 

21  1 

214 

314 

316 

FLO 

// 

REAL 

ARRAY 

293 

309/S 

310/S 

3 10 

3 1 t /S 

312/S 

312 

313/S 

3 1 4 * S 

317/S 

317 

325/5 

326/S 

3 27/S 

334/S 

358 

370 

37  1 

374 

378 

383 

388 

395 

399 

GNU  1 

RCNTRL 

REAL 

SIMPLE 

169 

GNU2 

RCNTRL 

REAL 

SIMFcF 

170 

GRAV 

RCNTRL 

REAL 

SIMPt-E 

17  7 

300 

302 

399/S 

GT 

QANDQT 

REAL 

ARRAY 

257 

270 

313 

327 

378/S 

379/S 

379 

GW 

QANDQT 

REAL 

ARRAY 

250 

27  1 

H 1 DT 

RDPARM 

REAL 

SIMPLE 

236 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

HEATI 

RCNTRL 

REAL 

SIMPLE 

193 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

IBLKSIZ 

ICNTRL' 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

36 

37 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

29 

30 

31 

32 

33 

34 

35 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

ICSP53 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

209 

210 

IDPARM 

INTEGER 

UNKNOWN 

200 

201 

202 

20«li 

204 

205 

206 

207 

208 

i 

I 


IDSP02 

IDPARM 

INTEGER 

SIMPLE 

20  1 

I EF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

I HF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

83 

IICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

88 

I JUMP 

IDPARM 

INTEGER 

ARRAY 

200 

IM 

ICNTRL 

INTEGER 

SIMPLE 

28 

321 

324 

325 

329 

334 

350 

351 

384 

384 

388 

388 

399 

399 

406 

407 

417 

4 t 7 

IMD2 

ICNTRL 

INTEGER 

SIMPLE 

29 

IMD2M1 

IMJM 

INTEGER 

SIMPLE 

299 

IMD2P 1 

ICNTRL 

INTEGER 

SIMPLE 

30 

IMJM 

INTEGER 

UNKNOWN 

299 

I MM  1 

IMJM 

INTEGER 

SIMPLE 

299 

310 

I MM2 

IMJM 

INTEGER 

SIMPLE 

299 

I MM3 

IMJM 

INTEGER 

SIMPLE 

299 

IMM4 

I M JM 

INTEGER 

SIMPLE 

299 

I MM  5 

IMJM 

INTEGER 

SIMPLE 

299 

IMNLAY 

IMJM 

INTEGER 

SIMPLE 

299 

33  1 

IMNLAV1 

IMJM 

INTEGER 

SIMPLE 

299 

IMNLAY2 

IMJM 

INTEGER 

SIMPLE 

299 

IMNLAY3 

IMJM 

INTEGER 

SIMPLE 

299 

IMNLAY4 

IMJM 

INTEGER 

SIMPLE 

299 

IMNLAY5 

IMJM 

INTEGER 

SIMPLE 

299 

IMT2 

IMJM 

INTEGER 

SIMPLE 

299 

IMT4 

IMJM 

INTEGER 

SIMPLE 

29S 

INDEX 

IDPARM 

INTEGER 

ARRAY 

202 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

9 1 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

8 1 

IPRECON 

ICNTRL 

INTEGER 

UNKNOWN 

82 

IQS 

ICNTRL 

INTEGER 

ARRAY 

77 

79 

89 

90 

IQSDIAG 

GANDOT 

INTEGER 

ARRAY 

281 

282 

IQU 

ICNTRL 

INTEGER 

ARRAY 

78 

9 1 

IRAOLW 

ICNTRL 

INTEGER 

UNKNOWN 

94 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

87 

IRADSVi 

ICNTRL 

INTEGER 

UNKNOWN 

93 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

86 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

203 

I TAPE 

LDPARM 

LOGICAL 

SIMPLE 

212 

215 

I TMAX 

ICNTRL 

INTEGER 

UNKNOWN 

80 

I TMI  N* 

ICNTRL 

INTEGER 

UNKNOWN 

79 

IUFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

89 

IVFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

90 

J 

INTEGER 

SIMPLE 

307/C 

308 

312 

312 

321 

323 

334 

334 

369 

369 

JC 

IDPARM 

JE 

IDPARM 

JIC 

CCNTRL 

JM 

ICNTRL 

JMD2 

ICNTRL 

JMT2 

ICNTRL 

JNP 

ICNTRL 

J04 

ICNTRL 

JOS 

ICNTRL 

JOB 

CCNTRL 

JP 

IDPARM 

J5P 

ICNTRL 

INTEGER  ARRAY 
INTEGER  ARRAY 
CHAR  *8  SIMPLE 

INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
INTEGER  SIMPLE 
CHARTS  SIMPLE 

INTEGER  ARRAY 
INTEGER  SIMPLE 


378 

378 

395 

395 

406 

409 

204 

205 

5 

18 

32 

33 

34 

35 

307 

36 

37 

6 

19 

206 

33 

321  321  322  322  323  323  323  324  324 
325  325  326  326  326  327  327  327  329 
334  334  342  342  342  343  343  343  350 
351  358  363  372  375  383  383  383  384 
385  3SS  3B6  386  386  387  387  387  388 
390  390  395  395  395  398  398  399  399 
405  405  405  405  405  406  406  406  406 
407  408  408  409  409  409  4t0  410  410 
418418 


312  314  317  379 


331  331  331  392  392  392  392 


80' 

81 

82 

83 

84 

85 

86 

87 

88 

92 

93 

94 

308 

309 

309 

309 

310 

313 

3 13 

313 

314 

314 

325 

325 

326 

326 

326 

339 

339 

342 

343 

350 

370 

370 

371 

371 

372 

379 

379 

383 

383 

384 

398 

399 

399 

399 

402 

410 

4 1 7 

4 17 

418 

418 

310 

311 

311 

311 

316 

3 17 

317 

321 

327 

327 

327 

329 

350 

351 

351 

368 

374 

375 

377 

378 

386 

388 

388 

390 

402 

405 

405 

406 

308  339  358  363  368  369  402 


KL  I ALB 

ICNTRL 

INTEGER 

SIMPLE 

39 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

40 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

4 1 

KS 

ICNTRL 

INTEGER 

SIMPLE 

42 

KSTEP 

IDPARM 

INTEGER 

SIMPLE 

207 

KU 

ICNTRL 

INTEGER 

SIMPLE 

43 

L 

INTEGER 

SIMPLE 

315/C 

316 

316 

316 

317 

317 

328/C 

329 

329 

333/C 

334 

334 

334 

340 /C 

34  1 

342 

342 

342 

343 

34  j 

349/C 

350 

350 

351 

351 

356/C 

358 

361 /C 

363 

373/C 

374 

374 

374 

375 

375 

389/C 

390 

390 

394/C 

395 

395 

395 

403/C 

404 

405 

406 

407 

408 

409 

409 

409 

4 10 

4 1 0 

410 

416 

417 

417 

418 

4 18 

L C 

LCNTRL 

LOGICAL 

ARRAY 

154 

155 

LCO 

LCNTRL 

LOGICAL 

SIMPLE 

97 

154 

155 

LCNTRL 

INTEGER 

UNKNOWN 

97 

98 

99 

100 

10  1 

102 

103 

104 

105 

106 

107 

108 

109 

LDIABAT 

LCNTRL 

LOGICAL 

UNKNOWN 

123 

151 

LDPARM 

INTEGER 

UNKNOWN 

21  1 

212 

213 

LEFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 15 

143 

LFUSION 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

144 

LHFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 14 

142 

LICLOUD 

LCNTRL 

LOGICAL 

UNKNOWN 

1 19 

147 

LL 

INTEGER 

SIMPLE 

341  /S 

343 

404/S 

405 

406 

LM 

INTEGER 

SIMPLE 

304/S 

356 

LNIF 

INTEGER 

SIMPLE 

305/S 

36  1 

LOG8R 

ICNTRL 

INTEGER 

SIMPLE 

44 

LOMEGA 

LCNTRL 

LOGICAL 

UNKNOWN 

122 

150 

LPREACC 

LCNTRL 

LOGICAL 

UNKNOWN 

1 12 

140 

LPRECON 

LCNTRL 

LOGICAL 

UNKNOWN 

1 13 

14  1 

LQS 

LCNTRL 

LOGICAL 

ARRAY 

108 

110 

1 11 

1 12 

113 

1 14 

1 15 

1 16 

1 17 

1 18 

1 19 

120 

121 

136 

LQU 

LCNTRL 

LOGICAL 

ARRAY 

109 

122 

123 

1 24 

1 25 

137 

LRADLW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 25 

153 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 IQ 

146 

LRADSW 

LCNTRL 

logical 

UNKNOWN 

124 

152 

LRADSWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 17 

145 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

139 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

110 

138 

LUF  LUX 

LCNTRL 

LOGICAL 

UNKNOWN 

120 

148 

LVFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

121 

149 

5Vf 

INTEGER 

SIMPLE 

306/S 

309 

316 

316 

342 

342 

342 

343 

343 

343 

345 

367/S 

37  1 

372 

374 

374 

375 

405 

406 

407 

408 

409 

409 

409 

410 

4 10 

4 1 0 

4 12/S 

MATIN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

46 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

47 

MU 

IDPARM 

INTEGER 

ARRAY 

208 

MLF 

ICNTRL 

INTEGER 

ARRAY 

48 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

49 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

51 

NB 

ICNTRL 

INTEGER 

SIMPLE 

52 

309 

316 

316 

325 

329 

334 

342 

342 

343 

343 

350 

35  1 

371 

372 

372 

374 

374 

375 

375 

388 

390 

395 

407 

408 

409 

409 

409 

4 1 0 

4 1 0 

4 10 

417 

418 

ND 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NOAY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NOHOG 

ICNTRL 

INTEGER 

SIMPLE 

76 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

57 

NDRSW 

ICNTRL 

INTEGER 

STMPLE 

31 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

58 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

59 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

62 

NHMS  1 

IDPARM 

INTEGER 

SIMPLE 

209 

NHM5E 

ICNTRL 

INTEGER 

SIMPLE 

61 

NKR5H 

ICNTRL 

INTEGER 

SIMPLE 

50 

NLAY 

ICNTRL 

INTEGER 

SIMPLE 

63 

304 

305 

313 

314 

314 

315 

327 

323 

333 

340 

341 

418 

349 

351 

373 

378 

389 

394 

399 

403 

404 

416 

OF  POOR  QUALITY 


NLAYM1 

ICNTRL 

INTEGER 

NLA YP  1 

ICNTRL 

INTEGER 

NLAYT2 

IMJM 

INTEGER 

NLAYT3 

IMJM 

INTEGER 

NLAYT4 

IMJM 

INTEGER 

NLAYJ5 

IMJM 

INTEGER 

NLAYT6 

IMJM 

INTEGER 

NLAYT7 

IMJM 

INTEGER 

NMLEV 

ICNTRL 

INTEGER 

NSDAV 

ICNTRL 

INTEGER 

NSEO 

ICNTRL 

INTEGER 

NSTEP 

ICNTRL 

INTEGER 

NYMD 

ICNTRL 

INTEGER 

NYMDO 

ICNTRL 

INTEGER 

NYMD  1 

I DP ARM 

INTEGER 

NVMOE 

ICNTRL 

INTEGER 

NZINIT 

ICNTRL 

INTEGER 

0MEGA2 

RCNTRL 

REAL 

P 

QANDQT 

REAL 

PHI 

QANDQT 

REAL 

PHIP 

QPOLES 

REAL 

PHIS 

QANDQT 

REAL 

PI 

RCNTRL 

REAL 

PI  180 

RCNTRL 

REAL 

PI  2 

RCNTRL 

REAL 

PIMEAN 

RCNTRL 

REAL 

PKSTD 

RDPARM 

REAL 

PKTOP 

RDPARM 

REAL 

PLEVS 

RCNTRL 

REAL 

PP 

QPOLES 

REAL 

PQ 

// 

REAL 

PSMAX 

RCNTRL 

REAL 

PSMIN 

RCNTRL 

REAL 

PSTD 

RCNTRL 

REAL 

PTOP 

RCNTRL 

REAL 

PZERO 

RCNTRL 

REAL 

QALT 

LCNTRL 

LOGICAL 

QANDQT 

REAL 

QBEG 

LCNTRL 

LOGICAL 

QDAY 

LCNTRL 

LOGICAL 

QEND 

LCNTRL 

LOGICAL 

QOUT 

LCNTRL 

LOGICAL 

QPHY 

LCNTRL 

LOGICAL 

QPOLES 

REAL 

QPROG 

QANDQT 

REAL 

QRSH 

LCNTRL 

LOGICAL 

QRSW 

LCNTRL 

LOGICAL 

QSDIAG 

QANOQT 

REAL 

QSHF 

LCNTRL 

LOGICAL 

QUDIAG 

QANDQT 

REAL 

RADE 

RCNTRL 

REAL 

RC 

RCNTRL 

REAL 

RCO 

RCNTRL 

REAL 

RCNTRL 

REAL 

RDPARM 

REAL 

RGAS 

RCNTRL 

REAL 

RLAT 

RDPARM 

REAL 

RLATD 

RDPARM 

REAL 

ROCP 

RCNTRL 

REAL 

ROCPDT 

RDPARM 

REAL 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

64 

SIMPLE 

65 

SIMPLE 

299 

SIMPLE 

299 

SIMPLE 

299 

SIMPLE 

299 

SIMPLE 

299 

SIMPLE 

299 

SIMPLE 

75 

SIMPLE 

66 

SIMPLE 

67 

SIMPLE 

69 

SIMPLE 

71 

SIMPLE 

73 

SIMPLE 

210 

SIMPLE 

72 

SIMPLE 

74 

SIMPLE 

172 

ARRAY 

261 

274 

325 

ARRAY 

266 

279 

ARRAY 

289 

ARRAY 

254 

267 

300 

327 

370 

371 

SIMPLE 

173 

SIMPLE 

174 

SIMPLE 

175 

SIMPLE 

177 

SIMPLE 

238 

SIMPLE 

239 

ARRAY 

191 

ARRAY 

284 

309 

316 

ARRAY 

291 

324/S 

324 

387/S 

387 

388 

SIMPLE 

178 

SIMPLE 

1 79 

SIMPLE 

176 

SIMPLE 

180 

309 

316 

SIMPLE 

197 

SIMPLE 

98 

126 

UNKNOWN 

253 

280 

283 

SIMPLE 

99 

127 

SIMPLE 

too 

128 

SIMPLE 

101 

129 

SIMPLE 

102 

130 

SIMPLE 

103 

131 

UNKNOWN 

284 

285 

286 

ARRAY 

253 

267 

268 

277 

278 

279 

SIMPLE 

107 

135 

SIMPLE 

106 

134 

ARRAY 

280 

282 

SIMPLE 

104 

132 

ARRAY 

283 

SIMPLE 

181 

ARRAY 

198 

199 

SIMPLE 

156 

198 

199 

UNKNOWN 

156 

157 

158 

167 

168 

169 

178 

179 

180 

189 

190 

191 

UNKNOWN 

217 

218 

219 

228 

229 

230 

239 

240 

241 

250 

251 

252 

SIMPLE 

182 

300 

322 

ARRAY 

240 

ARRAY 

241 

SIMPLE 

183 

SIMPLE 

242 

S I MP  L E 

243 

329 

372/S 

388 /S 

390 

300 

300 

309 

31  1 

377 

378 

383 

384 

371/S  372  374 

325  329/S  331/S  331 

390/S  392/S  392  392 


325  329  371  374 


287  288  289 

269  270  271  272 


159 

160 

161 

162 

1 70 

17  1 

172 

173 

181 

182 

183 

184 

192 

193 

194 

195 

220 

221 

222 

223 

231 

232 

233 

234 

242 

243 

244 

245 

385 


313  321  323  326 

386  398  399 


331  334  393/S  384 

395 


388  390 


273  274  275  276 


163 

164 

165 

166 

174 

175 

176 

177 

185 

186 

187 

188 

196 

197 

224 

225 

226 

227 

235 

236 

237 

238 

246 

247 

248 

249 

CO 


ORIGINAL  RAGE  IS 
OF  POOR  QUALITY 


RSDIST 

SDAY 

SEASON 

SGNP 

SH 

SHP 

SHS 

SIG 

SIGE 

SIND 

SI  NL 

SINLON 

SWISH  A P 

SMTH 

SNZFLG 

SOLS 

START 

SUP 

SVP 

T 

THSTD 

THSTD2 

TP 

TS 

TSTD 

TSURF 

U 

UP 

UVF 

V 

VER 

VP 

WSAVE 

XLABEL 

PROCEDURE 
--NAME 

c vp 

EXPBYK 

FLOAT 

QSSSUM 

SHAP 

SLEXP 

VEXP 

VEXPBYK 

ZEITBEG 

ZEI TEND 


RCNTRL 

RCNTRL 

RCNTRL 

RDPARM 

QANDQT 

QPOLES 

QANOQT 

RDPARM 

RCNTRL 

RCNTRL 

RDPARM 

RDPARM 

QANDQT 
LCNTRL 
RCNTRL 
LDP ARM 


QANDQT 

RDPARM 

RDPARM 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

logical 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 

REAL 


SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

SUBROUTINE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

SIMPLE 


QPOLES  REAL 

QANDQT  REAL 

RCNTRL  REAL 

REAL 

QANDQT  REAL 

QPOLES  REAL 

//  REAL 


ARRAY 

ARRAY 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 


QANDQT 

CCNTRL 

QPOLES 

RDPARM 

CCNTRL 


REAL 
CHAR'S 
REAL 
REAL 
CHAR *8 


ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 


184 

185 

186 

244 
265 
288 
260 
251 

187 

188 

245 

246 
1 

255 

105 

189 
213 
291 
291 
264 

247 

248 

287 

259 

190 
370/S 
262 
285 
294 
418 
263 

10 
28  S 

249 
1 1 


342 

278 

343 

405 

406 

409 

410 

273 

316 

329 

374 

390 

342 

343 

405 

406 

409 

410 

268 

132 

216 

405/S 

406/S 

277 

407 

408 
334 

375/S 

395/S 

316 

272 

374/S 

300 

375 

300 

309 

31  1 

321 

326 

371 

275 

342 

342/S 

350 

343 

343/S 

409/S 
407  /S 
350  /S 

417/S 

409 

351/S 

410 

363 

405 

405 

276 

351 

4 10/S 

418/S 

23 

342 

343 

408 /S 

409 

410 

24 


406 


MAP 

TYPE 


CLASS 


REFERENCES  D=STMT  FN  DEF . A =ARGLI ST 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 


INTRINSIC 

FUNCTION 

INTRINSIC 

INTRINSIC 

SUBROUTINE 

STAT  FUNC 

INTRINSIC 

FUNCTION 

SUBROUTINE 

SUBROUTINE 


300 

316 

374 

407 

408 

407 

408 

358 

363 

371 

300/S 

309 

324 

387 

331 

392 

357 

332 

348 

336 

353 

359 

393 

397 


4 15 
4 20 


406 
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OOOOI 


V V > W 


00002 

00003 

00004 

00005 

00006 

00007 

00008 
00009 
000  10 
0001  1 
000  12 
00013 


000  14 

00015 

00016 
00017 
000  18 

00019 

00020 
00021 
00022 

00023 

00024 

00025 
00026 


00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 
0004  1 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 


SUBROUTINE  SOLAR1  (J.HLAT) 

C 

c ***** 

C *****  COMPUTE  SOLAR  RADIATION  IN  THE  ATMOSPHERE  * 
u * * * ^ # 4 

c 

C ARGUMENTS  DESCRIPTION 
C NLAV  NUMBER  OF  SIGMA  LAYERS 

C XDAY  SOLAR  DAY  OF  THE  YEAR 

C XLAT  LATITUDE  IN  DEGREES 

C 
C 

C SAVED  ON  HISTORY  RECORD 

COMMON  /CCNTRL/CCO 

COMMON  /CCNTRL / ADATE 
COMMON  /CCNTRL/  ATIME 
COMMON  /CCNTRL/  JIC 
COMMON  /CCNTRL/  JOB 
COMMON  /CCNTRL/  CCSPOG 
COMMON  /CCNTRL/  CCSP07 
COMMON  /CCNTRL/  CCSP08 
COMMON  /CCNTRL/  VER 
COMMON  /CCNTRL/  XLABEL  (10) 

COMMON  /CCNTRL/  CQS  (30) 

COMMON  /CCNTRL/  COU  (10) 

C 

EQUIVALENCE  <CC0,CC(1)> 

CHA  RACTER  *8  CCO t CC(200) 

CHARACTER'S  ADATE 

CHARACTER'S  ATIME 

CHARACTER'8  JIC 

CHARACTER'S  JOB 

CHARACTERS  CCSP06 

CHARACTER'S  CCSP07 

CHARACTER'S  CCSP08 

CHARACTERS  VER 

CHARACTER'8  XLABEL 

CHARACTER'S  CQS 

CHARACTER'S  CQU 

C 

Q I PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  / I CNTflL / ICO 
COMMON  n CNTRL/  IM 
COMMON  /I CNTRL/  IMD2 
COMMON  / ICNTRL/  IM02P1 
COMMON  /ICNTRL/  NDRSW 
COMMON  /ICNTRL/  JM 
COMMON  /ICNTRL/  JMD2 
COMMON  /ICNTRL/  JMT2 
COMMON  /ICNTRL/  JNP 
COMMON  /ICNTRL/  J04 
COMMON  /ICNTRL/  JOS 
COMMON  /ICNTRL/  dSP 
COMMON  /ICNTRL/  KLIALB 
COMMON  /ICNTRL/  KLIGW 
COMMON  /ICNTRL/  KLISST 
COMMON  /ICNTRL/  KS 
COMMON  /ICNTRL/  KU 
COMMON  /ICNTRL/  L0G8R 
COMMON  /ICNTRL/  MATIN 
COP/MON  /ICNTRL/  MATSNX 
COMMON  /ICNTRL/  MATSUN 
COMMON  /ICNTRL/  MLF  (12) 

COMMON  /ICNTRL/  MROD 
COMMON  /ICNTRL/  NRRSH 
COMMON  /ICNTRL/  MSM 
COMMON  /ICNTRL/  NB 


VSOLAR 1 

1 2 

VSOLAR 1 

3 

VSOLAR 1 

4 

VSOLAR 1 

5 

VSOLAR 1 

6 

VSOLAR 1 

7 

VSOLAR 1 

8 

VSOLAR 1 

9 

VSOlARI 

10 

VSOLAR 1 

1 1 

VSOLARI 

12 

VSOLAR  T 

13 

VSOLAR 1 

14 

VCNTRL 

2 

VCNTRL 

3 

VCNTRL 

4 

VCNTRL 

5 

VCNTRL 

6 

VCNTRL 

7 

VCNTRL 

8 

VCNTRL 

g 

VCNTRL 

to 

VCNTRL 

1 1 

VCNTRL 

12 

VCNTRL 

13 

VCNTRL 

14 

VCNTRL 

15 

VCNTRL 

16 

VCNTRL 

17 

VCNTRL 

IS 

VCNTRL 

19 

VCNTRL 

20 

VCNTRL 

21 

VCNTRL 

22 

VCNTRL 

23 

2 o 

H si 

VCNTRL 

24 

VCNTRL 

25 

VCNTRL 

VCNTRL 

26 

27 

Si 

VCNTRL 

28 

S? 

VCNTRL 

29 

VCNTRL 

30 

VCNTRL 

VCNTRL 

31 

32 

§s 

VCNTRL 

33 

VCNTRL 

34 

VCNTRL 

35 

E P3 

VCNTRL 

36 

“1  -a 

VCNTRL 

37 

-4  m 

VCNTRL 

38 

VCNTRL 

39 

VCNTRL 

40 

VCNTRL 

4! 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

4G 

VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

51 

/CNTRL 

52 

VCNTRL 

53 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

VCNTRL 

58 

VCNTRL 

59 

S0LAR1  1 


00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

C 

00079 

00080 
0008  1 
00082 
◦ 0083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

C 

00091 

00092 

00093 

00094 

C 

00095 

00096 

C 

C 

C 

00097 

00098 

00099 

00100 
00101 
00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

c 

00110 
00111 
00112 
001  13 
00114 
001  15 
00116 


COMMON  /ICNTRL / NO 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDAV 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NDT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHMSE 
COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLA V 
COMMON  /ICNTRL/  NLAVM1 
COMMON  /ICNTRL/  NLA YP 1 
COMMON  /ICNTRL/  NSDAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  IBLKSIZ 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINIT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDHOG 
COMMON  /ICNTRL/  IQS  <301 
COMMON  /ICNTRL/  IOU  (10) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


< I TWIN  , 1 Q5  ( ID 
{ ITMAX  f IQS(  2) ) 
( I PRE ACC  , l Q5 ( 3)) 
< IPRECON  , IQSC  4) > 
(IHFLUX  . I QS ( 5)) 
{ IEFLUX  . I QS 1 6) ) 
< I FUSION  , I QS ( 7 > > 
< I RADSWG  , IQS<  8M 
(IRAOLWG  , I QS  < 9)) 
( II CLOUD  , I QS 110)) 
1IUFLUX  . I QS1 1 1 } ) 
( IVFLUX  , IQSf  12)  ) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( IOMEGA  , IQUf  1 ) ) 
( IDIABAT  , IQU(  2)  ) 
( I RADSW  , I QU ( 3)) 
< IRADLW  , IQU{  4 ) ) 


EQUIVALENCE 

INTEGER 


( ico. re < t > ) 

ICO.  IC ( 200  > 


SAVED  ON  HISTORY  RECORD 

COMMON  /LCNTRL/LCO  ============= 

COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL/  Q8EG 
COMMON  /LCNTRL/  QDAY 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMMON  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 
COMMON  /LCNTRL/  QRSW 
COMMON  /LCNTRL/  0R5H 
COMMON  /LCNTRL/  LOS (30) 

COMMON  /LCNTRL/  LQU (10) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(LTMIN  , LQS { 1)) 
(LTMAX  , LQS ( 2)) 
( LPREACC  , LQS ( 3)) 
< LPRECON  . LQS ( 4) ) 
(LHFLUX  t LQS { 5)) 
(LEFLUX  , LQS ( 6> ) 
(LFUSION  , LQS ( 7)) 


VCNTRL 

60 

VCNTRL 

61 

VCNTRL 

62 

VCNTRL 

63 

VCNTRL 

64 

VCNTRL 

65 

VCNTRL 

66 

VCNTRL 

67 

VCNTRL 

68 

VCNTRL 

69 

VCNTRL 

70 

VCNTRL 

7 1 

VCNTRL 

72 

VCNTRL 

73 

VCNTRL 

74 

VCNTRL 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRL 

79 

VCNTRL 

80 

VCNTRL 

81 

VCNTRL 

82 

VCNTRL 

83 

VCNTRL 

84 

VCNTRL 

05 

VCNTRL 

86 

VCNTRL 

87 

VCNTRL 

88 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

91 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

98 

VCNTRL 

99 

VCNTRL  100 
VCNTRL  101 
VCNTRL  102 
VCNTRL  103 
VCNTRL  104 
VCNTRL  105 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  110 
VCNTRL  111 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  115 
VCNTRL  116 
VCNTRL  117 
VCNTRL  118 
VCNTRL  119 
VCNTRL  120 
VCNTRL  T 2 1 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 
VCNTRL  128 
VCNTRL  129 
VCNTRL  130 


t-* 

% 


(O 


ORIGINAL  PACE  l 
OF  POOR  QUALITY 


I 

I 

I 


f 


f I 


00  117 

EQUIVALENCE 

( LRADSWG  , LQ5(  8>> 

VCNTRL 

131 

oot  IS 

EQUIVALENCE 

(LRADLWG  , LQS{  3)1 

VCNTRL 

132 

00  119 

EQUIVALENCE 

(LICLOUD  t LQS ( 10>  ) 

VCNTRL 

133 

00  1 20 

EQUIVALENCE 

(LUFLUX  t LQS (11)1 

VCNTRL 

134 

00  121 

EQUIVALENCE 

(LVFLU.X  , LQS { 12)  ) 

VCNTRL 

135 

C 

VCNTRL 

136 

00122 

EQUIVALENCE 

(LOMEGA  , LQU { !)) 

VCNTRL 

137 

00123 

EQUIVALENCE 

(LDIABAT  , LQU  ( 2)1 

VCNTRL 

138 

00124 

EQUIVALENCE 

(LRADSW  , LQU  ( 3)) 

VCNTRL 

139 

00  125 

EQUIVALENCE 

(LRADLW  .LQU  f 4)  > 

VCNTRL 

140 

C 

VCNTRL 

1 A 1 

00126 

LOGICAL 

QALT 

VCNTRL 

142 

00127 

LOGICAL 

QBEG 

VCNTRL 

143 

0 0 1 28 

LOGICAL 

QDAY 

VCNTRL 

144 

00  129 

LOGICAL 

QEND 

VCNTRL 

145 

00130 

LOGICAL 

QOUT 

VCNTRL 

146 

00131 

LOGICAL 

QPHY 

VCNTRL 

147 

00132 

LOGICAL 

QSHF 

VCNTRL 

148 

00133 

LOGICAL 

SN2FLG 

VCNTRL 

1 A9 

00134 

LOGICAL 

QRSW 

VCNTRL 

150 

00135 

LOGICAL 

QRSH 

VCNTRL 

151 

C 

VCNTRL 

152 

00136 

LOGICAL 

LQS 

VCNTRL 

153 

00137 

LOGICAL 

LQU 

VCNTRL 

154 

00138 

LOGICAL 

LTMIN 

VCNTRL 

155 

00139 

LOGICAL 

LTMAX 

VCNTRL 

156 

00140 

LOGICAL 

LPREACC 

VCNTRL 

157 

00141 

LOGICAL 

LPRECON 

VCNTRL 

158 

00142 

LOGICAL 

LHFLUX 

VCNTRL 

159 

00143 

LOGICAL 

LEFLUX 

VCNTRL 

160 

00144 

LOGICAL 

LFUSION 

VCNTRL 

161 

00145 

LOGICAL 

LRADSWG 

VCNTRL 

162 

00146 

LOGICAL 

LRADLWG 

VCNTRL 

163 

00147 

LOGICAL 

LICLOUD 

VCNTRL 

164 

00148 

LOGICAL 

LUFLUX 

VCNTRL 

165 

00149 

LOGICAL 

LVFLUX 

VCNTRL 

166 

C 

VCNTRL 

167 

00150 

LOGICAL 

LOMEGA 

VCNTRL 

168 

00151 

LOGICAL 

LDIABAT 

VCNTRL 

169 

00152 

LOGICAL 

LRADSW 

VCNTRL 

170 

00153 

LOGICAL 

LRADLW 

VCNTRL 

171 

C 

VCNTRL 

172 

00154 

EQUIVALENCE 

( LCO , LC ( 1 ) ) 

VCNTRL 

173 

00155 

LOGICAL 

LCO,  LC ( 200  > 

VCNTRL 

174 

c 

VCNTRL 

175 

c 

REAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

VCNTRL 

176 

c 

VCNTRL 

177 

00156 

COMMON  /RCNTRL / 

RCO 

VCNTRL 

17e 

00  157 

COMMON  /RCNTRL/ 

APHEL 

VCNTRL 

179 

00158 

COMMON  /RCNTRL/ 

BETA 

VCNTRL 

180 

00159 

COMMON  /RCNTRL/ 

COSO 

VCNTRL 

181 

00160 

COMMON  /RCNTRL/ 

CP 

VCNTRL 

182 

00161 

COMMON  /RCNTRL/ 

DAYSPY 

VCNTRL 

183 

00162 

COMMON  /RCNTRL/ 

DEC 

VCNTRL 

184 

00163 

COMMON  /RCNTRL/ 

DECMAX 

VCNTRL 

185 

00164 

COMMON  /RCNTRL/ 

DIST 

VCNTRL 

186 

00165 

COMMON  /RCNTRL/ 

DLAT 

VCNTRL 

187 

00166 

COMMON  /RCNTRL/ 

DLON 

VCNTRL 

18B 

00167 

COMMON  /RCNTRL/ 

DT 

VCNTRL 

189 

00168 

COMMON  /RCNTRL/ 

ECCN 

VCNTRL 

190 

00169 

COMMON  /RCNTRL/ 

GNU  1 

VCNTRL 

191 

00170 

COMMON  /RCNTRL/ 

GNU2 

VCNTRL 

192 

00171 

COMMON  /RCNTRL/ 

GRAV 

VCNTRL 

193 

00172 

COMMON  /RCNTRL/ 

0MEGA2 

VCNTRL 

194 

00173 

COMMON  /RCNTRL/ 

PI 

VCNTRL 

195 

00174 

COMMON  /RCNTRL/ 

PI  180 

VCNTRL 

196 

00175 

COMMON  /RCNTRL/ 

PI2 

VCNTRL 

197 

00176 

COMMON  /RCNTRL/ 

PSTD 

VCNTRL 

198 

00177 

COMMON  /RCNTRL/ 

PI ME AN 

VCNTRL 

199 

00178 

COMMON  /RCNTRL/ 

PSMA  X 

VCNTRL 

200 

00  179 

COMMON  /RCNTRL/ 

PSMIN 

VCNTRL 

201 

SOLARl  3 


00180 

COMMON 

/RCNTRL/ 

PTOP 

00181 

COMMON 

/RCNTRL/ 

RACE 

00182 

COMMON 

/RCNTRL/ 

RGAS 

00183 

COMMON 

/RCNTRL/ 

ROCP 

00184 

COMMON 

/RCNTRL/ 

RSDIST 

00185 

COMMON 

/RCNTRL/ 

SDA  V 

00186 

COMMON 

/RCNTRL/ 

SEASON 

00  187 

COMMON 

/RCNTRL/ 

5IGE 

1251 

00188 

COMMON 

/RCNTRL/ 

SIND 

00189 

COMMON 

/RCNTRL/ 

SOLS 

00190 

COMMON 

/RCNTRL/ 

TSTD 

00191 

COMMON 

/RCNTRL/ 

PLEVS 

(25) 

00192 

COMMON 

/RCNTRL/ 

HE  A TV; 

00193 

COMMON 

/RCNTRL/ 

HEATI 

00194 

COMMON 

/RCNTRL/ 

EPS 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

00136 

COMMON 

/RCNTRL/ 

CALTOJ 

00197 

Q 

COMMON 

/RCNTRL/ 

PZERO 

00198 

EQUIVALENCE 

{ RCO , RC ( 1 > ) 

00199 

C 

REAL 

4C0,  RC < 200  J 

C INTEGER  MODEL  CONSTANTS 


00200 

COMMON 

/IDPARM/ 

I JUMP 

(46) 

00201 

COMMON 

/ I DPARM/ 

IDSP02 

00202 

COMMON 

/IDPARM/ 

INDEX 

(72) 

00203 

COMMON 

/IDPARM/ 

I ROD 

00204 

COMMON 

/IDPARM/ 

JC 

(46) 

00205 

COMMON 

/IDPARM/ 

JE 

( 2 > 

00206 

COMMON 

/IDPARM/ 

JP 

(2.2) 

00207 

COMMON 

/IDPARM/ 

KSTEP 

00208 

COMMON 

/IDPARM/ 

Md 

(46) 

00209 

COMMON 

/IDPARM/ 

NHMS1 

00210 

COMMON 

/IDPARM/ 

NYMD1 

C 

Q 

LOGICAL  MODEL  CONSTANTS 

0021  1 

COMMON 

/LDPARM/ 

FILTER 

(46) 

00212 

COMMON 

/LDPARM/ 

ITAPE 

00213 

COMMON 

/LDPARM/ 

START 

00214 

LOGICAL 

FILTER 

00215 

LOGICAL 

ITAPE 

00216 

£ 

LOGICAL 

START 

c 

f* 

REAL  MODEL  CONSTANTS 

00217 

u 

COMMON 

/RDPARM/ 

ADLDP 

00218 

COMMON 

/ RDPARM/ 

CONI 

00219 

COMMON 

/RDPARM/ 

CON IDT 

00220 

COMMON 

/RDPARM/ 

C0N2 

00221 

COMMON 

/RDPARM/ 

C0N2DT 

00222 

COMMON 

/RDPARM/ 

C0N3 

00223 

COMMON 

/RDPARM/ 

C0N3DT 

00224 

COMMON 

/RDPARM/ 

CON4 

00225 

COMMON 

/RDPARM/ 

C0N40T 

00226 

COMMON 

/RDPARM/ 

CONS 

00227 

COMMON 

/RDPARM/ 

COSL 

(46) 

00228 

COMMON 

/RDPARM/ 

COSLON 

(72) 

00229 

COMMON 

/RDPARM/ 

CPD2 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

00231 

COMMON 

/RDPARM/ 

DXYP 

(46) 

00232 

COMMON 

/RDPARM/ 

DYP 

(46) 

00233 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

00234 

COMMON 

/RDPARM/ 

F1DT 

00235 

COMMON 

/RDPARM/ 

F2DT 

00236 

COMMON 

/RDPARM/ 

H1DT 

00237 

COMMON 

/RDPARM/ 

H2DT 

'00238 

COMMDN 

/RDPARM/ 

PKSTD 

00239 

COMMON 

/RDPARM/ 

PKTOP 

VCNTRL  202 
VCNTRL  203 
VCNTRL  204 
VCNTRL  205 
VCNTRL  206 
VCNTRL  207 
VCNTRL  208 
VCNTRL  209 
VCNTRL  210 
VCNTRL  211 
VCNTRL  212 
VCNTRL  213 
VCNTRL  214 
VCNTRL  215 
VCNTRL  216 
VCNTRL  217 
VCNTRL  218 
VCNTRL  219 
VCNTRL  220 
VCNTRL  221 
VCNTRL  222 
VCNTRL  223 
VCNTRL  224 
VCNTRL  225 
VCNTRL  226 
VCNTRL  227 
VCNTRL  228 
VCNTRL  229 
VCNTRL  230 
VCNTRL  231 
VCNTRL  232 
VCNTRL  233 
VCNTRL  234 
VCNTRL  235 
VCNTRL  236 
VCNTRL  237 
VCNTRL  238 
VCNTRL  239 
VCNTRL  240 
VCNTRL  241 
VCNTRL  242 
VCNTRL  243 
VCNTRL  244 
VCNTRL  245 
VCNTRL  246 
VCNTRL  247 
VCNTRL  248 
VCNTRL  249 
VCNTRL  250 
VCNTRL  251 
VCNTRL  252 
VCNTRL  253 
VCNTRL  254 
VCNTRL  255 
VCNTRL  256 
VCNTRL  257 
VCNTRL  258 
VCNTRL  259 
VCNTRL  260 
VCNTRL  261 
VCNTRL  262 
VCNTRL  263 
VCNTRL  264 
VCNTRL  265 
VCNTRL  266 
VCNTRL  267 
VCNTRL  268 
VCNTRL  269 
VCNTRL  270 
VCNTRL  271 
VCNTRL  272 


00240 

COMMON 

/ RDPARM/ 

RL  AT 

< 46  ) 

0024  1 

COMMON 

/RDPARM/ 

RLATD 

‘ 46  ) 

00242 

COMMON 

/RDPARM/ 

ROCPDT 

00243 

COMMON 

/RDPARM/ 

R0CPP1 

00244 

COMMON 

/RDPARM/ 

SGNP 

(2) 

00245 

COMMON 

/RDPARM/ 

SIPJL 

( 46) 

00246 

COMMON 

/RDPARM/ 

SINLON 

(72) 

00247 

COMMON 

/RDPARM/ 

TH5TD 

0024S 

COMMON 

/RDPARM/ 

THSTD2 

00249 

COMMON 

/RDPARM/ 

WSAVE 

( 159  ) 

00250 

COMMON 

/RDPARM/ 

DSIG 

(9) 

0025  1 

COMMON 

/RDPARM/ 

SIG 

( 9 ) 

00762 

C 

COMMON 

/RDPARM/ 

OSIGINV 

(9) 

00253 

C 

C 

PHYSICS  PARAMETERS 

AND  COI 

COMMON 

/ CNTRLP / 

CDF  R 

00254 

COMMON 

/CNTRLP / 

CDKL 

00255 

COMMON 

/CNTRLP/ 

CDXO 

00256 

COMMON 

/CNTRLP/ 

CLH 

00257 

COMMON 

/CNTRLP/ 

COE 

00258 

COMMON 

/CNTRLP/ 

COEF 

00259 

COMMON 

/CNTRLP/ 

COEFS 

00260 

COMMON 

/CNTRLP/ 

COSROT 

00261 

COMMON 

/CNTRLP/ 

CPP 

00262 

COMMON 

/CNTRLP/ 

CTID 

00263 

COMMON 

/CNTRLP/ 

CUMDAY 

00264 

COMMON 

/CNTRLP/ 

CUMRAT 

00265 

COMMON 

/CNTRLP/ 

CIO 

00266 

COMMON 

/CNTRLP/ 

C100 

00267 

COMMON 

/CNTRLP/ 

C40 

00268 

COMMON 

/CNTRLP/ 

DELTA 

00269 

COMMON 

/CNTRLP/ 

DTC3 

00270 

COMMON 

/CNTRLP/ 

DTOUT 

0027  f 

COMMON 

/CNTRLP/ 

ED 

00272 

COMMON 

/CNTRLP/ 

EDNM 

00273 

COMMON 

/CNTRLP/ 

FCOEF 

00274 

COMMON 

/CNTRLP/ 

FMU 

00275 

COMMON 

/CNTRLP/ 

FWET 

00276 

COMMON 

/CNTRLP/ 

GAMFAC 

00277 

COMMON 

/CNTRLP/ 

GTOPO 

00278 

COMMON 

/CNTRLP/ 

MICE 

00279 

COMMON 

/CNTRLP/ 

NDTC3 

00280 

COMMON 

/CNTRLP/ 

NFLW 

0028  1 

COMMON 

/CNTRLP/ 

PIM 

00282 

COMMON 

/CNTRLP/ 

QHOG 

00283 

COMMON 

/CNTRLP/ 

SHL  TOP 

00284 

COMMON 

/CNTRLP/ 

SINROT 

00285 

COMMON 

/CNTRLP/ 

SNOWN 

00286 

COMMON 

/CNTRLP/ 

SNOWS 

00287 

COMMON 

/CNTRLP/ 

STBO 

00288 

COMMON 

/CNTRLP/ 

STERP1 

00289 

COMMON 

/CNTRLP/ 

STERP2 

00290 

COMMON 

/CNTRLP/ 

TICE 

00291 

COMMON 

/CNTRLP/ 

TLTOP 

00292 

COMMON 

/CNTRLP/ 

XDAY 

00293 

COMMON 

/CNTRLP/ 

2LNC0 

00294 

LOGICAL 

QHOG 

00295 

00296 

00297 

00298 

00299 

00300 

00301 

00302 

00303 

00304 


(9) 


RADIATION  AND  SOURCE  TERM  FIELDS 

COMMON  /RADCOM/  AS (72,9).  RE<72,10) 

COMMON  /RADCOM/  PL<72,3>,  PLEC72  10) 
COMMON  /RADCOM/  PLK<72,9),  PLKEMO) 
COMMON  /RADCOM/  TL<72t9),  TLE(72.10) 

COMMON  /RADCOM/  TGJ72)  , TH<72  9) 
COMMON  /RADCOM/  SHL<72,9>.  SHLE(72,I0> 


COMMON  /RADCOM/  390(72), 


COMMON  /RADCOM/  SI 
COMMON  /RADCOM/  RF 
COMMON  /RADCOM/  SS 


CLOUD  < 72 „ 12) 


ISAT  ( 72 , 9 ) t GAM  ( 72 , 9 ) ^ 
1(72.9) 

is  ( 72 , 9 ) , SS5E  ( 72 , 10) 


/ T-J  - 


3 

4 

5 

6 

7 

8 
9 

10 


VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  286 
VCNTRLP  2 
VCNTRLP 
VCNTRLP 
VCNTRLP 
VCNTRLP 
VCNTRLP 
VCNTRLP 
VCNTRLP 
VCNTRLP 
VCNTRLP  1 1 
VCNTRLP  12 
VCNTRLP  13 
VCNTRLP  14 
VCNTRLP  15 
VCNTRLP  16 
VCNTRLP  17 
VCNTRLP  18 
VCNTRLP  19 
VCNTRLP  20 
VCNTRLP  21 
VCNTRLP  22 
VCNTRLP  23 
VCNTRLP  24 
VCNTRLP  25 
VCNTRLP  26 
VCNTRLP  27 
VCNTRLP  28 
VCNTRLP  29 
VCNTRLP  30 
VCNTRLP  31 
VCNTRLP  32 
VCNTRLP  33 
VCNTRLP  34 
VCNTRLP  35 
VCNTRLP  36 
VCNTRLP  37 
VCNTRLP  38 
VCNTRLP  39 
VCNTRLP  40 
VCNTRLP  41 
VCNTRLP  42 
VCNTRLP  43 
VCNTRLP  44 
VCNTRLP  45 
VCNTRLP  46 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM 
VRADCOM  _ 
VRADCOM  10 
VRADCOM  II 
VRADCOM  12 
VRADCOM  13 


2 

3 

4 

5 

6 
7 
0 
9 


ORIGINAL  PAQ1  Si 
OF  POOR  QUALITY 


00305 

00306 

00307 

00308 

00309 
003  to 
003  t t 

00312 

00313 

00314 

00315 

00316 

00317 

00318 
003  19 
00320 
003  21 

00322 

00323 

00324 

00325 

00326 


00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 

00340 
0034  1 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 


00350 
0035  1 


00352 

00353 


00354 


00355 

00356 

00357 


HME ( 72 . 10) 

CVQ (72,9) 

SWI L ( 72 , 9 ) 


SRS<9>,  STN  < 9 ) 


C 

c 

c 


COMMON  /R ACCOM/  HH172.9) 

COMMON  /RAOCO M/  HHS 17279! 

COMMON  /RADCOM/  CVT (72.9) 

COMMON  /RADCOM/  CXDE(9> 

COMMON  /RADCOM/  SWALEf72,10) 

COMMON  /RADCOM/  AL(72,10>  

COMMON  /RADCOM/  TAUL  ( 72  101  n7Aic/-?^ 

COMMON  /HADCOM/  TOPABS(72)  ' OZALE,72-'°' 
COMMON  /RADCOM/  ON < 9 ) , TN(9>  coc# 

COMMON  /RADCOM/  7CONDO)  TPPWPfQ. 

COMMON  /RADCOM/  TLOWLTMioi  N.IL 
COMMON  /RADCOM/  FK<5>  XKlkl  k'u°Z 
COMMON  /RADCOM/  OL  JAN{  1 1?  ‘ ^LAPR  M <J  1 
COMMON  /RADCOM/  OCM22(23>'  OPIMO 
COMMON  /RADCOM/  PR0CM23  ’ orSiSJ?? 

COMMON  /RADCOM/  CZH{72)  WE??7^  fwin 

COMMON  /RADCOM  / COSZ<72>  I£  ‘ oLtI.V.?E  • 

COMMON  /RADCOM/  SC<  72T  ’spf/2  > * 2 ’ ’ C*L 

B ,'KggK  KKKrf?" SigV5«T«»!  i*“ 

COMMON  /RADCOM/  SNOW,  72,'  S?^|};  |^?2»2l 
LAND.  OCEAN.  ICE,  SNOW.  MIXWI. 

DVNSor^I0^nRJABiSES°?7i?^"*  SUBROUT  I NE 

£2.™  /OSOLAR/  TOTABS ( 72  ! 

C0SMAG1 72 ) 


OL JUL (19),  OLOCTI 19) 
0CM38  f 23 ) . 0CM46123) 
N02.  T0T0ZI4).  CDATE(G) 
PREP ( 72 ) . WII721 


FROST 


C 

C 

c 


c 

c 


COMMON  /DSOLAR / 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
COMMON  /DSOLAR/ 
LOGICAL 


SCOSZ172) 

FSCAT ( 72 ) 

RCLEAR (72) 

TEMPI  172,9) 

FCLOUD (72 ) 

FCLEAR  < 72 ) 

Wf  72) 

AQLEAR (72  > 

ACLOUO 172) 

WW (72 ) 

NTOPTf 72) 

NTOPF (72 ) 

NTOP ( 72 ) 

DARK  C 72 ) 

CLEAR { 72 ) 

CLOUD V < 72 ) 

FCLD<  72 ) 

TEMP (72) 

RF(72  ) 

DARK.  CLEAR,  CLOUDV,  FCLD 


BlTaV?R.If BLES  SOLAR  1 SUBROUTINE 

BtJ  **SCUD  1 72  } * SUNNY , 72  ) * HA2V,72> 


BIT72172) 


AWATER(X) 
AOZONE ( X ) 


*X> 


1 • S 1 *X ) ♦ * „ 635  * 5 925* 

_ i .08t73*x/( I :S  t j:^8°5l,:4^0032^> 

c 5 * 0.08BBOM/":oo  /|lSI:B3i;r?:§?® 

C DEBUG 
10000  CONTINUE 

c **  SB  SIS5SS  Xi2i?SSI  22-«"  INPUT 


VRADCOM  14 
VRADCOM  15 
VRAOCOM  16 
VRADCOM  17 
VRADCOM  18 
VRADCOM  19 
VRADCOM  20 
VRAOCOM  21 
VRADCOM  22 
VRADCOM  23 
VRADCOM  24 
VRADCOM  25 
VRADCOM  26 
VRADCOM  27 
VRADCOM  28 
VRADCOM  29 
VRADCOM  30 
VRADCOM  31 
VRADCOM  32 
VRADCOM  33 
VRADCOM  34 
VRADCOM  35 
VRAOCOM  36 
VDSOLAR  2 
VDSOLAR  3 
VDSOLAR  4 
VDSOLAR  * 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR 
VDSOLAR  l6, 
VDSOLAR  20 
VDSOLAR  21 
VDSOLAR  22 
VDSOLAR  23 
VDSOLAR  24 
VDSOLAR  25 
VDSOLAR  26 
VDSOLAR  27 
VBSOLAR  2 
VBSOLAR  3 
VBSOLAR  4 
VBSOLAR  5 
VBSOLAR 
VSOLARI 
VSOLAR1 
VSOLARI 
VSOLARI 
VSOLARI 
VSOLARI 
VBEGDEB 
VBEGDEB 
VBEGDEB 


7 

8 
9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 
19 


20 
2 1 
22 

23 

24 

25 


C CYBPR  oI2Sl0N  °<>*001  INPUT  IOQ  VBEGDEB 

CSSSSSSSSS^^il««iSJ22rt.VERSION  00  VBEGDEB 

g MS-SSSSSSSSSSSSSSSSMSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSMSSSSSSsEIIggH 

NLAYPI  = fji  A v 4-  t 


NLAYP1  = NLAVM 
NLAYP2  a NLAY+2 
NLAVP3  = NLAY+3 


VSOLARI 
VSOLARI 
VSOLAR 1 
VSOLARI 
VSOLARI 


27 

28 

29 

30 

31 

32 


‘2  “0 

£■  js? 

g o 

C 


SOLARl  6 


00358 


00359 

00360 

00361 

00362 

00363 


00364 

00365 

00366 

00367 

00363 

00369 

00370 
0037  t 

00372 

00373 

00374 


00375 

00376 

00377 

00378 

00379 

00380 
0038J 

00382 

00383 


00384 

00385 

00386 

00387 


C 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


IMNLAY  = IM*NLAY 


NIGHT  TIME  SOLAR  RADIATION 


WM;IM)  = 1.0 
WW(1;IM>  = 0.0 
SG< 1 ; XM)  =0,0 

AS  ( 1 t 1 ; IMNLAY)  = 0.0 
TEMPI ( 1 # 1 ; IMNLAY)  = 0.0 


*****  COMPOTE  COSINE  OF  SOLAR  ZENITH  ANGLE 

*****  DARK:  LOGICAL  ARRAY  WHICH  IS  .TRUE. 

FOR  GRID-POINTS  WHICH  DO  NOT 
*****  RECIEVE  ANY  SOLAR  RADIATION. 

*****  LIGHT:  BIT  ARRAY  WHICH  IS  1 

*****  FOR  GRID-POINTS  WHICH  00 

*****  RECIEVE  SOLAR  RADIATION. 


SINLO  = SI NL ( J ) *S I ND 

= SINROT-SINLOMMJIMI  - COSROT*COSLON ( 1 ; I M > 
TEMPI 1;IM>  = COSD  * TEMPI  1 ; IM) 

COSZ!1;IM)  = S1NLD  + COSL  I J> -TEMP  I I ; IM) 

NDARK  r 0 
DO  999  1=1 , IM 

DARK ( I)  = COSZ(I)  .LT.  0.01 
IF  I DARK! I)  ) NDARK  = NDARK  + 1 
999  CONTINUE 

IFI  NDARK. EQ.IM  ) RETURN 
CALL  LOGTOB  (DARK , LIGHT , IM 1 > 


PARTITION  OF  INCIDENT  FLUX  SUBJECT  TO  SCATTERING 


GSTAR  = SHLTOP/ I SORT { TLTOP  > *GTOPO  > 


WHERE!  LIGHT! 1 
RMEAN I 1 ; IM)  = 
TOTABS I 1 ; IM  > * 
TEMP  I 1 ; IM)  = 
TEMP  I 1 ; IM)  = 
COSMAGI 1 ; IM)  a 
SC0SZ(1;IM>  = 
FSCAT ( 1 ; IM)  = 


IM)  ) 

0.0 
0 . 0 

1 224 . 0*COSZ I 1 ; IM)*COSZ( f ;£M> 
VSQRT I TEMP! 1 ; IM) ; TEMP ( 1 ; IM) 
35.0/TEMP! 1 ; IM) 

SO*  COSZ! 1 ; IM) 

0 . 647  *SC0S2 ( 1 : IM) 


1 .0 


SCALED  WATER  VAPOR  CONTENT  ABOVE  EACH  LAYER  EDGE  **** 


TEMPI ( 1 ,NLAY ; IM) 
SWALE ( 1 . 1 : IM) 
ENDWHERE 


PLE! 1.1; IM)*PLE! 1 , 1 ; IM) 
TEMP  1(1, NLAY; IM) *GSTAR 


LM1  = NLAV 


VSOLARi  33 
VSOLAR1  34 
VSOLARI  35 
VSOLARI  36 
VSOLARI  37 
VSOLARI  38 
VSOLARI  39 
VSOLARI  40 
VSOLARI  4? 
VSOLARI  42 
VSOLARI  43 
VSOLARI  44 
VSOLARI  45 
VSOLARI  46 
VSOLARI  47 
VSOLARI  48 
VSOLARI  49 
VSOLARI  50 
VSOLARI  51 
VSOLARI  52 
VSOLARI  S3 
VSOLARI  54 
VSOLARI  55 
VSOLARI  56 
VSOLARI  57 
VSOLARI  58 
VSOLARI  59 
VSOLARI  60 
VSOLARI  61 
VSOLARI  62 
VSOLARI  63 
VSOLARI  64 
VSOLARI  65 
VSOLARI  66 
VSOLARt  67 
VSOLARI  68 
VSOLARI  69 
VSOLARI  70 
VSOLARt  71 
VSOLARI  72 
VSOLARI  73 
VSOLARI  74 
VSOLARI  75 
VSOLARI  76 
VSOLARI  77 
VSOLARI  78 
VSOLARI  79 
VSOLARI  80 
VSOLARt  SI 
VSOLARI  82 
VSOLARI  83 
VSOLARI  84 
VSOLARI  85 
VSOLARt  86 
VSOLARI  87 
VSOLARI  88 
VSOLARI  89 
VSOLARI  90 
VSOLARI  91 
VSOLARI  92 
VSOLARI  93 
VSOLARI  94 
VSOLARI  95 
VSOLARI  96 
VSOLARI  97 
VSOLARI  98 
VSOLARt  99 
VSOLARI 100 
VSOLARI |01 
VSOLARI 102 
VSOLARI 103 


o o 

*Tt  2 

*0  G5 

O 

73  r 

<0  -® 
C Jg 
3?  © 
r*  pa 


S0LAR1  7 


00388 

00389 

00390 

00391 

00392 

00393 

00394 


00393 

00396 

00397 

00398 

00399 


00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00408 

00409 

00410 

00411 

00412 

00413 

00414 

00415 

00416 

00417 
004  18 
004  19 

00420 

00421 

00422 

00423 

00424 

00425 

00426 

00427 

00428 


DO  120  L = 1 , NL  AY 
LP  1 = L ♦ 1 

WHERE ( LIGHT* 1;IM>  > 

TEMPI * 1 ,L: IM)  = PLE< 1 , LP  1 ; IM ) *PLE ( 1 , LP  f ;IM) 

TEMPI 1;XM)  = VSQRT ( TL  * 1 , L ; IM)  ; TEMP * 1 ; IM)  ) 

TEMPI 1$XM>  = 1.0  / * TEMP ( 1 ; IM) ‘GTOPO  ) 

WI1;IM)  = I TEMP  1 < 1 , L ; IM ) - TEMP  1 < 1 , LM 1 ; IM  > ) * SHL*1.L;IM) 
S * TEMP* 1 ; IM) 

SWIL*  1 , L ; IM ) = W<  1 ; IM) 

SWALE (1 , LPt ; IM)  = SWAL E I 1 , L : I M ) ♦ W<1;IM) 

ENDWHERE 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LM  1 “ L 
120  CONTINUE 


>■*  * * 
* * * * 


CALCULATE  CLOUD-TOP  LEVEL 
FRACTIONAL  AREA  OF  CLOUDY  SHY 
FRACTIONAL  AREA  OF  CLEAR  SKY 


NTOPT 

FCLOUD 

FCLEAR 


NOTE:  IN  CURRENT  VERSION,  IF  CLOUDS  EXISTS  THEY  ARE 

ASSUMED  TO  OCCUPY  THE  ENTIRE  GRID  ELEMENT. 

THUS,  FOR  A GRID  ELEMENT  CONTAINING  CLOUDS  * 

WE.  HAVE:  CLOUD  I I, L)  = 1.0 

FCLOUD  * I , L ) = 1.0 
FQLEAfl  * I , L ) = 0.0 

DEFINE  LOGICALS: 

CLEAR:  .TRUE.  FOR  GRID-POINTS  COHTAJ&SNG  NO  CLOUDS 

CLOUDY:  .TRUE.  FOR  GRID-POINTS  CONTAINING  ANY  CLOUDS 


DEFINE  BITS: 
HAZY: 
SUNNY: 


FOR  GRID-POINTS  CONTAINING  ANY  CLOUDS 
FOR  GRID-POINTS  CONTAINING  NO  CLOUDS 


WHERE*  LIGHT  f 1 ; IM)  ) 

FCLOUD ( 1 ; IM)  = 0.0 
FCLEaR { 1 ; IM)  - 1.0 

NTOPT ( 1 ; IM)  = NLAYP1 
NTOPF  * 1 ; IM)  = NLAYP1 
ENDWHERE 

DO  106<i  1=1  , IM 

IF*  DARK! I)  ) GO  TO  1060 

DO  140  L = 2 , NLA V 

XX  = CLOUD ( I , L ) 

IF  (XX. LT. 0.01) 
IF  (XX. GT. 0.99) 
FC  = AMAX 1 * XX , FCLOUDII)  ) 


FCLOUD* I > 
FCLEAR ( I > 


130  CONTINUE 


= FC 

= 1.0-  FCLOUD f X ) 

IF  I NTOPF  * I ) .LT.NLAY) 


NTOPF* I)  = L 


IF 


140  CONTINUE 
060  CONTINUE 


(NTOPT* I ) 
NTOPT* I ) 
FCLEAR { I ) 


LT.NLAY) 
= L 
= 0.0 


GO 

TO 

140 

GO 

TO 

130 

GO 

TO 

140 

GO 

TO 

140 

GO 

TO 

140 

00  1069  1=1, IM 
CLEAR* I ) 

CLOUDY* I)  = FCLEAR* I)  .LT 
069  CONTINUE 


FCLEARU)  .GT.  0.99 

0.01 


CALL  LOGTOB  * CLEAR. HAZY 


VSOLAR 1 1 04 
VSOLAR 1 1 05 
VSOLAR 1 106 
VSOLAR 1 107 
VSOLAR 11 08 
VSOLAR 1 109 
VSOLAR 1 1 10 
VSOLAR 1 1 1 1 
VSOLAR 1 1 12 
VSOLAR 1 1 13 
VSOLAR 1 1 14 
VSOLAR 1 1 15 
VSOLAR 1116 
VSOLAR 1 117 
VSOLAR 1 1 18 
VSOLAR 1 1 19 
♦VSOLAR 1120 
-VSOLAR 1121 
♦VSOLAR 1 1 22 
♦VSOLAR 1 123 
♦VSOLAR 1 124 
♦VSOLAR 1 125 
♦VSOLAR 1 126 
•VSOLAR 1 127 
•VSOLAR 1 128 
* VSOLAR 1 129 
♦VS0LAR1 130 
♦V50LAR1 131 
* VSOLAR 1 132 
•VSOLAR 1 133 
♦VSOLAR 1 ! 34 
♦VSOLAR1 135 
•VSOLAR 1 136 
-VSOLAR | 137 
♦VSOLAR 1 138 
♦VSOLAR 1 139 
♦VS0LAR1 140 
♦VSOLAR 1 141 
VSOLAR 1 142 
VSOLAR 1 143 
VSOLAR 1 144 
VSOLAR 1 145 
VSOLAR 1 146 
VSOLAR 1 147 
VSOLAR 1 140 
VSOLAR 1 149 
VSOLAR 1 150 
VSOLAR 1 151 
VSOLAR 1 152 
VSOLAR1 153 
VSOLAR 1 154 
VSOLAR 1 155 
VS0LAR1 156 
VSOLAR 1157 
VS0LAR1 158 
VSOLAR 1 159 
VSOLAR 1 160 
VSOLAR 1 161 
VSOLAR 1 162 
VSOLAR 1 163 
VS0LAR1 164 
VSOLAR 1 165 
VS0LAR1 166 
VSOLAR 1 167 
VSOLAR 1 168 
VSOLAR 1 169 
VSOLAR t 170 
VSOLAR 1171 
VSOLAR 1 172 
VSOLAR 1 173 
VSOLAR 1 174 


OF  POOR  QUALITY 


Ju.i.VJ.1.. 


VSOLAR  1 t 75 
VSOLAR 1 176 
VSOLAR 1 177 
VSOLAR 1 178 
VSOLAR 1 179 
VSOLAR 1 180 
VSOLAR 1 181 
VSOLAR 1 182 
VSOLAR 1 183 
VSOLAR  1 ie<* 
VSOLAR 1 185 
VSOLAR 1 186 
VSOLAR  f 187 
VSOLAR 1 188 
VSOLAR 1 189 
VSOLAR 1 190 
VSOLAR 1 191 
VSOLAR 1 192 
VSOLAR 1 193 
VSOLAR! 194 
VSOLAR 1 195 
VS0LAR1 196 
VSOLAR 1 197 
VSOLAR  t 198 
VSOLAR 1 199 
VSOLAR 1 200 
VSOLAR 1 20 1 
VSOLAR 1202 
VSOLAR 1 203 
VSOLAR 1204 
VSOLAR 1205 
VSOLAR 1206 
VSOLAR 1 207 
VSOLAR 1 208 
VS0LAR1 209 
VSOLAR 1210 
VSOLAR 121  I 
VSOLAR 1212 
VSOLAR 1 2 13 
VSOLAR 12 14 
VSOLAR 1215 
VSOLAR 1216 
VSOLAR 12 17 
VSOLAR 12 18 
VSOLAR 1219 
VSOLAR 1 220 
VSOLAR 1 22 1 
VSOLAR 1222 
VSOLAR 1223 
VSOLAR 1 224 
VSOLAR 1 225 
VSOLAR 1226 
VSOLAR 1 227 
VSOLAR 1 228 
VSOLAR 1229 
VSOLAR 1 230 
VSOLAR 1231 
VSOLAR 1 232 
VSOLAR 1233 
VSOLAR 1234 
VSOLAR 1235 
VSOLAR 1236 
VSOLAR 1237 
VSOLAR 1238 
VSOLAR 1239 
VSOLAR 1 240 
VSOLAR 1241 
VSOLAR 1 242 
VSOLAR 1243 
VSOLAR 1244 
VSOLAR 1245 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


00457 

00458 

00459 

00460 


00461 

00462 

00463 

00464 

00465 

00466 

00467 
0046S 

00469 

00470 

0047  1 

00472 

00473 

00474 

00475 

00476 

00477 

00478 

00479 

00480 

00481 

00482 

00483 


00484 

00485 

00486 

00487 

00488 

00489 


00490 

00491 


00492 

00493 

00494 

00495 

00496 

00497 

00498 


C 

C 

C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

C 


C 


c 


c 


c 


c 


c 

c 


c 


*****  RAYLEIGH  SCATTERING  AND  CLEAR  ATMOSPHERE  REFLECTIVITY 

( M • » 


WHERE*  LIGHT* t;IM)  .AND,  SUNNY* 1 ; IM)  ) 

TEMPI  1;IM)  = 1.0  * 6 . 43 **COSZ * 1 ; IM) 

TEMP * 1 ; IM ) “ 0 * 433  / TEMP*1;IM) 

flCLEAH  < 1 ; IM ) = TEMP*1;IM>  * *1.0  - TEMP  * 1 ; IM)  ) * . 907  #RSURF  * 1 ; IM  > 
S / *1.0  - .093-RSURF* 1 ; IM) 


♦*♦♦*  ABSORPTION  BY  WATER  VAPOR  IN  CLEAR  ATMOSPHERE 


V/ * I ; I M ) = SWALE  * 1 « 1 ; IM)  *COSMAG(  1 ; IM) 

END WHERE 

TEMPI M .NLAY; IM)  = VWATER*  W*  1 ; IM ) . IM ; TEMP  1 ( 1 . NLA Y ; I M ) > 

WHERE*  LIGHT* 1 ; IM)  .AND.  SUNNY* 1;XM>  > 

TOP ABS  < 1 ; I M ) = TEMP  1*1. NLAY ; IM) 

ENDWHERE 


LM1  = NLAY 
DO  210  L=! , NLAY 
LP1  = L * 1 

WHERE*  LIGHT*  1 ; IM)  .AND.  SUNNY ( 1 ; IM  > ) 

S W f 1 ; I M ) - SWALE  t 1 . LP  1 ; IM) *COSMAG* 1 ; IM) 

TEMPI  ( 1 ,L; IM)  = VWATER*  W ( 1 ; IM > , I M ; TEMP  1 * 1 , L ; IM > ) 

V/HERE*  LIGHT*  1;IM>  .AND.  SUNNY*  1;IM)  ) 

AL  * 1 , L ; I M ) = TEMPI  * 1 .L; IM)  - TEMP  1*1. LM1 ; IM) 
ENDWHERE 
LM1  = L 
210  CONTINUE 


WHERE*  LIGHT* t;IM>  .AND.  SUNNY  < 1 ; IM*  ) 

TEMP  * 1 ; IM ) = 1.0  - TEMPI* 1,  ( V:IL1) 

RF  < 1 ; IM)  = TEMP*  1 ; IM)  *RSUui-  * 1 ; IM) 

ALM  .NLAYP1  ;IM>  = (TEMP(1;I(VU  - 0.647JM1.0  - RSURF*1;IM)) 
ENDWHERE 


BIT72* 1 ; IM)  = RF*1;IM>  .GE.  0.001 

WHERE*  LIGHT*  1;IM>  .AND.  SUNNY*  « ; I M I .AND.  BIT72*1;IM)  ) 

S WW * 1 ; I M ) = W*1;IM)**1.0  * 1 . 66/COSMAGM ; IM) ) 

LM1  = NLAY 
DO  220  L - 1 , NLAY 
M = NLA YP 1 - L 

WHERE*  LIGHT*  1 ; IM)  .AND.  SUNNY*  1;1M>  .AND.  BIT72M;IM>  ) 

S V/dsIM)  s WWIIjlMI  - 1 ,66*  SWALE  fl  ,M;  IM) 

TEMPI ( 1 tL; IM)  = VWATER*  W* 1 : IM) ( IM; TEMP  1* 1 , L ; IM)  ) 
WHERE*  LIGHT* 1 ; TM)  .AND.  SUNNY  M ; IM ) .AND.  BIT72*1;IM>  ) 

S ALM.M;IM)  = AL*  ! . M;  IM)  * * TEMP  1 * 1 . L ;IM) 

S - TEMP  1 ( 1 ,LM1  ;IM)  )*RFM  ; IM) 

LM1  = L 
220  CONTINUE 


WHERE*  LIGHT*  1 ; IM)  fANi/ 


ACLEAR* 1 j 
SGM; 

RMEAN  * 1 ! 
TOT ABS* 1 i 
ENDWHERE 


IM)  = 
IM)  = 

4r 

IM)  = 
IM)  ' 


FCLEAR* 1 
FCLEAR*  1 
SCOS2* 1 
FCLEAR*  1 
TOTABS*  t 


l ; IM)  ) 

1 oUOSZ* 1 ; IM) 

l M > * * FSCAT * 1 ; IM) * { 1 -O  - RCLEAR  < t 
IM) *AL ( 1 , NLA YP 1 ; IM) > 

IM) ♦RCLEAR { 1 : IM) 

IM) * ACLEAR* 1 ; JM)* TOP ABS* 1 ; XM) 


IM)  > 


VSOLAR 1 246 

♦ VSOLAR 1247 

♦ VSOLAR 1248 

♦ VSOLAR 1 249 

♦ VSOLAR 1250 

♦ VSOLAR 1251 
VSOLAR 1252 
VSOLAR 1253 
VSOLAR 1254 
VSOLAR 1 255 
VSOLAR 1256 

) VSOLAR 1257 
VSOLAR 1 253 
VSOLAR 1 2S9 
VSOLAR 1260 
VSOLAR 1 26 1 
VSOLAR 1262 
VSOLAR 1263 
VSOLAR 1264 
VSOLAR 1265 
VSOLAR 1266 
VSOLAR 1267 
VSOLAR 1 268 
VSOLAR 1269 
VSOLAR 1270 
VSOLAR 1 27 1 
VSOLAR 1 272 
VSOLAR 1 273 
VSOLAR 1 27  4 
VSOLAR 1275 
VSOLAR 1276 
VSOLAR 1 277 
VSOLAR 1 278 
VSOLAR 1 279 
VSOLAR 1280 
VSOLAR 1281 
VSOLAR 1 28^ 
VSOLAR 12 
VSOLAR1 

vscn.Ar : 

VSOLAR 1286 
VSOLAR 1287 
VSOLAR 1288 
VSOLAR 1289 
VSOLAR 1 290 
VSOLAR 1291 
VSCLAR1292 
VSOLAR 1 293 
VSOLAR 1294 
VSOLAR 1295 
VSOLAR 1296 
VSOLAR 1297 
VSOLAR 1298 
VSOLAR 1299 
VSOLAR 1 300 
VSOLAR 1 30 1 
VSOLAR 1 302 
VSOLAR 1 303 
VSOLAR 1304 
VSOLAR 1 305 
VSOLAR 1 306 
VSOLAR 1 307 
VSOLAR 1308 
VSOLAR 1309 
VSOLAR 1310 
VS0LAR131 1 
VSOLAR 1312 
VSOLAR 1313 
VSOLAR 1 3 1 4 
VSOLAR 13 15 
VSOLAR 1316 


CD 

O 

t* 

> 


O 


DO  240  L= 1 ,MLA Y 


OF  POOR  QUALITY 


WHERE  1 L IGHT i 1 ; I M } .AND*  SUNNYM;IM>  ) 
240SCOMTINUEAS<,,L!lM’  = ACt6AB<1:IM>-AU<1.L:IMl 


ABSORPTION  BY  WATER  VAPOR  IN  CLOUDY  ATMOSPHERE 


WHERE < LIGHT ( 1 ; IM)  .AND*  HAZYMjlM)  } 

S NTOP ( 1 ; IM } = NTOPT  < 1 : IM ) 

BI  T72M  ; IM).  = NTOPFM;IM>  . LT . NT0PT(1;1M> 

IM>  'AWD*  HAZY  (1;  nun  .AND*  B I T72  < 1 ; IM  ) > 
S NTOPMjIM)  = NTOPFM;IM> 


CALI  ZEI TBEG( 8HCLOUDS  ) 
CALL  CLOUDS  (IM.NLAY.D 
CALL  ZE I TEND 


WHERE ( LIGHT i 1 
A CLOUD ( 1 ; IM)  = 
SGM;IM)  = 


RMEAN ( 1 : IM) 
TOTABS( 1 ; IM) 
ENDWHERE 


IM)  .AND.  HAZY { t ; IM)  ) 

FCLOUD ( 1 ; IM) 'SCOSZ < t ; IM) 

SOM  ; IM)  «•  FCLOUD ( 1 ;ItVt) 
t F5CAT  M;1M)*M.0  - RCLOUD  ( 1 ; IM ) > 

SCOSZ  < 1 ; IM>  * AL( 1 .NLAYP1 ; IM)  ) 

RM£AN<  1 ; IM  > * FCLOUD  < 1 ; I M ) * RCLOUD ( 1 ; IM ) 
TOTABS  M ; IM ) * ACLOUD ( t ; IM ) - TOP ABS ( 1 ; I M ) 


DO  260  L = 1 , NLA  Y 

WHERE1  LIGHT  II:  IFJI I .AND.  HAZYMjlM)  ) 

260SC0NTINUEASn 'L? lM>  = AS<1»L;IM)  + ACLOUD < 1 : IM ) -AL (1 . L ; I M > 

DO  t 22B  1-1  , I M 

I F ( DARK ( I ) .OR.  CLEAR (I)  ) GOTO  1226 

FCLDm  = FCLOUD  ( I ) .GT.  0.99 
1225  CONTINUE 


CALL  LOGTOB  < FCLD , SCUD , IM , - 1 ) 

WHERE ( L I GHT ( 1 ; IM ) t AND . HAZYU;IM) 
NTOPMjIM)  = NTOPT  f 1 ; IM) 

FCLOUD ( 1 ; IM > = 1.0  - FCLOUD  M ; IM) 
ENDWHERE 


.AND.  SCUD(1;tMI  ) 


DO  270  L = 1 , NL AY 

BIT72M;IM)  = CLOUD  ( 1 t L ; IM ) .LT.  0.99 
WHERE  ( LIGHT  ( 1 ; IM ) .AND.  HAZYMjlM) 

S .AND.  SCUD  ( t ; IM ) .AND.  BIT72M;IM)  ) 

S TAUL  M f L: IM)  - 0.0 

270  CONTINUE 

CALL  ZEITBEG<8HCLOUDS  ) 

CALL  CLOUDS  f I M , N L A Y f 2 ) 

CALL  ZE I TEND 

WHERE ( LIGHT  M ; INI)  .AND.  HA  ZY ( 1 ; IM ) .AND.  SCUD(1;IM) 


ACLOUD ( 1 ; IM) 
SG(1;IM) 


RMEAN  < 1 ; IM) 
TOTABS ( 1 ; IM) 
ENDWHERE 


- FCLOUD ( 1 ; IM)  * SC0SZ<1;IM) 

* SGMjIM)  + FCLOUD  < 1 ; I M ) 

*■  < FSCAT  l 1 ; IM)  * < 1 . 0 - RCLOUD  11  ; I M ) ) 

* SCOSZ ( I j IH)»AU1, NLA YP  1 : IM)  ) 

B RMEAN 1 1 ; IM ) + FCLOUD M ; IM) - RCLOUD ( 1 ; IM > 
“ TOTABS ( 1 : IM ) + ACLOUD M ; IM ) * TOPABS ( 1 ; IM ) 


DO  2B0  L= 1 t NLA Y 
WHEREf  LIGHT  M ; 1 M > .AND. 
S ASMtL;IM>  = 

280  CONTINUE 


HA  ZY I 1 ; I M ) 
AS  f 1 ,L  ; IM) 


. AND . SCUD  < 1 ; I M ) ) 

+ ACLOUD  < 1 ; IM ) *AL  f 1 . L ; IM ) 


VSOLAR 1317 
VSOLAR 13 18 
VSOLAR 1319 
VSOLAR 1 320 
VSOLAR 1 32 1 
VSOLAR 1322 
VSOLAR 1 323 
VSOLAR 1 324 
VSOLAR 1 325 
VSOLAR 1326 
VSOLAR 1327 
VSOLAR 1328 
VSOLAR 1329 
VSOLAR 1330 
VSOLAR 1331 
VSOLAR 1 332 
VSOLAR 1 333 
VSOLAR 1 334 
VSOLAR 1335 
VSOLAR 1336 
VSOLAR 1337 
VSOLAR 1338 
VSOLAR 1339 
VSOLAR 1340 
VSOLAR 134 1 
VSOLAR 1342 
VSOLAR 1343 
VSOLAR 1344 
VSOLAR 1345 
VSOLAR  T 346 
VSOLAR 1347 
VSOLAR 134B 
VSOLAR 1 349 
VSOLAR 1 350 
VSOLAR 1 35 1 
VSOLAR 1352 
VSOLAR 1353 
VSOLAR 1 354 
VSOLAR 1355 
VSOLAR  1 356 
VSOLAR  1 357 
VSOLAR 1 358 
VSOLAR 1 359 
VSOLAR 1360 
VSOLAR 1 36 1 
VSOLAR 1 362 
VSOLAR 1 363 
VSOLAR 1 364 
VSOLAR 1 365 
VSOLAR 1 366 
VSOLAR 1367 
VSOLAR 1368 
VSOLAR 1 369 
VSOLAR 1 370 
VSOLAR 1371 
VSOLAR 1372 
VSOLAR 1373 
VSOLAR 1 374 
VSOLAR 1 375 
VSOLAR 1376 
VSOLAR 1377 
VSOLAR 1378 
VSOLAR  » 379 
VSOLAR 1 3BO 
VSOLAR 1381 
VSOLAR 1382 
VSOLAR 1 383 
VSOLAR 1 384 
VSOLAR 1 385 
VSOLAR 1386 
VSOLAR 13B7 
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0054  1 

00542 

00543 

00544 


00545 

00546 

00547 

00548 


00549 

00550 
0055  t 

00552 

00553 

00554 

00555 

00556 

00557 

00558 

00559 

00560 

00561 

00562 

00563 

00564 

00565 


00566 

00567 

00568 

00569 

00570 
0057  I 

00572 

00573 

00574 

00575 


C 

c 

c 

c 

c 

c 

c 


EFFECTIVE  CLEAR  SKY  RAYLEIGH  ALBEDO  FOR  OZONE  ABSORPTION 


WHERE  ( LIGHT  < 1 ; INI ) .AND.  . NOT  . HAZY  ( 1 ; I M > I 
TEMP ( 1 ; IM ) = 0.2186  / (1.0  * 0 . 8 1 6 ♦COSZ ( 1 i I M ) ) 

RMEAN  * 1 ; IM  > = TEMPM;IMJ  * M.O  - TEMP  ( f ; INI)  | * 0 . 856  • RSURF  t 1 : I M > 
s / (1,0  - 0 . 144*RSURF U ; IM) ) 

ENDWHERE 


ROUTINE  PROVIDES  OZONE  CM  ABOVE  EACH  LAYER  EDGE 


NLA YO 1 = NLAYOZ  * 1 
CALL  ZEI TBEG1 8H0Z0NE2  ) 

CALL  0Z0NE2  * IM . NL A YOI . XDA Y , XL AT ) 
CALL  ZE I TEND 


COMBINED  UVVIS  OZONE  ABSORPTION  OF  INCOMING  SOLAR  RADIATION 


WHERE*  LZGHT(l:IM)  > W< 1 ; IM)  = OZALE * 1 . 1 ; I M ) *COSMAG < 1 ; IM > 
TEMP 1<1, NLAYOZ ; I M ) = VOZON ( W ( 1 ; I M } , IM : TEMP  1 1 1 t NL A YOZ ; I M i 
WHERE*  LIGHT*  1 ; I.M)  ) 

IM)  + TEMPI  * 1 .NLAYOZ; IM) 

IM)  * SG( 1 ; IM) 


TOTABS  * 1 ; IM)  = TOTABS  < 1 
S * SCOSZM 

ENDWHERE 


C 

C 

C 

C 

C 

C 

C 


LM1  = NLAYOZ 
DO  310  L - 1 .NLAYOZ 
LP!  = L * 1 

WHERE  * LIGHT*  1 ; IM) 
S W* 1 ; IM) 

TEMPI * 1 ,L; IM) 
WHERE  * LIGHT*  1 : IM) 
AS* I . L; IM) 
S 

ENDWHERE 
LM1  = L 
310  CONTINUE 

LP  i = NLAYOZ  * 1 
WHERE*  LIGHT* 1 ; IM) 
S WW(1;IM) 


) 

= OZALE  * 1 , LP 1 ; IM ) +COSMAG  * 1 ; IM) 

= VOZON*  W< I ; IM) , IMjTEMP 1 ( 1 ,L;IM>  ) 

J 

= AS  f 1 . L : 1 M ) + (TEMPtM.L  ; IM) 

- TEMPI  * 1 .LM1  ; IM)  ) *SCOSZ*  1 


> 

= OZALE* 1 .LP1 ; IM) • (COSMAG* 1 ; IM)  * 1.90) 


IM  > 


COMBINED  UV*VIS  OZONE  ABSORPTION  OF  REFLECTED  SOLAR  RADIATION 


LM1  = NLAYOZ 
DO  320  L - 1 .NLAYOZ 
M = NLA YOI  - L 

WHERE*  L I GHT  * t ; IM ) ! 

RF ( 1 ; I M ) = SCOSZ* 1 ; IM) ♦RMEAN* 1 ; IM) 

V/  ( t ; I M ) =WW*1;IM)  -*  I . 90+OZALE * 1 . M ; IM > 

ENDWHERE 

TEMP  1 ( 1 , L ; IM)  = VOZON*  W *1  ; IM > , IM ; TEMP  1 * 1 , L ; t M ) ) 

WHERE*  LIGHT* 1 ; IM)  ) 

AS  * 1 , M ; IM ) = AS  * t , M : IM)  *■  <TEMP1*1.L  ;IM) 

S - TEMPI  * 1 .LM1 : IM) )*RF * 1 ; IM> 


* VSOLAR 1 388 
•VSOLAR13B9 
•VSOLAR 1 390 
•VSOLAR 1391 
•VSOLAR 1392 
VSOLAR 1393 
VSOLAR 1394 
VSOLAR 1395 
VSOLAR 1 396 
VSOLAR 1 397 
VSOLAR 1398 
VSOLAR 1399 
VSOLAR 1 400 
VSOLAR 1 40 1 
VSOLAR 1402 
VSOLAR 1403 
VSOLAR 1404 
VSOLAR 1 405 
VSOLAR 1406 
VSOLAR 1407 
VSOLAR 1408 
VSOLAR 1409 
VSOLAR 1 410 
♦VSOLAR 1 4 1 1 
♦VSOLAR 1 4 ! 2 
♦VSOLAR  14  13 
•VSOLAR 14  14 
•VSOLAR 1415 
VSOLAR 14  16 
VSOLAR 1417 
VSOLAR 14  18 
VSOLAR 1419 
VSOLAR 1 420 
VSOLAR 1 421 
VSOLAR 1422 
VSOLAR 1423 
VSOLAR 1424 
VSOLAR 1425 
VSOLAR 1426 
VSOLAR 1427 
VSOLAR 1428 
VSOLAR 1429 
VSOLAR 1430 
VSOLAR 1431 
VSOLAR 1432 
VSOLAR I 433 
VSOLAR 1434 
VSOLAR  T 435 
VSOLAR 1 436 
VSOLAR 1 437 
VSOLAR 1 438 
VSOLAR 1 439 
VSOLAR 1440 
♦VSOLAR 1441 
•VSOLAR 1 442 
♦VSOLAR 1443 
♦VSOLAR 1444 
•VSOLAR 1445 
VSOLAR 1 446 
VSOLAR 1 447 
VSOLAR 1448 
VSOLAR 1449 
VSOLAR 1 450 
VSOLAR 1451 
VSOLAR 1452 
VSOLAR 1453 
VSOLAR 1 454 
VSOLAR 1 455 
VSOLAR 1 456 
VSOLAR 1457 
VSOLAR 1 458 


zn 

o 

t-* 


g 


to 


_4* nlA 
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L± 


-ij. — 5J — 1 *U  ; ... 


. ^ 


00576 

C 

ENDWHERE 

00577 

LM1  = L 

0057B 

C 

320  CONTINUE 

/ 

00579 

RETURN 

00580 

ENO 

VS0LAR1459 
VSOLAR  1 460 
VSOLAR  1 461 
VS0LAR1462 
VSOLAR 1463 
VSOLAR 1 464 
VSOLAR 1465 


STATEMENT 

LABEL  MAP 

--LABEL-- 

-DEFINED-- 

-REFERENCES 

10000 

354 

1060 

423 

406 

407 

1069 

427 

424 

1090 

456 

437 

438 

1095 

443 

440 

1 100 

448 

445 

120 

339 

388 

1225 

5 19 

516 

517 

130 

4 1 8 

4 1 1 

140 

422 

408 

410 

150 

436 

432 

180 

455 

452 

210 

476  . 

468 

220 

49  1 

485 

240 

500 

498 

260 

5 15 

5 13 

270 

528 

525 

280 

540 

538 

310 

563 

555 

320 

578 

567 

999 

372 

369 

4 19 


i ; : 

A': 


i 

h 

i 

i 


ii 
. I 

I 


VARIABLE  MAP 


-NAME 

BLOCK 

TYPE 

--CLASS-- 

ACLEAR 

DSOLAR 

REAL 

ARRAY 

ACLOUD 

DSOLAR 

REAL 

ARRAY 

ADATE 

CCNTRL 

CHAR'S 

SIMPLE 

ADLDP 

ROPARM 

REAL 

SIMPLE 

AL 

RADCOM 

REAL 

ARRAY 

APHEL 

RCNTRL 

REAL 

SIMPLE 

AS 

RADCOM 

REAL 

ARRAY 

ATIME 

CCNTRL 

CHARTS 

SIMPLE 

BETA 

RCNTRL 

REAL 

SIMPLE 

BIT72 

BIT 

ARRAY 

CIO 

CNTRLP 

REAL 

SIMPLE 

c too 

CNTRLP 

REAL 

SIMPLE 

C40 

CNTRLP 

REAL 

SIMPLE 

CAL  TO J 

RCNTRL 

REAL 

SIMPLE 

CC 

CCNTRL 

CHAR-8 

ARRAY 

CCO 

CCNTRL 

CHAR-8 

SIMPLE 

CCNTRL 

REAL 

UNKNOWN 

CCSP06 

CCNTRL 

CHAR'S 

SIMPLE 

CCSP07 

CCNTRL 

CHAR -8 

SIMPLE 

CCSP08 

CCNTRL 

CHAR '8 

SIMPLE 

CDATE 

RADCOM 

REAL 

ARRAY 

CDFR 

CNTRLP 

REAL 

SIMPLE 

CDKL 

CNTRLP 

REAL 

SIMPLE 

CDHO 

CNTRLP 

REAL 

SIMPLE 

CLEAR 

DSOLAR 

LOGICAL 

ARRAY 

CLH 

CNTRLP 

REAL 

SIMPLE 

CLOUD 

RADCOM 

REAL 

ARRAY 

CLOUDY 

DSOLAR 

LOGICAL 

ARRAY 

CNTRLP 

REAL 

UNKNOWN 

REFERENCES 

A = 

ARGLIST, 

C = CTRL 

OF  DO. 

337 

493/S 

496 

499 

338 

508/S 

5 1 1 

514 

533 /S 

3 

16 

217 

310 

473/S 

480  /S 

489/S 

489 

157 

295 

362/S 

499  /S 

5 1 4 / S 

5 14 

4 

17 

15S 

350 

430/S 

431 

434 /S 

435 

526/S 

265 

266 
267 
196 

527 

14 

15 

2 

14 

15 

2 

3 

4 

5 

6 

13 

7 

20 

8 

21 

9 

22 

3 19 

253 

254 

255 

344 

349 

425/S 

428 

438 

256 

301 

409 

434 

439 

444 

345 

349 

426/S 

429 

253 

254 

255 

256 

257 

264 

265 

266 

267 

268 

275 

276 

277 

278 

279 

266 

287 

288 

289 

290 

I =DATA  INIT,  REREAD . S^STORE » W=WRITE 
536  539 


494 

499 

509 

514 

534 

539 

539/S 

539 

560  /S 

560 

575/S 

575 

482/S 

483 

487 

489 

502/S 

503 

7 

8 

9 

10 

1 1 

12 

517 


449 

526 

258 

259 

260 

26  1 

262 

263 

269 

270 

271 

272 

273 

274 

280 

281 

282 

233 

284 

285 

291 

292 

293 
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is 

••  .! 

/ ij 


• i! 


• j 
i • i 

COf£ 

CNTRLP 

REAL 

ARRAY 

» f 

COcF 

CNTRLP 

REAL 

SIMPLE 

CCEFS 

CNTRLP 

REAL 

SIMPLE 

« : 
( 

CUN  1 

RDP ARM 

REAL 

SIMPLE 

*.  '• 

r ON  IDT 

RDPARM 

REAL 

SIMPLE 

CON2 

RDP ARM 

REAL 

SIMPLE 

CON2DT 

RDPARM 

REAL 

SIMPLE 

i 

CON3 

RDPARM 

REAL 

SIMPLE 

i 

CON3DT 

RDPARM 

REAL 

SIMPLE 

t 1 

CON4 

RDPARM 

REAL 

SIMPLE 

i 

C0N4DT 

RDPARM 

REAL 

SIMPLE 

CONS 

RDPARM 

REAL 

SIMPLE 

( 

COSD 

RCNTRL 

REAL 

SIMPLE 

i 

COSL 

RDPARM 

REAL 

ARRAY 

i 

COSLON 

RDPARM 

REAL 

ARRAY 

t 

COSMAG 

DSOLAR 

REAL 

ARRAY 

1 

COSROT 

CNTRLP 

REAL 

SIMPLE 

COSZ 

RADCOM 

REAL 

ARRAY 

CP 

RCNTRL 

REAL 

SIMPLE 

CPD2 

RDPARM 

REAL 

SIMPLE 

CPP 

CNTRLP 

REAL 

SIMPLE 

CQS 

CCNTRL 

CHAR  * 8 

ARRAY 

COU 

CCNTPL 

CHAR  *8 

ARRAY 

CTID 

CNTRLP 

REAL 

SIMPLE 

CUMDAY 

CNTRLP 

REAL 

SIMPLE 

CUMRAT 

CNTRLP 

REAL 

SIMPLE 

,V. 

CVQ 

RADCOM 

REAL 

ARRAY 

1 

CUT 

RADCOM 

REAL 

ARRAY 

A CXDE 

RADCOM 

REAL 

ARRAY 

• • C XL 

RADCOM 

REAL 

SIMPLE 

:4 

CZH 

RADCOM 

REAL 

ARRAY 

* 

DARK 

DSOLAR 

LOGICAL 

ARRAY 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

DEC 

flCNTRL 

REAL 

SIMPLE 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

f 

DELTA 

CNTRLP 

REAL 

SIMPLE 

!* 

D I ST 

RCNTRL 

REAL 

SIMPLE 

i 1 

DLAT 

RCNTRL 

REAL 

SIMPLE 

u 

DLON 

RCNTRL 

REAL 

SIMPLE 

\ 

DSIG 

RDPARM 

REAL 

ARRAY 

\v 

DSIGINV 

RDPARM 

REAL 

ARRAY 

1 1 

DSOLAR 

REAL 

UNKNOWN 

| dt 

RCNTRL 

REAL 

SIMPLE 

) i DTC3 

CNTRLP 

REAL 

SIMPLE 

\ ‘ 

DTOUT 

CNTRLP 

REAL 

SIMPLE 

l 

DXP 

ropavmui 

REAL 

ARRAY 

l 

DXYP 

RDPARM 

REAL 

ARRAY 

D VP 

RDPARM 

REAL 

ARRAY 

[ « 

ECCN 

RCNTRL 

aL 

SIMPLE 

ED 

CNTRLP 

REAL 

SIMPLE 

EDNM 

CNTRLP 

REAL 

SIMPLE 

EPS 

RCNTRL 

REAL 

SIMPLE 

j-r 

EPSFAC 

RCNTRL 

REAL 

SIMPLE 

i 

EVAP 

RADCOM 

REAL 

SIMPLE 

F IDT 

RDPARM 

REAL 

SIMPLE 

F2DT 

RDPARM 

REAL 

SIMPLE 

h 

FC 

REAL 

SIMPLE 

FCLD 

DSOLAR 

LOGICAL 

ARRAY 

[ 

fclear 

DSOLAR 

REAL 

ARRAY 

| 

FCLOUD 

DSOLAR 

REAL 

ARRAY 

|" 

FCOEF 

CNTRLP 

REAL 

SIMPLE 

\ ' 

FCORLS 

RDPARM 

REAL 

ARRAY 

\ ■■ 

\ FILTER 

ldparm 

LOGICAL 

ARRAY 

I FK 

RADCOM 

REAL 

ARRAY 

. FMU 

CNTRLP 

REAL 

SIMPLE 

* FROST 

RADCOM 

LOGICAL 

ARRAY 

1 1 

FSCAT 

DSOLAR 

REAL 

ARRAY 

r jj  FWET 

CNTRLP 

REAL 

SIMPLE 

257 

258 

259 
218 
2 19 
220 
221 
222 

223 

224 

225 

226 


1 59 

366 

227 

367 

228 

329 

365 

381/S 

46  1 

470 

483 

549 

557 

565 

260 

321 

365 

367/S 

370 

379 

379 

382 

45B 

542 

160 

229 

261 

12 

13 

262 

263 

264 
307 

307 

308 
321 
320 
343 
161 
162 

163 
268 

164 

165 

166 
250 
252 
327 
338 

167 

269 

270 
230 
23  1 
232 

168 
27  1 
272 

194 

195 
320 


25 

26 


349 


439 


328 

339 


370/S  371 


374 


407 


438 


517 


444 


449 


329  330 

340  341 


331 

342 


332 

343 


333 

344 


334 

345 


335  336 

346  347 


337 

348 


234 

235 
412/S 
346 
335 
334 
523/S 

273 
233 
211 
316 

274 
325 
331 

275 


413 
349 
402/S 
40  1/S 
5 23 

518/S 

414/S 

412 

533 

520 
421  /S 
4 13/S 
534 

425 
4 1 4 
535 

426 

430 

493 

431/S 

494 

508 

495 

509 

510 

518 

214 

326 

383/S 

494 

509 

534 
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GAM 

RADCOM 

REAL 

ARRAY 

30  2 

GAWIFAC 

CNTRLP 

REAL 

SIMPLE 

27  6 

GNU  1 

rcntrl 

REAL 

SIMPLE 

169 

GNU2 

RCNTRL 

REAL 

SIMPLE 

170 

GRAV 

RCNTRL 

REAL 

SIMPLE 

171 

GSTAR 

REAL 

SIMPLE 

375/S 

385 

GTOPO 

cntrlp 

REAL 

SIMPLE 

277 

375 

393 

H1DT 

RDP ARM 

REAL 

SIMPLE 

236 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

HAZY 

BIT 

ARRAY 

350 

428 

431 

433 

435 

501 

503 

507 

5 14 

521 

527 

532 

539 

54  1 

HEAT! 

RCNTRL 

REAL 

SIMPLE 

193 

HEAT17 

RCNTRL 

REAL 

SIMPLE 

192 

HH 

RADCOM 

REAL 

ARRAV 

305 

HHE 

R A DCOM 

REAL 

ARRAY 

305 

HHS 

RADCOM 

REAL 

ARRAY 

306 

MICE 

CNTRLP 

REAL 

SIMPLE 

278 

r 

INTEGER 

SIMPLE 

369/C 

370 

370 

371 

406/  C 

407 

409 

412 

4i3 

414 

4 14 

415 

416 

419 

420 

42  1 

424/C 

425 

425 

426 

426 

437 

43B 

438 

439 

dd  2 

444 

447 

449 

453 

516/C 

517 

517 

518 

518 

IBLKSIZ 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

96 

ICE 

RADCOM 

LOGICAL 

ARRAY 

324 

326 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

29 

30 

3 1 

32 

33 

34 

35 

36 

37 

38 

39 

40 

4 1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

ICSP53 

7 7 

72 

73 

74 

75 

76 

77 

78 

ICNTRL 

INTEGER 

SIMPLE 

68 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

I DP ARM 

IDPARM 

INTEGER 

UNKNOWN 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

IDSP02 

INTEGER 

SIMPLE 

20  1 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

IFU5ION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

I HF  LUX 

ICNTRL 

INTEGER 

UNKNOWN 

S3 

IICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

as 

I JUMP 

I DPARP/f 

INTEGER 

ARRAY 

200 

IM 

ICNTRL 

INTEGER 

SIMPLE 

28 

358 

359 

360 

361 

365 

365 

365 

366 

366 

367 

367 

369 

373 

374 

376 

377 

378 

379 

379 

379 

380 

380 

380 

38  1 

381 

382 

382 

383 

383 

384 

384 

384 

385 

385 

390 

391 

391 

391 

392 

392 

392 

333 

393 

394 

394 

394 

394 

394 

395 

395 

396 

396 

396 

400 

401 

402 

403 

404 

406 

424 

428 

429 

430 

430 

431 

431 

431 

431 

433 

433 

433 

434 

434 

435 

435 

435 

435 

437 

457 

457 

458 

458 

459 

459 

460 

460 

460 

o o 

460 

460 

461 

46  1 

461 

463 

462 

463 

463 

464 

464 

465 

465 

470 

470 

470 

470 

470 

471 

471 

471 

471 

472 

472 

473 

473 

473 

477 

477 

478 

47B 

479 

479 

*«•*» 

479 

480 

480 

480 

482 

482 

483 

483 

483 

483 

483 

483 

487 

487 

487 

<187 

487 

487 

488 

488 

488 

488 

8 2 

489 

489 

489 

489 

489 

489 

489 

489 

492 

492 

493 

O 2s> 

493 

493 

494 

494 

4 94 

494 

494 

494 

495 

495 

495 

3d  jS 

496 

496 

496 

495 

499 

499 

499 

499 

499 

501 

501 

iO  TJ 

c.£ 

>4& 

c ra 

501 

501 

502 

502 

502 

503 

503 

503 

503 

503 

505 

507 

507 

508 

508 

508 

509 

509 

509 

509 

509 

509 

509 

510 

510 

510 

5 10 

511 

51  1 

51  1 

5 1 1 

514 

514 

514 

5 14 

514 

514 

5 16 

520 

521 

521 

521 

522 

522 

523 

532 

523 

532 

526 

533 

526 

533 

5 27 
533 

527 

534 

527 

534 

527 

534 

527 

534 

530 

534 

532 

534 

534 

535 

535 

535 

535 

536 

536 

536 

536 

539 

539 

< «a 

539 

539 

539 

539 

539 

541 

541 

542 

542 

543 

543 

543 

543 

543 

7*47 

549 

549 

549 

549 

550 

550 

550 

550 

551 

552 

572 

552 

552 

552 

557 

557 

557 

557 

558 

558 

558 

^58 

559 

560 

560 

560 

560 

560 

565 

565 

565 

565 

569 

570 

570 

570 

571 

571 

571 

573 

IMD2 

573 

573 

573 

574 

575 

575 

575 

575 

575 

ICNTRL 

INTEGER 

SIMPLE 

29 

IMD2P t 

ICNTRL 

INTEGER 

SIMPLE 

30 

r 

IMNLAY 

INDEX 

IOMEGA 

IPREACC 

IPRECON 

IQS 

IQU 

IRADLW 

tRADLWG 

IRADSW 

IRADSWG 

irod 

ITAPE 
" TMAX 
I TWIN 
IUFLUX 
IVFLUX 
a 

JALB 

JC 

JE 

JIC 

JM 

JMD2 

JMT2 

JNP 

J04 

JOS 

JOB 

JP 

JSP 

KLIALB 

kligw 

KLISST 

KS 

KSTEP 

KU 

L 


LAND 

LC 

LCO 

LCNTRL 

LDIABAT 

LDPARM 

leflux 

L FUSION 
LHFLUX 
LICLOUD 
LIGHT 


LM1 

LOGSR 

LOMEGA 

LPt 

lpreacc 

LPRECON 

LQS 

LQU 


IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

LDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

RADCOM 

IDPARM 

IDPARM 

CCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

CCNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 


INTEGER 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

LOGICAL 

INTEGER 

integer 

integer 

integer 

integer 

integer 

integer 

integer 

CHAR  + 8 

integer 

integer 

INTEGER 

INTEGER 

integer 

integer 

CHARTS 

integer 

integer 

integer 

integer 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


SIMPLE 

array 

UNKNOWN 

UNKNOWN 

UNKNOWN 

array 

array 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

SIMPLE 

SIMPLE 

ARRAY 

array 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


LOGICAL 

LOGICAL 

LOGICAL 

INTEGER 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 

BIT 


ARRAY 

ARRAY 

SIMPLE 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

UNKNOWN 

ARRAY 


RADCOM 

LCNTRL 

LCNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


ICNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


INTEGER 

integer 

LOGICAL 

INTEGER 

LOGICAL 

LOGICAL 

LOGICAL 

LOGICAL 


SIMPLE 

SIMPLE 

UNKNOWN 

SIMPLE 

UNKNOWN 

UNKNOWN 

ARRAY 

array 


358/S 
202 
91 
B 1 
82 
77 
89 
7S 
94 
87 
93 
SB 

203 
212 

80 

79 

89 

90 
1 

323 

204 

205 

5 

32 

33 

34 

35 

36 

37 

6 

206 

38 

39 


362  363 


79 

90 

80 

81 

82 

83 

84 

91 

92 

93 

94 

215 

364  367 

IS 

19 


85 


86  87 


40 

41 

42 
207 

43 

3S8/C 
4 1 G 
451/S 
475 
514 
556 
575 
324 
154 
97 
97 
108 
123 
211 
1 15 
1 16 
114 
1 19 
350 
472 
521 
574 
387/S 
562/S 
44 
122 
389/S 
1 12 
1 13 
108 
120 
109 


389 

420 

453 

485/C 

514 

558 

577 

326 

155 

391 

432/C 

453 

486 

514 

558 

392 

433 

454/S 

486 

525/C 

560 

394 

434 

454 

488 

526 

560 

394 

435 

4G8/C 

489 

527 

560 

154 

155 

98 

109 

99 

too 

101 

102 

*51 

212 

213 

143 

144 

142 

147 

374 

477 

527 

376 

483 

532 

390 

487 

539 

400 
489 
54  1 

431 

492 

549 

394 

566/S 

398/S 

575 

467/S 
577 /S 

473 

47S/S 

150 

391 

140 

391 

396 

469/S 

470 

141 

11  0 
121 

f 1 1 
136 

112 

1 13 

114 

122 

123 

124 

125 

137 

395 

435 

469 

490 

538/C 

562 

396 

441  /S 

471 

498/C 

539 

567/C 

398 

442 

471 

499 

539 

568 

408/C 

446/S 

473 

499 

539 

573 

409 

447 

473 

513 

555 

573 

103 

104 

105 

106 

107 

433 

499 

551 

435 

501 

557 

457 

503 

559 

464 

507 

565 

470 

514 

569 

4S4/S 

489 

490  'S 

554/S 

S60 

556/S 

557 

564 /S 

565 

1 15 

1 16 

1 17 

1 18 

119 
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LRADLW 

LCNTRL 

logical 

UNKNOWN 

125 

153 

LRADLWG 

LCNTRL 

LOGICAL 

UNKNOWN 

1 16 

146 

LRADSW 

LCNTRL 

LOGICAL 

UNKNOWN 

1 24 

152 

LRADSWG 

LCNTRL 

LOGICAL 

unknown 

1 17 

145 

LTMAX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 1 1 

139 

LTMIN 

LCNTRL 

LOGICAL 

UNKNOWN 

t to 

138 

LUFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

1 20 

143 

LVFLUX 

LCNTRL 

LOGICAL 

UNKNOWN 

12! 

149 

M 

INTEGER 

SIMPLE 

486/S 

487 

WAT  IN 

ICNTRL 

INTEGER 

SIMPLE 

45 

MATSNX 

ICNTRL 

INTEGER 

SIMPLE 

46 

MATSUN 

ICNTRL 

INTEGER 

SIMPLE 

47 

MI  xwi 

R A DCOM 

LOGICAL 

ARRAY 

325 

326 

MJ 

I DP ARM 

INTEGER 

ARRAY 

203 

MLF 

ICNTRL 

INTEGER 

ARRAY 

48 

MROD 

ICNTRL 

INTEGER 

SIMPLE 

49 

MSM 

ICNTRL 

INTEGER 

SIMPLE 

51 

N 

NAB 

INTEGER 

INTEGER 

SIMPLE 

SIMPLE 

452/C 

439/S 

440 

NAG 

INTEGER 

SIMPLE 

449/S 

450 

NB 

ICNTRL 

INTEGER 

SIMPLE 

52 

NSC 

INTEGER 

SIMPLE 

444/S 

445 

NO 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDALT 

ICNTRL 

INTEGER 

SIMPLE 

54 

NOARK 

INTEGER 

SIMPLE 

368/S 

371/S 

NO  AY 

ICNTRL 

INTEGER 

SIMPLE 

55 

NDHOG 

ICNTRL 

INTEGER 

SIMPLE 

76 

NDOUT 

ICNTRL 

INTEGER 

SIMPLE 

56 

NDPHY 

ICNTRL 

INTEGER 

SIMPLE 

57 

NDRSW 

ICNTRL 

INTEGER 

SIMPLE 

3 1 

NDSHF 

ICNTRL 

INTEGER 

SIMPLE 

58 

NDT 

ICNTRL 

INTEGER 

SIMPLE 

53 

NDTC3 

CNTRLP 

INTEGER 

SIMPLE 

279 

NFK 

RADCOM 

INTEGER 

SIMPLE 

316 

NFLW 

CNTRLP 

INTEGER 

SIMPLE 

280 

NHMS 

ICNTRL 

INTEGER 

SIMPLE 

60 

NHMSO 

ICNTRL 

INTEGER 

SIMPLE 

62 

NHMS  1 

I DP ARM 

INTEGER 

SIMPLE 

209 

NHMS  6 

ICNTRL 

INTEGER 

SIMPLE 

61 

NKRSH 

ICNTRL 

INTEGER 

SIMPLE 

50 

NLA  V 

ICNTRL 

INTEGER 

SIMPLE 

63 

355 

NLA YM ! 

ICNTRL 

INTEGER 

SIMPLE 

419 

505 

64 

432 

513 

NLAYOI 

INTEGER 

SIMPLE 

545/S 

547 

NLA YOZ 

RADCOM 

INTEGER 

SIMPLE 

315 

545 

NLA YP 1 

ICNTRL 

INTEGER 

SIMPLE 

65 

355/S 

NLAYP2 

INTEGER 

SIMPLE 

356/S 

444 

NLAYP2 

INTEGER 

SIMPLE 

357/S 

449 

NMLEV 

ICNTRL 

INTEGER 

SIMPLE 

75 

N02 

RADCOM 

INTEGER 

SIMPLE 

3t9 

NSDAY 

ICNTRL 

INTEGER 

SIMPLE 

66 

NSHQ 

ICNTRL 

INTEGER 

SIMPLE 

67 

NSTEP 

ICNTRL 

INTEGER 

SIMPLE 

69 

NTOP 

DSOLAR 

INTEGER 

ARRAY 

342 

501/S 

NTOPF 

DSOLAR 

INTEGER 

ARRAY 

34  1 

404/S 

NTOPT 

DSOLAR 

INTEGER 

ARRAY 

340 

403/S 

NYMD 

ICNTRL 

INTEGER 

SIMPLE 

71 

NYMDO 

ICNTRL 

INTEGER 

SIMPLE 

73 

NYMD  1 

I DP ARM 

INTEGER 

SIMPLE 

210 

NYMDE 

ICNTRL 

INTEGER 

SIMPLE 

72 

NZINIT 

ICNTRL 

INTEGER 

SIMPLE 

7* 

OCEAN 

RADCOM 

LOGICAL 

ARRAY 

at  4 

326 

0CM22 

RADCOM 

REAL 

ARRAY 

3 ib 

0CM30 

RADCOM 

REAL 

ARRAY 

318 

0CM38 

RADCOM 

REAL 

ARRAY 

318 

0CM46 

RADCOM 

REAL 

ARRAY 

318 

OCMXX 

RADCOM 

REAL 

ARRAY 

319 

OLAPR 

RADCOM 

REAL 

ARRAY 

317 

OL  JAN 

RADCOM 

REAL 

ARRAY 

317 

489  489  568/S  57  s 575  575 


44 1 
45  t 

446 


37  1 373 


356  357  358  384  3B5  387  388  408 

463  463  465  467  468  478  484  485 

525  530  538 

568 

550  550  552  564  555  564  566  567 

403  404  439  480  486  494  509  534 


503/S  522/S 

4 1 5 416/S  502  503 

419  420/S  50t  502  522 
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< 

Lt 

OLJUL 

R A DCOM 

REAL 

ARRAY 

OLOCT 

RADCOM 

REAL 

ARRAY 

i 

OMEGA 2 

RCNTRL 

REAL 

SIMPLE 

OZALE 

RADCOM 

REAL 

ARRAY 

1 

PI 

RCNTRL 

REAL 

SIMPLE 

i 

PI  180 

RCNTRL 

REAL 

SIMPLE 

£ 

P I 2 

RCNTRL 

REAL 

SIMPLE 

f 

PIM 

CNTRLP 

REAL 

SIMPLE 

i 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

PKSTD 

RDPARM 

REAL 

SIMPLE 

* 

PKTOP 

RDPARM 

REAL 

S 1 MP  L E 

I 

PL 

RADCOM 

REAL 

ARRAY 

J 

PLE 

RADCOM 

REAL 

ARRAY 

i 

PLEVS 

RCNTRL 

REAL 

ARRAY 

1 

PLK 

RADCOM 

REAL 

ARRAY 

PLKE 

RADCOM 

REAL 

ARRAY 

PREP 

RADCOM 

REAL 

ARRAY 

PROCM 

RADCOM 

REAL 

ARRAY 

PSMAK 

RCNTRL 

REAL 

SIMPLE 

PSMIN 

RCNTRL 

REAL 

SIMPLE 

P5TD 

RCNTRL 

REAL 

SIMPLE 

PTOP 

RCNTRL 

REAL 

SIMPLE 

PZERO 

RCNTRL 

REAL 

SIMPLE 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

) 

[ OBEG 

LCNTRL 

LOGICAL 

SIMPLE 

ODAY 

LCNTRL 

LOGICAL 

SIMPLE 

:iV  HENO 

LCNTRL 

LOGICAL 

SIMPLE 

•QK51G 

CNTRLP 

LOGICAL 

SIMPLE 

ft 

omr 

LCNTRL 

LOGICAL 

SIMPLE 

QR?*Y 

LCNTRL 

LOGICAL 

SIMPLE 

' > 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

If 

OSHF 

LCNTRL 

LOGICAL 

SIMPLE 

if. 

RADCOM 

REAL 

UNKNOWN 

j 

if 

RADE 

RCNTRL 

REAL 

SIMPLE 

i\  . RADTRM 

RADCOM 

REAL 

ARRAY 

* 1 RC 

RCNTRL 

REAL 

ARRAY 

1 

RCO 

RCNTRL 

REAL 

SIMPLE 

j 1 

RCLEAR 

DSOLAR 

REAL 

ARRAY 

| 1 

RCLOUD 

RADCOM 

REAL 

ARRAY 

RCNTRL 

REAL 

UNKNOWN 

i 

t 

• 

ROPARM 

REAL 

UNKNOWN 

! * 

i' 

RE 

RADCOM 

REAL 

ARRAY 

f 

RF 

DSOLAR 

REAL 

ARRAY 

! 

RGAS 

RCNTRL 

REAL 

SIMPLE 

RH 

RADCOM 

REAL 

ARRAY 

RLAT 

RDPARM 

REAL 

ARRAY 

i 

RLATD 

RDPARM 

REAL 

ARRAY 

i 

RMEAN 

DSOLAR 

REAL 

ARRAY 

. 

RN 

RADCOM 

REAL 

ARRAY 

ROCP 

RCNTRL 

REAL 

SIMPLE 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

- 'j 

ROCPP 1 

RDPARM 

REAL 

SIMPLE 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

. ; 

RSURF 

RADCOM 

REAL 

ARRAY 

♦ i 

50 

RADCOM 

REAL 

SIMPLE 

SCOSZ 

DSOLAR 

REAL 

ARRAY 

■ ;i 

SCUD 

BIT 

ARRAY 

SDAY 

RCNTRL 

REAL 

SIMPLE 

i ^ 

SEASON 

RCNTRL 

REAL 

SIMPLE 

£ • 

SG 

RADCOM 

REAL 

ARRAY 

317 

317 

172 
31  1 

173 

174 
1 75 
281 

177 

238 

239 

296 

296 
191 

297 
297 

320 
319 

178 

179 
176 

180 

197 

98 

99 
100 
10  1 
282 
102 

103 
107 
106 

104 
295 
306 
317 
181 

321 

198 
156 
332 
323 
156 
167 
178 
189 
217 
228 

239 
250 
295 
348 
182 
303 

240 
24  I 
327 
313 

183 

242 

243 

184 
323 

321 
330 
570 
351 

185 

186 

322 


549  557  565  571 


OO 


384  384  391  391 


126 

127 

128 

129 
294 

130 

131 
135 
134 

132 


296 

297 

298 

299 

300 

301 

302 

303 

307 

308 

309 

310 

311 

312 

313 

314 

3ia 

319 

320 

321 

322 

323 

324 

325 

199 

198 

199 

460/S 

494 

495 

509 

510 

534 

535 

157 

158 

159 

160 

161 

162 

163 

164 

168 

169 

170 

17  1 

172 

173 

174 

175 

179 

180 

181 

182 

183 

184 

185 

186 

190 

191 

192 

193 

194 

195 

196 

197 

218 

219 

220 

221 

222 

223 

224 

225 

229 

230 

231 

232 

233 

234 

235 

236 

240 

241 

242 

243 

244 

245 

246 

247 

25  1 

252 

479/S 

482 

489 

570/S 

575 

377/S 

495/S 

5 10/S 

5 1 0 

535/S 

535 

543/S 

570 

304  305 

3 IS  316 


165  166 
176  177 
187  188 

226  227 
237  23B 
248  249 


460 

460 

479 

480 

543 

543 

382 

382  / S 

383 

493 

4g4 

508 

509 

533 

534 

552 

560 

520 

521 

527 

532 

539 

361/S 

494/S 

509/S 

509 

534/S 

534 

552 

j*— - 


SGNP 

SHG 

SHU 

SHLE 

SHLTOP 

SHSAT 

SIG 

SIGE 

S1NP 

SINL 

SINLD 

SINLON 

SINROT 

SN2PLG 

SNOW 

SNOVJN 

SNOWS 

SOLAR  1 

SOLS 

SP 

SRS 

SSS 

SSSE 

START 

STBO 

STERP1 

STERP2 

STN 

SUNNY 

SWALE 

SWIL 

TAUL 

TCONO 

TEMP 


TEMPI 


TG 

TH 

THSTD 

THSTD2 

TICE 

TL 

TLE 

TLOWL 

TLTOP 

TMIOL 

TN 

TOPABS 

TOTABS 

TOTOZ 

TPENE 

TSTD 

VER 

W 


WET 

WI 

WSAVE 

WW 

X 

XDAY 

XK 

XLABEL 

XLAT 


RDPARM 

REAL 

ARRAY 

244 

RADCOM 

REAL 

ARRAY 

301 

RADCOM 

REAL 

ARRAY 

300 

394 

RADCOM 

REAL 

ARRAY 

300 

CNTRLP 

REAL 

SIMPLE 

283 

375 

RADCOM 

REAL 

ARRAY 

302 

RDPARM 

REAL 

ARRAY 

251 

RCNTRL 

REAL 

ARRAY 

1B7 

RCNTRL 

REAL 

SIMPLE 

188 

364 

RDPARM 

REAL 

ARRAY 

245 

264 

REAL 

SIMPLE 

364/S 

367 

RDPARM 

REAL 

ARRAY 

246 

365 

CNTRLP 

REAL 

SIMPLE 

284 

365 

LCNTRL 

LOGICAL 

SIMPLE 

105 

133 

RADCOM 

LOGICAL 

ARRAY 

325 

326 

CNTRLP 

REAL 

SIMPLE 

285 

CNTRLP 

REAL 

SIMPLE 

286 

SUBROUTINE 

1 

RCNTRL 

REAL 

SIMPLE 

189 

RADCOM 

REAL 

ARRAY 

322 

RADCOM 

REAL 

ARRAY 

313 

RADCOM 

REAL 

ARRAY 

304 

RADCOM 

REAL 

ARRAY 

304 

LDPARM 

LOGICAL 

SIMPLE 

213 

216 

CNTRLP 

REAL 

SIMPLE 

287 

CNTRLP 

REAL 

SIMPLE 

288 

CNTRLP 

REAL 

SIMPLE 

289 

RADCOM 

REAL 

ARRAY 

313 

BIT 

ARRAY 

350 

429 

457 

4G4 

470 

499 

RADCOM 

REAL 

ARRAY 

309 

385/S 

396/S 

396 

46  1 

RADCOM 

REAL 

ARRAY 

309 

395/S 

RADCOM 

REAL 

ARRAY 

31  1 

433/S 

435/S 

442/S 

447/S 

RADCOM 

REAL 

ARRAY 

314 

435 

DSOLAR 

REAL 

ARRAY 

347 

365/S 

366/S 

366 

367 

392 

393/S 

393 

394 

458/S 

480 

542/S 

543 

543 

DSOLAR 

REAL 

ARRAY 

333 

363/S 

384 /S 

385 

391  /S 

471 

473 

473 

478 

488/ S 

558/S 

558 

560 

560 

573/S 

RADCOM 

REAL 

ARRAY 

299 

RADCOM 

REAL 

ARRAY 

299 

RDPARM 

REAL 

SIMPLE 

247 

RDPARM 

REAL 

SIMPLE 

248 

CNTRLP 

REAL 

SIMPLE 

290 

RADCOM 

REAL 

ARRAY 

290 

392 

RADCOM 

REAL 

ARRAY 

298 

RADCOM 

REAL 

SIMPLE 

315 

442 

CNTRLP 

REAL 

SIMPLE 

291 

375 

RADCOM 

REAL 

SIMPLE 

315 

447 

RADCOM 

REAL 

ARRAY 

313 

RADCOM 

REAL 

ARRAY 

312 

465 /S 

496 

5 1 1 

536 

DSOLAR 

REAL 

ARRAY 

328 

37B/S 

496/S 

496 

511/S 

RADCOM 

REAL 

ARRAY 

319 

RADCOM 

REAL 

ARRAY 

314 

453 

RCNTRL 

REAL 

SIMPLE 

190 

CCNTRL 

CHAR ♦B 

SIMPLE 

10 

23 

DSOLAR 

REAL 

ARRAY 

336 

359 /S 

394/5 

39S 

396 

488 

549/S 

550 

557/S 

558 

RADCOM 

REAL 

ARRAY 

320 

RADCOM 

REAL 

ARRAY 

320 

RDPARM 

REAL 

ARRAY 

249 

DSOLAh 

REAL 

ARRAY 

339 

360/S 

483/S 

487 

565 /S 

REAL 

SIMPLE 

352 

352 

352 

352 

353 

353 

CNTRLP 

REAL 

SIMPLE 

292 

547 

RADCOM 

REAL 

ARRAY 

316 

CCNTRL 

CHAR  *8 

ARRAY 

1 1 

24 

REAL 

SIMPLE 

1 

547 

o o 

g 

O 2 
O > 
73  r* 

<0  T3 
C > 
> 

r;  m 


472 

477 

483 

470 

437 

453/S 

527/S 

379/S 

380/S 

380 

459/S 

459 

460 

394 

394 

463/S 

488 

489 

489 

573 

575 

575 

487 

489 

492 

380 

381 

392 

460 

478/S 

479 

463 

465 

471 

550  /S 

550 

552 

511  536/S  536  552/S  552 


461 /S  463  470/S  471  483  487 

571/S  573 


571 

353  353  353  353  353  353 


CO 

o 

r1 


XX 

2LNC0 

PROCEDURE 
- -NAME 

AMAX  1 

AOZONE 

AWATER 

CLOUDS 

LOGTOB 

OZONE2 

SQRT 

VOZON 

VSORT 

VWATER 

ZEITBEG 

ZEI TEND 


REAL 

CNTRLP  REAL 


SIMPLE 

SIMPLE 


409/S  410  411  412 

293 


MAP 

TYPE CLASS 


REFERENCES  D*STMT  FN  DEF,  A? ARGL I ST 


REAL 

INTRINSIC 

REAL 

STAT  FUNC 

REAL 

STAT  FUNC 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 

REAL 

INTRINSIC 

REAL 

FUNCTION 

REAL 
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SUBROUTINE  STRATM  i T 1 . T2 , I DA YH . I LATH ) 

DIMENSION  TDA  V (37.21  . T JAN ( 19.21  . TAPR (19,2), TJUL (19.2), TOCT  t T9 . 2 > 
DATA  IOLD/O/ 

DATA  T JAN/  269.00,  269.00.  268.00,  266.00,  265.00,  263.00.  262.00 

* 261.00.  260.00,  260.00.  250.00,  250.00,  250.00,  250.00.  250.00, 

• 253.00,  253.00,  253.00.  253.00,  242.50,  242.50,  242.50,  242.50. 

♦ 242.50,  242.00,  240.50,  238.50,  237.00,  235.00,  232.00.  230.00. 

* 228.00,  226.00,  224.50,  223.00,  222.50,  222.50,  222.50/ 

DATA  TAPR/  270.00,  270.00,  270.00,  270.00,  270.00,  270.00,  270  00 

♦ 270.00,  270.00.  270.00,  267.00,  264.00,  263.00,  262.00,  260.00, 

*■  259.00,  257.00,  256.00,  255.00,  246.00,  246.00,  246.00,  246  00 

* 246.50,  246.50,  246.50,  246.00,  245.50,  245.00,  245.00,  245.00 

♦ 244.00,  243.50,  243.00,  242.50,  242.00,  242,00,  242.00/ 

DATA  TJUL/  267.00,  266.00,  265.00,  265.00,  265.00,  270.00,  272,00 

♦ 273.00,  275.00,  277.00,  277.00,  280.00,  280.00.  280.00,  280.00, 

♦ 280.00,  280.00,  280.00,  280.00,  242.00,  242.00,  242.00,  242  00 

♦ 242.50,  243.00,  244.00,  245.50.  247.50.  249.00,  251.00,  253. 00 ! 

♦ 255.00,  256.00,  257.50,  258.00,  259.00,  259.50,  260.00/ 

DATA  TOCT/  267.00,  266.00,  265.00,  263.00,  263.00,  262.00,  260.00 

*■  258.00,  255.00,  253.00,  252.00,  247.00,  245.00,  243.00,  240.00 

* 236.00,  234.00,  232.00,  231.00,  247.00,  247.00,  247.00,  247.00* 

* 245.00,  243.00,  241.00,  239.00,  237.00,  235.50,  233.00,  231. Oo! 

- 229.00,  227.50,  226,00,  224.00,  223.00,  222.00,  222.00/ 

► INTRODUCE  CLIMATOLOGICAL  TEMPERATURES  IN  UPPER  STMOSPWERE 

OATA 

* I.  I LAT , JDAYH,  TDA Y/ 7 7 *200000000/ 
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CALL  E RRSET ( 207 , 255 , - 1 , 1 ,0,209) 

IF  ( IDAYH . EQ . I OLD ) GO  TO  113 
TIME  INTERPOLATION  NORTHERN  HEMISPHERE 
I = 1 9=EQUAT0R  , I =37  = NORTH  POLE 
IF  < IDAYH. GE.O. AND. IDAYH. LE . 15)  GO  TO  102 
IF  ( IDAYH. GE. 15 .AND. IDAYH. LE. 1061  GO  TO  104 
IF  < IDAYH. GE. 106. AND. IDAYH. LE. 197 ) GO  TO  106 
IF  ( IOAYH.GE. 197. AND. IDAYH. LE. 289)  GO  TO  108 
IF  ( IDAY»4  ,GE.  289  .AND.  IDAYH  ,LE.  366  1 GO  TO  110 

102  DO  103  !-»9,37 
I 1-1-18 

DO  103  J = 1,2 

103  TDA Y ( I , d ) = TOCT ( I 1 , d>  + < I DA YH*77 > • ( TJAN < I 1 , J ) -TOCT ( I 1 , J)  > /92 
GO  TO  112 

104  DO  105  1=19,37 
11=1-18 

DO  105  J = 1,2 

105  TDA  Y ( I , d)=TJAN<  I 1 . J ) ■*■  ( IDAYH-  15)  MTAPR{  I 1 , J)-TJAN<  I 1 , J ) ) / 9 1 
GO  TO  112 

106  DO  107  1=19,37 
I 1 = 1-18 

DO  107  d=1,2 

107  TDA Y ( l , J>=TAPR( I 1 , J) M IDAYH- 1 06 ) ♦ (TJUL ( I 1 , J ) -TAPR ( I 1 . J)  )/91 
GO  TO  112 

108  DO  109  1=19,37 
11=1-18 

DO  109  J= 1 , 2 

109  TDA Y ( I , J ) = T JUL ( I 1 , J > ^ ( IDAYH- 197 ) • ( TOCT( I 1 . J > -TJUL< I 1 , d ) > /92 
GO  TO  112 

110  DO  til  1=19,37 
11=1-18 

DO  111  d= 1 , 2 

1 1 1 TDA  Y { I . J)=TOCT( I 1 , d ) ♦ ( IDAYH- 289 ) * f TJAN ( I 1 , J) -TOCT< I 1 . J M /92 

1 12  CONTINUE 

C TIME  INTERPOLATION  SOUTHERN  HEMISPHERE 

C 1 = 1 =SOUTH  POLE,  1 = 18=5  DEGREE  SOUTH 

IF  (IDAYH. LE. 183)  GO  TO  115 

114  JDAYH= IDAYH- 183 
GO  TO  116 

115  JDAYH=IDAYH+ 183 

1 16  CONTINUE 

IF  < JDAYH .GE . 0 .AND. JDAYH. LE . 15)  GO  TO  202 
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VSTRATM  31 
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VSTRATM  36 
VSTRATM  37 
VSTRATM  38 
VSTRATM  39 
V5TRATM  40 
VSTRATM  41 
VSTRATM  42 
VSTRATM  43 
VSTRATM  44 
VSTRATM  45 
VSTRATM  46 
VSTRATM  47 
VSTRATM  48 
VSTRATM  49 
VSTRATM  50 
VSTRATM  51 
VSTRATM  52 
VSTRATM  53 
VSTRATM  54 
VSTRATM  55 
VSTRATM  56 
VSTRATM  57 
VSTRATM  58 
VSTRATM  59 
VSTRATM  60 
VSTRATM  61 
VSTRATM  62 
VSTRATM  63 
VSTRATM  64 
VSTRATM  65 
VSTRATM  66 
VSTRATM  67 
VSTRATM  68 
VSTRATM  69 
VSTRATM  70 
VSTRATM  71 
VSTRATM  72 
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60CM5  IF  ( dDAYH. GE ,15. AND ♦JDAYH.LE.  106)  GO  TO  204 

00046  IF  <dDAYH.GE. 106. AND. JDAYH.LE. t97>  GO  TO  206 

00047  IF  ( dDAYH , GE . 197. AND. dDAYH. LE. 289)  GO  TO  208 

00048  IF  (JOAYH.GE.289. AND. JDAYH.LE. 366)  GO  TO  2tO 

00049  202  DO  203  I=t.!S 

00050  I 1 =20- X 

00052  203  TDAY?I , d) =TOCT< I 1 , d ) ♦( dDAYH- 77) ♦ ( T JAN ( I t ,J) -TOCT( X I . J ) ) / 92 

00053  GO  TO  212 

00054  204  DO  205  1=1.18 

00055  11=20-1 

00057  205  TDAYi  I , d ) = T JAN  f I 1 , Jl*l JDAYH- 15>*(TAPft(I1,dl -T  JAN ( I 1 . d ) ) f 9 t 

00058  GO  TO  212 

00059  206  DO  207  1=1 t 18 

00060  I 1=20-1 

0 0 062  207  TDAY?I , J > =TAPR< I 1 , J ) * ( JDAYH- 106 ) ♦ ( TJUL( I 1 . d > - TAPR (I  I , J )» /9 1 

00063  GO  TO  212 

00064  208  DO  209  1=1.18 

00065  11=20-1 

OOolf  209  TDAY?I  , d ) = T.dUL  ( I 1 , J > * ( dDAYH-  I 97  ) * ( TOCT  t I 1 , d > - T JUL  < I 1 , J > > /92 

00068  GO  TO  212 

00069  210  DO  211  1=1.18 

00070  11=20-1 

0007  2 21  1 TDAY< I . d ) =TOCT< I 1 , d > * < JDAYH- 289 ) * f TdAN  < I 1 . J > -TOCT ( I 1 , d I 1 /92 

00073  212  CONTINUE 

00074  IOLD= IDAYH 

00075  113  CONTINUE 

00076  XLATs 1 .00001 +( ILATH*0O> /5 

0007  7 T 1 = TO AY  < I L A T , 1 ) 

00078  T2=TDAV< ILAT , 2 > 

00079  RETURN 

00080  END 
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/QMSAVE/ 

P I T ( 72 , 5 I 

VQMSAVE 

11 

COMMON 

/QMSAVE/ 

CONV (72,9,5) , SO (72, 9,5) 

VQMSAVE 

12 

COMMON 

/QMSAVE/ 

TERMWf  72 ,9,5),  TERMT  < 72 , 9,5) 

VQMSAVE 

13 

c 

VQMSAVE 

14 

COMMON 

SCALEV (72,9) 

VV/KSCAL 

2 

COMMON 

/ IMJM/ 

I MM 1 . I MM2 , I MM3 , IMM4, 

I MM5  . 

VIMdM 

2 

S 

IMT2 , IMT4, 

VI  MOM 

3 

s 

IMNLAY , 

. IMNLAY!,  IMNLAV2,  IMNLAY3.  IMNLAY4, 

IMNLAY5 , 

VIWIJM 

4 

s 

IMD2M1 , 

VI  MOM 

5 

s 

NLAYT2 , 

NLAYT3,  NLAYT4,  NLAYT5.  NLAYT6, 

NLAYT7 

V IMJM 

6 

c 

» * * 

VTIMAVG 

18 

c 

DEBUG 

VBEGDEB 

2 

10000  CONTINUE 

VBEGDEB 

3 

C 

CYBER  VECTOR  VERSION  00.001  INPUT  100 

VBEGDEB 

4 

C 

CYBER  VECTOR  VERSION  00 

VBEGDEB 

5 
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c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


M = MJ(J> 

K = OC(U) 

IF  (M.EO.O)  GO  TO  50 

* » * 

POLE  POINT 

PP(ND,M)  = GNU 1 * PP  < ND , M ) * GNU2 * < PM < I , K > *PP < NB ,M) > 

DO  10  L“ 1 . NLA V 

UP  < L , ND , M)  = GNU1*UP(L.ND,M>  * GNU2* < UM( f „ L , K ) + UP ( L , NB , M ) ) 

VP  < L , NO . M ) = GNU1*VP(L,ND,M)  + GNU2* < VM ft , L , K ) * VP ( L . NB , HI * ) 
TP(L.ND.M)  = GNU1 *TP ( L .ND ,M)  A GNU2* ( TM ( 1 . L , K > ^ TP l L , NB , HI  > ) 

SHP  1 L , ND  , M)  = GNU1  ♦SHP  ( L , ND  .M>  * GNU2«-  ( SHM  <1  , L , K ) +SHP  ( L t NB  , M ) » 

10  CONTINUE 

RETURN 

► •"  4" 

NON-POLE  POINT 
50  CONTINUE 

P11, ND , d ; IM ) = GNU  1*9(1, ND , J ; I M ) * GNU2* (PM (I , K) *P ( ! . NB , d > > 

SCALEV  ( 1,1;  IMNLAV  >*GNU2MUM<  1 , 1 ,K;  IMNLAY)  * U<  1 , L ♦ NB  , J ; I MNLA  Y 1 ) 
UM  , 1 , ND  * J ; IMNLAV)  = GNU  1 *U  ( 1 , 1 . ND  , J ; IMNLAV ) 

SCALEV (1,1: IMNLAY ) = GNU2 M VM (1 , 1 , K ; IMNLAV ) * 

V<  1 , 1 ,ND.d; IMNLAY)  = GNU 1 » V ( 1 , 1 , ND , d ; IMNLAV  > 

GNU2* ( TM ( 1 t 1 , K $ IMNLAY  > + 

T( 1 , 1 ,ND.d; IMNLAV)  - GNU  1 *T ( 1 , 1 t ND , J ; IMNLAV ) 

SCALEV* 1 , 1 ; IMNLAY)  *GNU2* ! SHM ( 1 , 1 . K ; IMNLA Y ) + 

GNU  1 *SH ( 1 , 1 ,ND, 0 ; IMNLAY) 


SCALEV ( 1,1; IMNLAV) 


SH (1,1 , ND  , J ; IMNLAV) 
RETURN 

END 
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CHARTS 
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REAL 

CON2DT 

RDPARM 
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RDPARM 
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REAL 

SIMPLE 

176 

PTOP 

RCNTRL 
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REAL 

UNKNOWN 

253 

280 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

99 

127 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

10Q 

128 

QENO 

LCNTRL 

LOGICAL 

SIMPLE 

101 

129 

295 

296 

297 

298 

299 

QMSAVE 

REAL 

UNKNOWN 

290 

291 

292 

293 

294 

QOUT 

LCNTRL 

LOGICAL 

SIMPLE 

102 

130 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

103 

131 

289 

QPOLES 

REAL 

UNKNOWN 

284 

285 

286 

287 

288 

272 

273 

274 

275  276 

QPROG 

QANDQT 

REAL 

ARRAY 

253 

267 

268 

269 

270 

271 

277 

278 

279 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

107 

135 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

106 

134 

QSDIAG 

QANDQT 

PEAL 

ARRAY 

280 

282 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

104 

132 

QUO I AG 

QANDQT 

PEAL 

ARRAY 

283 

RADE 

RCNTRL 

REAL 

SIMPLE 

181 

RC 

RCNTRL 

REAL 

ARRAY 

198 

199 

RCO 

RCNTRL 

REAL 

SIMPLE 

156 

198 

199 

161 

162 

163 

164 

165  166 

RCNTRL 

REAL 

UNKNOWN 

156 

157 

158 

159 

160 

167 

1 68 

169 

170 

171 

172 

173 

174 

175 

176  177 

178 

179 

180 

181 

182 

183 

184 

!S5 

185 

187  188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

226  227 

RDPARM 

REAL 

UNKNOWN 

2U 

218 

219 

220 

221 

222 

223 

224 

225 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237  238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248  249 

250 

25  1 

252 

RGAS 

RCNTRL 

REAL 

SIMPLE 

182 

RLAT 

RDPARM 

REAL 

ARRAY 

240 

RLATO 

RDPARM 

REAL 

ARRAY 

241 

ROCP 

RCNTRL 

REAL 

SIMPLE 

1 63 

ROCPDT 

RDPARM 

REAL 

SIMPLE 

242 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

243 

RSDIST 

RCNTRL 

REAL 

SIMPLE 

184 

320/S 

321 

322/S 

323 

SCALEV 

// 

REAL 

ARRAY 

300 

316/S 

317 

318/S 

319 

SD 

QMSAVE 

REAL 

ARRAY 

298 

SO  AY 

RCNTRL 

REAL 

SIMPLE 

185 

SEASOM 

RCNTRL 

REAL 

SIMPLE 

186 

SGNP 

RDPARM 

REAL 

ARRAY 

244 

323/S 

323 

SH 

QANDQT 

REAL 

ARRAY 

265 

278 

322 

SHM 

QMSAVE 

REAL 

ARRAY 

294 

31  1 

322 

311 

SHP 

QPOLES 

REAL 

ARRAY 

288 

311/S 

311 

SHS 

QANDQT 

REAL 

ARRAY 

260 

273 

SIG 

RDPARM 

REAL 

ARRAY 

251 

SIGE 

RCNTRL 

REAL 

ARRAY 

187 

SIND 

RCNTRL 

REAL 

SIMPLE 

188 

SI  NL 

RDPARM 

REAL 

ARRAY 

245 

SINLON 

RDPARM 

REAL 

ARRAY 

246 

TIMAVG  10 


SMTH 

SN2FLG 

SOLS 

START 

T 

TERMT 
TER  MW 
THSTD 

THSTD2 

TlMAVG 

TM 

TP 

TS 

TSTO 

U 

UM 

UP 

V 

VER 

VWt 

VP 

WSAVE 
XL ABEL 


QANDQT 

LCNTRL 

RCNTRL 

ldparm 

QANDQT 

QMSAVE 

QMSAVE 

ROPARM 

RDPARM 

QMSAVE 

OPOLES 

OANDQT 

RCNTRL 

QANDQT 

QMSAVE 

QPOLES 

QANDQT 

CCNTRL 

QMSAVE 

QPOLES 

RDPARM 

CCNTRL 


REAL 

LOGICAL 

REAL 

LOGICAL 

REAL 

REAL 

REAL 

REAL 


ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

CHAR  *8 

REAL 

REAL 

REAL 

CHARTS 


SIMPLE 

SUBROUTINE 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 

ARRAY 


25  5 
105 

189 
213 
264 
299 
299 
247 

24B 

1 

293 

287 

259 

190 
262 

291 

285 
263 

10 

292 

286 
249 

1 1 


268 

133 

216 

277 

320 

321  /S 

321 

310 

320 

310 

310/S 

272 

310 

275 

316 

317/S 

317 

308 

316 

308 

308/S 

308 

319 

276 

318 

319/S 

23 

309 

318 

309 

309/S 

309 

24 

1-3 


M 


i 


ORIGINAL  PA<5S  IS 
OF  POOR  QUALITY 


OOOOI 


00002 

00003 

00004 

00005 

00006 

00007 

00008 
00009 
000  10 
00011 
000  12 

00013 

00014 

00015 

00016 
000  1 7 
00018 

00019 

00020 
00021 
00022 

00023 

00024 

00025 

00026 


00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  TWR1TE  < LFLAG,  ♦,  *) 


WRITE  MODEL  HISTORY  RECORD 


ARGUMENTS 

LFLAG 


DESCRIPTION 
RECORD  TYPE  FLAG 

"J  E25  P.fFonE  ™alvsis  RECORD 

-2  FOR  WID-MATSUNO  RECORD 
0 FOR  NORMAL  HISTORY  RECORD 

L£°JLS5ySF  SWITCHED  RECORD 
END-OF-DISK  REACHED 
I/O  ERROR  RETURN 


I/O  DDNAME 
8 


DESCRIPTION 
HISTORY  RECORD  OUTPUT 


SAVED  ON  HISTORY  RECORD 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/CCNTRL/  CCO 
/CCNTRL/  ADATE 
/CCNTRL/  ATIME 
/CCNTRL/  JIC 
/CCNTRL/  JOB 
/CCNTRL/  CCSP06 
/CCNTRL/  CCSP07 
/CCNTRL/  CCSP08 
/CCNTRL/  VER 
/CCNTRL/  XLABEL  (101 
/CCNTRL/  CQS  (30) 
/CCNTRL/  CQU  (10) 


EQUIVALENCE 
CHARACTER'S 
CHARACTER'S 
CHARACTER'S 
CHARACTER'S 
CHARACTER  *8 
CHARACTER'S 
CHARACTER'S 
CHARACTER'S 
CHARACTER'S 
CHARACTER'S 
CHARACTER'8 
CHARACTER'S 


(CCO.CCf 1 ) ) 

CCO.  CC ( 200 ) 

ADATE 

ATIME 

JIC 

dOB 

CCSP06 

CCSP07 

CCSPOB 

VER 

XLABEL 

CQS 

CQU 


* 

* 


£ SAVED  ON  HISTORY  RECORD 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ XCWTRL/ 
/ICNTfiL/ 
/ ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 
/ICNTRL/ 


ICO 
IM 

IMD2 

IMD2P1 

NDRSW 

dM 

dMD2 

JMT2 

dNP 

d04 

JOS 

JSP 

KLIALB 

KLIGW 

KLISST 

KS 

KU 

LOGBR 

MATIN 

MATSNX 

MATSUN 

MLF 

MROD 


( 12) 


VTWRITE  2 
VTWRITE  3 
VTWRITE  4 
VTWRITE  5 
VTWRITE  G 
VTWRITE  7 
VTWRITE  8 
VTWRITE  9 
VTWRITE  10 
VTWRITE  11 
VTWRITE  12 
VTWR I TE  13 
VTWRITE  14 
VTWRITE  IS 
VTWRITE  16 
VTWRITE  17 


VCNTRL 

2 

VCNTRL 

3 

VCNTRL 

4 

VCNTRL 

5 

VCNTRL 

6 

VCNTRL 

7 

VCNTRL 

8 

VCNTRL 

9 

VCNTRL 

10 

VCNTRL 

1 1 

VCNTRL 

12 

VCNTRL 

13 

VCNTRL 

14 

VCNTRL 

15 

VCNTRL 

16 

VCNTRL 

17 

VCNTRL 

ta 

VCNTRL 

19 

VCNTRL 

20 

VCNTRL 

21 

VCNTRL 

22 

VCNTRL 

23 

VCNTRL 

24 

VCNTRL 

25 

VCNTRL 

26 

VCNTRL 

27 

VCNTRL 

28 

VCNTRL 

29 

VCNTRL 

30 

VCNTRL 

31 

VCNTRL 

32 

VCNTRL 

33 

VCNTRL 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

as 

VCNTRL 

39 

VCNTRL 

40 

VCNTRL 

41 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

46 

VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

51 

VCNTRL 

52 

VCNTRL 

S3 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

original  page  si 

OF  POOR  QUALITY 


00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

00079 

00080 
0008  1 
00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00091 

00092 

00093 

00094 

00095 

00096 


00097 

00098 

00099 
00  100 
00101 
00 1 02 

00103 

00104 

00105 
00  106 

00107 

00108 
00109 

001  10 
00111 
001  12 
00  1 1 3 


COMMON  /ICNTRL / NKRSH 
COMMON  /ICNTRL/  MSM 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  NO 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDAY 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NO PHY 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NDT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHMSE 
COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLA V 
COMMON  /ICNTRL/  NLAYM1 
COMMON  /ICNTRL/  NLA YP 1 
COMMON  /ICNTRL/  NSDAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  IBLKSIZ 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON  /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINIT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDHOG 
COMMON  /ICNTRL/  IQS  (30) 
COMMON  /ICNTRL/  IQU  (10) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(ITMIN  « 1 QS ( 1)) 

(UMAX  , IQS<  2 ) ) 

< IPREACC  , I QS { 3)) 
(IPRECON  , I QS ( 4)) 
< IHFLUX  * IQS ( 5)  > 
( I EFLUK  t I QS ( 6) > 
< I FUSION  , 1QS<  7)) 
flRADSWG  t I QS  < 8)) 
(IRADLWG  t 2 QS ( 9)) 
(IICLOUD  , I QS (10)) 
( I UFLUX  ,IQS(1U) 
UVFLUX  , I QS  ( 1 2 > ) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( IOMEGA  . IQUf  I)) 
(IDIABAT  , I QU(  2)1 
(IRADSW  . I QU ( 3)) 
(IRADLW  , I QU ( 4)) 


EQUIVALENCE 

INTEGER 


( ICO. IC( 1 ) > 
ICO , 10(200) 


^OGICAL  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /LCNTRL / LCO  ~“  = 

COMMON  /LCNTRL/  QALT 
COMMON  /LCNTRL/  QBEG 
COMMON  /LCNTRL/  QDAY 
COMMON  /LCNTRL/  QEND 
COMMON  /LCNTRL/  QOUT 
COMMON  /LCNTRL/  QPHY 
COMMON  /LCNTRL/  QSHF 
COMMON  /LCNTRL/  SN2FLG 
COMMON  /LCNTRL/  QRSW 
COMMON  /LCNTRL/  QRSH 
COMMON  /LCNTRL/  LQS(30> 

COMMON  /LCNTRL/  LQU<10> 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(LTMIN  . LQS ( 1M 
( LTMAX  ,LQS<  2)) 
(LPREACC  , LQS { 3)) 
(LPRECON  • LQS ( 4)) 


VCNTRL 

57 

VCNTRL 

58 

VCNTRL 

59 

VCNTRL 

60 

VCNTRL 

61 

VCNTRL 

62 

VCNTRL 

63 

VCNTRL 

64 

VCNTRL 

65 

VCNTRL 

66 

VCNTRL 

67 

VCNTRL 

68 

VCNTRL 

69 

VCNTRL 

70 

VCNTRL 

71 

VCNTRL 

72 

VCNTRL 

73 

VCNTRL 

74 

VCNTRL 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRL 

79 

VCNTRL 

80 

VCNTRL 

81 

VCNTRL 

32 

VCNTRL 

83 

VCNTRL 

84 

VCNTRL 

85 

VCNTRL 

as 

VCNTRL 

87 

VCNTRL 

88 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

91 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

98 

VCNTRL 

99 

VCNTRL 

too 

VCNTRL 

101 

VCNTRL 

102 

VCNTRL  103 
VCNTRL  104 
VCNTRL  105 
VCNTRL  106 
VCNTRL  107 
VCNTRL  108 
VCNTRL  109 
VCNTRL  110 
VCNTRL  111 
VCNTRL  112 
VCNTRL  113 
VCNTRL  114 
VCNTRL  115 
VCNTRL  116 
VCNTRL  117 
VCNTRL  118 
VCNTRL  119 
VCNTRL  120 
VCNTRL  121 
VCNTRL  122 
VCNTRL  123 
VCNTRL  124 
VCNTRL  125 
VCNTRL  126 
VCNTRL  127 


ORIGINAL  PA£3g  [£? 

OF  POOR  QUALITY 


OO  t 14 
OO  1 15 

00  t 16 
00117 

001  18 

00119 

00120 
00121 

00122 

00123 

00124 
00  1 25 

00126 

00127 

00128 
00  1 29 

00130 

00131 

00132 

00133 

00134 

00135 

00(36 
00  137 

00138 

00139 

00140 

00141 

00142 

00  943 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 

00153 

00154 

001  55 


00  156 

00157 

001 58 

00159 
00  1 60 
001S1 
00162 

00163 

00164 

00165 

00166 
00  167 
00168 

00169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 


EQUIVALENCE 

{ LHFLUX 

, LQS ( 

5 > ) 

EQUIVALENCE 

1LEFLUX 

• LQS  ( 

6 t ) 

equivalence 

(LFUSION 

• LQS  { 

7)  ) 

EQUIVALENCE 

(LRADSWG 

, LQS  ( 

8 ) ) 

EQUIVALENCE 

(LRADLWG 

. LQS C 

9)  ) 

equivalence 

(LICLOUD 

, LQS  < ion 

EQUIVALENCE 

(LUFLUX 

. LOS  < 1 1)  ) 

EQUIVALENCE 

(LVFLUX 

i LQS ( 12)) 

EQUIVALENCE 

(IOMEGA 

, LQU  f 

1 ) ) 

EQUIVALENCE 

(LOIABAT 

, LQU  ( 

2)  ) 

EQUIVALENCE 

(LRADSW 

, LQU  ( 

3)  ) 

EQUIVALENCE 

(LRADLW 

, LQU  ( 

4)  ) 

logical 

QALT 

LOGICAL 

QBEG 

LOGICAL 

QDAY 

LOGICAL 

QEND 

LOGICAL 

QOUT 

LOGICAL 

QPHY 

LOGICAL 

QSHF 

LOGICAL 

SN2FLG 

LOGICAL 

QRSW 

LOGICAL 

QRSH 

LOGICAL 

LQS 

LOGICAL 

LQU 

LOGICAL 

LTMIN 

LOGICAL 

L TWIA  X 

LOGICAL 

LPREACC 

LOGICAL 

LPRECON 

LOGICAL 

LHFLUX 

LOGICAL 

LEFLUX 

LOGICAL 

LFUSION 

logical 

LRADSWG 

LOGICAL 

LRADLWG 

LOGICAL 

LICLOUD 

LOGICAL 

LUFLUX 

LOGICAL 

LVFLUX 

LOGICAL 

L OMEGA 

LOGICAL 

LOIABAT 

LOGICAL 

LRADSW 

LOGICAL 

LRADLW 

EQUIVALENCE 

'(LCO.LCf  1 ) ) 

LOGICAL 

LCO.  LC ( 200 ) 

REAL JMO0EL_ PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  /RCNTRL/  RCO 
COMMON  /RCNTHU  APHEl 
COMMON  /RCNTRL / BETA 
COMMON  /RCNTRL/  COSD 
COMMON  /RCNTRL/  CP 
COMMON  /RCNTRL/  DAYSPY 
COMMON  /RCNTRL/  DEC 
COMMON  /RCNTflL/  DECMAX 
COMMON  /RCNTRL/  DIST 
COMMON  / RCNTRL  / DLAT 
COMMON  /RCNTRL/  DLON 
COMMON  /RCNTRL/  DT 
COMMON  /RCNTRL/  ECCN 
COMMON  /RCNTRL/  GNU  1 
COMMON  /RCNTRL / GNU2 
COMMON  /RCNTRL/  GRAV 
COMMON  /RCNTRL/  0MEGA2 
COMMON  /RCNTRL/  PI 
COMMON  /RCNTRL/  PI  180 
COMMON  /RCNTRL/  PI  2 
COMMON  /RCNTRL/  PSTD 


VCNTRL  128 
VCNTRL  129 
VCNTRL  130 
VCNTRL  131 
VCNTRL  132 
VCNTRL  133 
VCNTRL  134 
VCNTRL  135 
VCNTRL  136 
VCNTRL  137 
VCNTRL  138 
VCNTRL  139 
VCNTRL  140 
VCNTRL  141 
VCNTRL  142 
VCNTRL  143 
VCNTRL  144 
VCNTRL  145 
VCNTRL  146 
VCNTRL  147 
VCNTRL  148 
VCNTRL  149 
VCNTRL  150 
VCNTRL  151 
VCNTRL  152 
VCNTRL  153 
VCNTRL  154 
VCNTRL  155 
VCNTRL  156 
VCNTRL  157 
VCNTRL  158 
VCNTRL  159 
VCNTRL  160 
VCNTRL  161 
VCNTRL  162 
VCNTRL  163 
VCNTRL  164 
VCNTRL  165 
VCNTRL  166 
VCNTRL  167 
VCNTRL  168 
VCNTRL  169 
VCNTRL  170 
VCNTRL  171 
VCNTRL  172 
VCNTRL  173 
VCNTRL  174 
VCNTRL  175 
VCNTRL  17G 
VCNTRL  177 
VCNTRL  178 
VCNTRL  179 
VCNTRL  180 
VCNTRL  181 
VCNTRL  182 
VCNTRL  183 
VCNTRL  184 
VCNTRL  185 
VCNTRL  186 
VCNTRL  187 
VCNTRL  188 
VCNTRL  189 
VCNTRL  190 
VCNTRL  191 
VCNTRL  192 
VCNTRL  193 
VCNTRL  194 
VCNTRL  195 
VCNTRL  196 
VCNTRL  197 
VCNTRL  198 


o o 

-n  gj 

-o  Q 

o s 

O 3» 

73  r 

(O 

C 3g 

<1  <3 


00177 

COMMON 

/RCNTRL / 

PI ME AN 

VCNTRL 

199 

00  1 78 

COMMON 

/RCNTRL / 

PSMAX 

VCNTRL 

200 

OO  173 

COMMON 

/RCNTRL/ 

PSMIN 

VCNTRL 

201 

00  ISO 

COMMON 

/RCNTRL/ 

P TOP 

VCNTRL 

202 

00  18  1 

COMMON 

/RCNTRL/ 

RADE 

VCNTRL 

203 

00  182 

COMMON 

/RCNTRL/ 

RGAS 

VCNTRL 

204 

00  1 S3 

COMMON 

/RCNTRL/ 

ROC? 

VCNTRL 

205 

00184 

COMMON 

/RCNTRL/ 

RSDIST 

VCNTRL 

206 

00185 

COMMON 

/RCNTRL/ 

SDAY 

VCNTRL 

207 

00186 

COMMON 

/RCNTRL/ 

SEASON 

VCNTRL 

208 

00  187 

COMMON 

/RCNTRL/ 

SIGE 

(25) 

VCNTRL 

209 

00188 

COMMON 

/RCNTRL/ 

SIND 

VCNTRL 

210 

00189 

COMMON 

/RCNTRL/ 

SOLS 

VCNTRL 

211 

00  190 

COMMON 

/RCNTRL/ 

TSTD 

VCNTRL 

212 

00191 

COMMON 

/RCNTRL/ 

PLEVS 

( 25  1 

VCNTRL 

213 

00192 

COMMON 

/RCNTRL/ 

HE  A TW 

VCNTRL 

214 

00  193 

COMMON 

/RCNTRL / 

HEAT  I 

VCNTRL 

215 

00194 

COMMON 

/RCNTRL/ 

EPS 

VCNTRL 

216 

00195 

COMMON 

/RCNTRL/ 

EPSFAC 

VCNTRL 

217 

00196 

COMMON 

/RCNTRL/ 

CALTOd 

VCNTRL 

218 

00197 

COMMON 

/RCNTRL/ 

P ZERO 

VCNTRL 

219 

C 

V^fJTRL 

220 

0019B 

EQUIVALENCE 

( RCO  , RC  ( 1 ) ) 

VCNTRL 

221 

00199 

REAL 

RCO , RC  ( 200 > 

VCNTRL 

222 

C 

VCNTRL 

223 

C 

INTEGER  MODEL  CONSTANTS 

VCNTRL 

224 

C 

VCNTRL 

225 

00200 

COMMON 

/ I DP ARM/ 

I JUMP 

<46> 

VCNTRL 

226 

00201 

COMMON 

/ IDPARM/ 

IDSP02 

VCNTRL 

227 

00202 

COMMON 

/ I DPARM/ 

INDEX 

(72) 

VCNTRL 

2 28 

00203 

COMMON 

/IDPARM/ 

TROD 

VCNTRL 

229 

00204 

COMMON 

/IDPARM/ 

JC 

(46) 

VCNTRL 

230 

00205 

COMMON 

/IDPARM/ 

JE 

<2 > 

VCNTRL 

231 

00206 

COMMON 

/IDPARM/ 

JP 

(2,2) 

VCNTRL 

232 

00207 

COMMON 

/IDPARM/ 

KSTEP 

VCNTRL 

233 

00208 

COMMON 

/IDPARM/ 

Md 

(46) 

VCNTRL 

234 

00209 

COMMON 

/IDPARM/ 

NHMS1 

VCNTRL 

235 

00210 

COMMON 

/IDPARM/ 

NYMD1 

VCNTRL 

236 

c 

VCNTRL 

237 

c 

LOGICAL  MODEL  CONSTANTS 

VCNTRL 

238 

c 

: s x r s 

VCNTRL 

239 

0021  1 

COMMON 

/LDPARM/ 

FILTER 

(46) 

VCNTRL 

240 

00212 

COMPTON 

/LDPARM/ 

I TAPE 

VCNTRL 

241 

00213 

COMMON 

/LDPARM/ 

START 

VCNTRL 

242 

c 

VCNTRL 

243 

00214 

LOGICAL 

FILTER 

VCNTRL 

244 

002  15 

LOGICAL 

ITAPE 

VCNTRL 

245 

00216 

LOGICAL 

START 

VCNTRL 

246 

c 

VCNTRL 

247 

c 

REAL  MODEL  CONSTANTS 

VCNTRL 

248 

c 

s = 

VCNTRL 

249 

00217 

COMMON 

/RDPARM/ 

ADLDP 

VCNTRL 

250 

00218 

COMMON 

/RDPARM/ 

CONI 

VCNTRL 

251 

00219 

COMMON 

/RDPARM/ 

CON  IDT 

VCNTRL 

252 

00220 

COMMON 

/RDPARM/ 

C0N2 

VCNTRL 

253 

00221 

COMMON 

/RDPARM/ 

C0N2DT 

VCNTRL 

254 

00222 

COMMON 

/RDPARM/ 

CON3 

VCNTRL 

255 

00223 

COMMON 

/RDPARM/ 

C0N30T 

VCNTRL 

256 

00224 

COMMON 

/RDPARM/ 

C0N4 

VCNTRL 

257 

00225 

COMMON 

/RDPARM/ 

C0N4DT 

VCNTRL 

258 

00226 

COMMON 

/RDPARM/ 

CONS 

VCNTRL 

259 

00227 

COMMON 

/RDPARM/ 

COSL 

<4G> 

VCNTRL 

260 

00228 

COMPTON 

/RDPARM/ 

C05L0N 

(72) 

VCNTRL 

261 

00229 

COMMON 

/RDPARM/ 

CPD2 

VCNTRL 

262 

00230 

COMMON 

/RDPARM/ 

DXP 

(46) 

VCNTRL 

263 

00231 

COMMON 

/RDPARM/ 

DXYP 

(46) 

VCNTRL 

264 

00232 

COMPTON 

/RDPARM/ 

DYP 

(46) 

VCNTRL 

265 

00233 

COMMON 

/RDPARM/ 

FCORLS 

(46) 

VCNTRL 

266 

00234 

COMMON 

/RDPARM/ 

F1DT 

VCNTRL 

267 

00225 

COMMON 

/RDPARM/ 

F2DT 

VCNTRL 

268 

00236 

COMMON 

/RDPARM/ 

H1DT 

VCNTRL 

269 

OR!S!WA l mm  Si 
OF  POOR  QUALITY 


00237 

00238 

00239 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00248 

00249 

00250 

00251 

00252 


00253 

00254 


00255 

00256 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/RDPARM/ 
/RDPARM/ 
/ RDP ARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM / 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 
/RDPARM/ 


H2DT 

PKSTD 

PKTOP 

RLAT  { 46 ) 
RLATD  (46) 
ROCPDT 
R0CPP1 
SGNP  ( 2 ) 
SINL  (46) 
SINLON  (72) 
THSTD 
THST02 
WSAVE  (159] 
DSIG  (9) 
SIG  (9) 
OSIGINV  (9) 


= = ==!=  = - restart  record  quantities 


COMMON 

CHARACTER'S 


/COROER/  X0RDS(24>. XORDU (15) 
XORDS  , XORDU 


MODEL  HISTORY  RECORD  QUANTITIES 


COMMON 

CHARACTERS 


/CORDER/  XSA  (23>,XUA  (10) 

XSA  XUA 


COMDECK  VOANDQT  RESOLUTION  VALUE; 


IM 

NL  a y 
JM4  1 
NLAY- 1 1 
IM*NLA V* 1 1 
JM/24 1 


= 72 
= 9 
= 46 
= 99 
= 7128 
= 23 


FIELDS  (NEEDED  IN  COMPO) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


/ OANDQT/  GPROG(72,9, 1 1 ,46) 

PHIS  (7128,1) 

SMTH  (7128.23) 

ALSEPO  ( 7 1 2B , 1 ) 

GT  (7123,1) 

GW  (7128,  t> 

TS  (7128,1) 

SHS  (7128,1) 

P (72,99,1) 

U (72,9,11,1) 

V (72,9, 11,1) 

T (72,9.11,1) 

SH  (72.9,11,1) 

PHI  (72,9,11.1) 

!3E2OGn'  1*1,1),  PHIS  (1.1 
(QPROGM,  2, 1,1),  SMTH  (1.1 
2E52SP’  3,1,1)  , ALBEDO*  1,1 
(QPR0G(1V  4,1,1), GT  (11 
(QPROGM,  5, 1,1),  GW  (1.1 
QPROGM,  6 , 1 , 1 ) , TS  (1,1 
(QPROGM,  7,1,1),  SHS  <1.1 
(QPROGM,  8,  J , t ) ,P  M l 


(QPROG( 1 , 1 


t . 

1 

1) 

, PHI 

S 

( 

. 1 > 

) 

2, 

1 

1) 

, SMTH 

( 

, 1 ) 

) 

) 

3, 

1 , 

1 ) 

, ALB 

lEDO  ( 

r 1 ) 

4 , 

1 , 

1) 

.GT 

( 

1 ) 

> 

5, 

1 , 

1 ) 

, GW 

( 

1 ) 

) 

6, 

1 , 

1 ) 

.TS 

( 

1 ) 

) 

7, 

1 , 

1 > 

, SHS 

( 

1 ) 

) 

8, 

1 , 

t ) 

*P 

( 

1 . 

1) 

, 

2, 

1 ) , 

pU 

( 1 , 

p 1 

, 1 

, 1 

) ) 

, 

4, 

1 ) ■ 

p V 

< 1 , 

, 1 

, 1 

, 1 

> > 

, 

6, 

1>  , 

r T 

( t . 

, 1 

, 1 

. 1 

) ) 

* 

8, 

1 ) , 

,SH 

M, 

, t 

, 1 

* t 

) ) 

• „ ,k  , ' 


VCNTRL  270 
VCNTRL  271 
VCNTRL  272 
VCNTRL  273 
VCNTRL  274 
VCNTRL  275 
VCNTRL  276 
VCNTRL  277 
VCNTRL  278 
VCNTRL  279 
VCNTRL  280 
VCNTRL  281 
VCNTRL  282 
VCNTRL  283 
VCNTRL  284 
VCNTRL  285 
VCNTRL  2B6 
VCOROER  2 
VCORDER  3 
VCORDER  4 
VCORDER  5 
VCORDER  6 
VCORDER  7 
VCORDER  8 
VCORDER  9 
VCORDER  10 
VCORDER  11 
VCORDER  12 
VOANDQT  2 
VQANDOT  3 
VOANDQT  4 
VOANDQT  5 
VQANDOT  5 
VQANDQT  7 
VQANDQT  S 
VOANDQT  9 
VOANDQT  10 
VQANDQT  II 
VQANDQT  12 
VQANDQT  13 
VQANDQT  14 
VQANDQT  15 
VQANDQT  16 
VQANDQT  17 
VOANDQT  18 
VQANDQT  19 
VQANDQT  20 
VQANDQT  21 
VOANDQT  22 
VOANDQT  23 
VQANDQT  24 
VQANDQT  25 
VQANDQT  26 
VQANDOT  27 
VQANDQT  28 
VQANDQT  29 
VQANDQT  30 
VOANDQT  31 
VQANDQT  32 
VQANDQT  33 
VQANDQT  34 
VQANOQT  35 
VQANDQT  36 
VQANDQT  37 
VQANDOT  38 
VQANDQT  39 
VOANDQT  40 
VQANDQT  41 
VQANDQT  42 
VQANDQT  43 
VQANDQT  44 


0 3 
o > 


00283 


00284 

00285 

00286 

00287 


00288 

00289 


00290 


00291 


00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 

0030  t 

00302 

00303 

00304 

00305 

00306 

00307 

00308 

00309 

00310 

0031  1 

00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 


C 

C 

C 

C 


C 

C 


EQUIVALENCE  (QPROGM ,1,10,1)  .PHI  11,1,1,1)) 

SPACE  FOR  GLOBAL  MODEL  DIAGNOSTIC  FIELDS  (NOT  NEEDED  IN  COM PC) 


COMMON 

DIMENSION 

EQUIVALENCE 

COMMON 


/ QANDQT / QSDI AG( 72 
I QSDXAGt 72 


( QSDI AG, I OSD l AG) 
/QANDQT/  QUD l AG (72,9,  5,46) 


. 15,46) 
,15,46) 


ONE "DIMENSIONAL  WORK  AREAS 
COMMON  CARD (10), 

CHARACTERS  CARD 


DATA  ( 144),  CATAM44) 


DATA  LUNEXT  /14/ 

Q m + A 

C DEBUG 
10000  CONTINUE 

C CYBER  VECTOR  VERSION  00.001 

C ♦***  CYBER  VECTOR  VERSION  00 


INPUT  IOQ 


VQANDOT  45 
VQANDQT  46 
VQANDQT  47 
VQANDQT  48 
VQANDQT  49 
VQANDQT  50 
VQANDQT  51 
VQANDQT  52 
VQANDQT  S3 
VQANDQT  54 
VQANDOT  55 
VW0RK1D  2 
V WORK  ID 
VW0RK1D 
VWORK  1 D 
V WORK  ID 
VTWRITE  22 
V TV/RITE  23 
VTWRITE  24 
VBEGDEB  2 
VBEGDEB  3 
VBEGDEB  4 
VBEGDEB  5 


3 

4 

5 

6 


CSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSVQEGDEB  G 


14 

12 


) 


WRITE  NEXT  RECORD  ON  RESTART  FILE 
10  CONTINUE 

IF (LFLAG. EQ. 6)  QRSW  = .TRUE. 

I F ( . NOT  » QRSJV  I GO  TO  30 
LU  * LUNEXT 
I F ( LU . EQ . 12)  LUNEXT 
I F ( LU . EQ .14)  LUNEXT 
REWIND  LU 
LOG8R  =>  LFLAG 
CALL  ZEI TBEG( 8HI0Q 
CALL  IOQ  ( LU ,2,0) 

DO  20  d=1,dNP 
CALL  IOQ  ( LU , 2 , d) 

20  CONTINUE 

CALL  ZE I TEND 

WRITE  (3,6020)  LU,  NYMD,  NHMS,  L0G8R.  dOB 
REWIND  LU 

IF (LFLAG . EQ . 6)  QOUT  - .FALSE. 

30  IF(. NOT. QOUT)  GO  TO  40 
CALL  ZEI TBEG ( 8HC0NHTR  ) 

CALL  CONHTR 
CALL  ZE I TEND 
I ROD  = I ROD  + 1 
WRITE (3. 6030) 

IF ( . NOT . QRSH ) 

IROD  = IROD 
LOGSR  = LFLAG 
CALL  ZEI T8EG( 8MI0Q 
CALL  I OQ (8,2,0) 

DO  35  J - 1 , dNP 
CALL  100(8, 2,d) 

CONTINUE 
CALL  ZEI TEND 
LUU  = 8 

WR I TE ( 3 , 6020 ) LUU , NYMD , NHMS , LOGBR , dOB 
I F { . NOT . ORSW ) GO  TO  45 
KRS  = (LU  - 12)  / 2 + 1 
REWIND  15 

WR I TE ( 15,6040)  KRS 
REWIND  15 

I F ( I ROD . GE . MROD ) RETURN  1 
RETURN 


NYMD , NHMS , LOGSR . dOB 
GO  TO  40 
1 


) 


35 


40 


45 


6020  FORMAT  ( * ORESTART  RECORD  WRITE  TO  UNIT', 12, 4X, 
& ' MODEL  TIME  ' , 16 , 2X , I G , 2X , I 4 , 4X , ' dOB 

6030  FORMAT  ('OHISTORY  RECORD  WRITE  TO  UNIT08' . 4X, 


, A8) 


VTWRITE  26 
VTWRITE  27 
VTWRITE  28 
VTWRITE  29 
VTWRITE  30 
VTWRITE  31 
VTWRITE  32 
VTWRITE  33 
VTWRITE  34 
VTWRITE  35 
VTWR I TE  36 
VTWRITE  37 
VTWRITE  38 
VTWRITE  39 
VTWRITE  40 
VTWRITE  41 
VTWRITE  42 
VTWRITE  43 
VTWRITE  44 
VTWRITE  45 
VTWRITE  46 
VTWRITE  47 
VTWRITE  48 
VTWRITE  49 
VTWRITE  50 
VTWRITE  51 
VTWRITE  52 
VTWRITE  53 
VTWRITE  54 
VTWRITE  55 
VTWRITE  56 
VTWRITE  57 
VTWRITE  58 
VTWRITE  59 
VTWRITE  60 
VTWR I TE  61 
VTWRITE  62 
VTWRITE  63 
VTWRITE  64 
VTWRITE  65 
VTWRITE  66 
VTWRITE  67 
VTWRITE  68 
VTWRITE  69 
VTWRITE  70 
VTWRITE  71 
VTWRITE  72 


H 

m 

as 


9 o 

% B 

§g 

& f=> 


■£  © 


* ' MODEL  TIME  MS.2X.  I6,2X.  H t4X,  * JOB  ' , AB  > 

00335  G040  FORMAT  < ' PROC  ( RSPROC  r NNNN  . RSRUN I T , RSRVOL  ) * / 

$ ' BEGI N < . P-»RSRUN  I T-RSR  . -NNNN-  , “•RSRVOL-* , ' , I 1 » ' ,RJ 

00336  END 


VTWR I TE  73 
VTWRITE  74 
VTWR I TE  75 
VTWRITE  76 


STATEMENT 

LABEL  MAP 

- -LABEL — 

-DEFINED 

REFERENCES 

1 0 

292 

10000 

291 

20 

304 

302 

30 

309 

294 

35 

322 

320 

40 

326 

309  315 

45 

331 

326 

6020 

333 

306  325 

5030 

334 

314 

6040 

335 

329 

VARIABLE  MAP 


■NAME 

--BLOCK 

---TYPE---- 

--CLASS 

---REFERENCES 

ADATE 

CCNTRL 

CHARTS 

SIMPLE 

3 

16 

ADLDP 

RDPARM 

REAL 

SIMPLE 

217 

ALBEDO 

QANOQT 

REAL 

ARRAY 

260 

273 

APHEL 

RCNTRL 

REAL 

SIMPLE 

157 

ATI  ME 

CCNTRL 

CHAR  * S 

SIMPLE 

4 

17 

BETA 

RCNTRL 

REAL 

SIMPLE 

150 

C ALTO J 

RCNTRL 

REAL 

SIMPLE 

196 

CARD 

// 

CHAR-8 

ARRAY 

288 

289 

CATA 

/ / 

REAL 

ARRAY 

288 

CC 

CCNTRL 

CHAR -8 

ARRAY 

14 

15 

cco 

CCNTRL 

CHAR-8 

SIMPLE 

2 

14 

CCNTRL 

REAL 

UNKNOWN 

2 

3 

CCSP06 

CCNTRL 

CHARTS 

SIMPLE 

1 o 

7 

20 

CCSP07 

CCNTRL 

CHAR-8 

SIMPLE 

8 

21 

ccspos 

CCNTRL 

CHAR-8 

SIMPLE 

9 

22 

CONI 

RDPARM 

REAL 

SIMPLE 

218 

CON  IDT 

RDPARM 

REAL 

SIMPLE 

219 

CON2 

RDPARM 

REAL 

SIMPLE 

220 

CON2DT 

RDPARM 

REAL 

SEMPLE 

221 

COM3 

RDPARM 

REAL 

SEMPLE 

222 

CON3DT 

RDPARM 

REAL 

SIMPLE 

223 

CON4 

RDPARM 

REAL 

STMPLE 

224 

CON4DT 

RDPARM 

REAL 

SIMPLE 

225 

CONS 

RDPARM 

REAL 

SIMPLE 

226 

CORDER 

REAL 

UNKNOWN 

253 

255 

COSD 

RCNTRL 

real 

SIMPLE 

159 

COSL 

RDPARM 

REAL 

ARRAY 

227 

COSLON 

RDPARM 

REAL 

ARRAY 

228 

CP 

RCNTRL 

REAL 

SIMPLE 

160 

CPD2 

RDPARM 

REAL 

SIMPLE 

229 

CQS 

CCNTRL 

CHAR-8 

ARRAY 

12 

25 

cou 

CCNTRL 

CHAR-8 

ARRAY 

13 

26 

DATA 

// 

REAL 

ARRAY 

288 

DAYSPY 

RCNTRL 

REAL 

SIMPLE 

161 

DEC 

RCNTRL 

REAL 

SIMPLE 

162 

DECMAX 

RCNTRL 

REAL 

SIMPLE 

163 

D I ST 

RCNTRL 

REAL 

SIMPLE 

164 

DLAT 

RCNTRL 

REAL 

SIMPLE 

165 

DLON 

RCNTRL 

REAL 

SIMPLE 

166 

DSIG 

RDPARM 

REAL 

ARRAY 

250 

DSIGINV 

RDPARM 

REAL 

ARRAY 

252 

DT 

RCNTRL 

REAL 

SIMPLE 

167 

DXP 

RDPARM 

REAL 

ARRAY 

230 

DXYP 

RDPARM 

REAL 

ARRAY 

231 

DYP 

ROPARM 

REAL 

ARRAY 

232 

ECCN 

RCNTRL 

REAL 

SIMPLE 

168 

EPS 

RCNTRL 

REAL 

SIMPLE 

194 

A"ARGL ! ST , 


t5 

4 


C=CTRL  OF  00, 


5 6 


I = DATA  INI  T,  R=READf  S=STORE . VTWRITE 


7 0 9 10  11 


12 


o o 

•n  g 
•o  5 
o§ 
o > 
* P 

iO  -o 

c IP- 
S’ & 
r* 


ZJL^Sm£^ 


•Jl*. 


TWRITE  7 


% 


4 

EP^FAC 

rcntrl 

REAL 

SIMPLE 

195 

l 

r i dt 

RDPARM 

REAL 

SIMPLE 

234 

1 

F2DT 

RDPARM 

REAL 

SIMPLE 

235 

J 

FCORLS 

RDPARM 

REAL 

ARRAY 

233 

* 

FILTER 

LOPARM 

LOGICAL 

ARRAY 

21  1 

214 

i 

GNU1 

RCNTRL 

REAL 

SIMPLE 

169 

1 

GNU2 

RCNTRL 

REAL 

SIMPLE 

170 

z 

GRAV 

RCNTRL 

REAL 

SIMPLE 

171 

i 

i 

GT 

OANDQT 

REAL 

ARRAY 

261 

274 

i 

GW 

QANDQT 

REAL 

ARRAY 

262 

275 

H IDT 

RDPARM 

REAL 

SIMPLE 

236 

i 

H2DT 

RDPARM 

REAL 

SIMPLE 

237 

i 

HEATI 

RCNTRL 

REAL 

SIMPLE 

193 

i 

HEATW 

RCNTRL 

REAL 

SIMPLE 

192 

} 

IBLKSI2 

ICNTRL 

INTEGER 

SIMPLE 

70 

IC 

ICNTRL 

INTEGER 

ARRAY 

95 

96 

r 

ICO 

ICNTRL 

INTEGER 

SIMPLE 

27 

95 

!. 

ICNTRL 

INTEGER 

UNKNOWN 

27 

28 

38 

39 

49 

50 

t'/~ 

1 

60 

61 

r1  ‘ 

ICSPS3 

ICNTRL 

INTEGER 

SIMPLE 

7 1 
68 

72 

IDIABAT 

ICNTRL 

INTEGER 

UNKNOWN 

92 

. i 

! I DP ARM 

INTEGER 

UNKNOWN 

200 

20  1 

IDSP02 

IDPARM 

INTEGER 

SIMPLE 

20  1 

'V1 

IEFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

84 

I FUSION 

ICNTRL 

INTEGER 

UNKNOWN 

85 

INFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

83 

<n 

I ICLOUD 

ICNTRL 

INTEGER 

UNKNOWN 

88 

! t. 

X JUMP 

IDPARM 

INTEGER 

ARRAY 

200 

‘ 

I M 

ICNTRL 

INTEGER 

SIMPLE 

28 

* ^ 

I MO  2 

ICNTRL 

INTEGER 

SIMPLE 

29 

f 

IMD2P1 

ICNTRL 

INTEGER 

SIMPLE 

30 

i ? 

4 

I ND  E X 

IDPARM 

INTEGER 

ARRAY 

202 

1 

IOMEGA 

ICNTRL 

INTEGER 

UNKNOWN 

91 

IPREACC 

ICNTRL 

INTEGER 

UNKNOWN 

8 1 

I PRECOW 

ICNTRL 

INTEGER 

UNKNOWN 

82 

1 

IQS 

ICNTRL 

INTEGER 

ARRAY 

77 

79 

39 

90 

IQSD1AG 

QANDQT 

INTEGER 

ARRAY 

285 

286 

i IQU 

ICNTRL 

INTEGER 

ARRAY 

78 

91 

l ’ 

IRADLW 

ICNTRL 

INTEGER 

UNKNOWN 

94 

J 

IRADLWG 

ICNTRL 

INTEGER 

UNKNOWN 

87 

1 

I RADSW 

ICNTRL 

INTEGER 

UNKNOWN 

93 

{' 

IRADSWG 

ICNTRL 

INTEGER 

UNKNOWN 

86 

1 

I ROD 

IDPARM 

INTEGER 

SIMPLE 

203 

313/ 

i 1 

I TAPE 

LDPARM 

LOGICAL 

SIMPLE 

212 

215 

ITMAX 

ICNTRL 

INTEGER 

UNKNOWN 

80 

5 

I TWIN 

ICNTRL 

INTEGER 

UN  know"; 

79 

I 

IUFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

89 

r 

r 

I 

IVFLUX 

ICNTRL 

INTEGER 

UNKNOWN 

90 

J 

J 

J 

INTEGER 

SIMPLE 

302/C 

303 

i 

JC 

IDPARM 

INTEGER 

ARRAY 

204 

!|  : 

JE 

IDPARM 

INTEGER 

ARRAY 

205 

JIC 

CCNTRL 

CHAR  *8 

SIMPLE 

5 

18 

JM 

ICNTRL 

integer 

SIMPLE 

32 

JMD2 

ICNTRL 

INTEGER 

SIMPLE 

33 

JMT2 

ICNTRL 

INTEGER 

SIMPLE 

34 

i 

JNP 

ICNTRL 

INTEGER 

SIMPLE 

35 

302 

J04 

ICNTRL 

INTEGER 

SIMPLE 

36 

1 

J08 

ICNTRL 

INTEGER 

SIMPLE 

37 

| 

JOB 

CCNTRL 

CHAR'S 

SIMPLE 

6 

19 

JP 

IDPARM 

INTEGER 

ARRAY 

206 

r 

JSP 

ICNTRL 

INTEGER 

SIMPLE 

3B 

KLIALB 

ICNTRL 

INTEGER 

SIMPLE 

39 

KLIGW 

ICNTRL 

INTEGER 

SIMPLE 

40 

j. 

KLISST 

ICNTRL 

INTEGER 

SIMPLE 

41 

KRS 

INTEGER 

SIMPLE 

327/S 

329/1 

1 

KS 

ICNTRL 

INTEGER 

SIMPLE 

42 

96 

29 

30 

31 

40 

4 1 

42 

51 

52 

53 

62 

63 

64 

73 

74 

75 

202 

203 

204 

32 

33 

34 

43 

44 

45 

54 

55 

56 

65 

66 

67 

76 

77 

78 

205 

206 

207 

35 

36 

37 

46 

47 

48 

57 

58 

59 

68 

69 

70 

208 

209 

210 

80 

81 

82 

83 

84 

85 

86 

92 

93 

94 

313 

316  'S 

316 

331 

320/C  321 

320 

306/W  314  /W  325 /W 


I 
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KSTEP 

HU 

LC 

LCO 

LCNTRL 

LDIABAT 

LDPARM 

LEFLUX 

LFLAG 

LFUSION 

LHFLUX 

LICLOUD 

LOGBR 

LOMEGA 

LPREACC 

LPRECON 

LOS 

LQU 

LRADLW 

lradlwg 

LRADSW 

LRADSWG 

LTMAX 

LTMIN 

LU 

LUFLUX 

LUNEXT 

LUU 

LVFLUX 

MATIN 

MATSNX 

MATSUN 

MJ 

MLF 

MROD 

MSM 

NB 

NO 

NDALT 

NO  AY 

NDHOG 

NO  OUT 

NDPHY 

NDRSW 

NO  SHF 

NOT 

NHMS 

NHMSO 

NHP/lSt 

NHMSE 

NKRSH 

NLAY 

NLAYM1 

NLA YP  I 

NMLEV 

NSDAY 

NSEQ 

NSTEP 

NYMD 

NYNJDO 

NYMOI 

NYMDE 

nzinit 

OMEGA2 

P 

PHI 

PHIS 

PI 


IDPARM 

ICNTRL 

LCNTRL 

LCNTRL 


LCNTHL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

ICNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


LCNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

RCNTRL 

QANDQT 

OANDQT 

OANDQT 

RCNTRL 


INTEGER 

SIMPLE 

207 

INTEGER 

SIMPLE 

43 

LOGICAL 

ARRAY 

154 

1 55 

LOGICAL 

SIMPLE 

97 

1 54 

INTEGER 

UNKNOWN 

97 

98 

LOGICAL 

UNKNOV/N 

108 

123 

109 
1 5 1 

INTEGER 

UNKNOWN 

211 

2 1 2 

LOGICAL 

UNKNOWN 

1 15 

143 

INTEGER 

SIMPLE 

1 

293 

LOGICAL 

UNKNOWN 

1 16 

1 44 

LOGICAL 

UNKNOWN 

1 14 

142 

LOGICAL 

UNKNOWN 

1 19 

1 47 

INTEGER 

SIMPLE 

44 

299/S 

LOGICAL 

UNKNOWN 

122 

150 

LOGICAL 

UNKNOWN 

1 12 

140 

LOGICAL 

UNKNOWN 

1 13 

141 

LOGICAL 

ARRAY 

108 

120 

1 10 
1 2 1 

LOGICAL 

ARRAY 

1 09 

1 22 

LOGICAL 

UNKNOWN 

125 

153 

LOGICAL 

UNKNOWN 

1 18 

146 

LOGICAL 

UNKNOWN 

124 

152 

LOGICAL 

UNKNOWN 

1 1 7 

145 

LOGICAL 

UNKNOWN 

1 1 1 

1 39 

LOGICAL 

UNKNOWN 

I 10 

1 38 

INTEGER 

SIMPLE 

295/S 

296 

LOGICAL 

UNKNOWN 

1 20 

1 48 

INTEGER 

SIMPLE 

290/1 

295 

INTEGER 

SIMPLE 

324/S 

325/W 

LOGICAL 

UNKNOWN 

1 2 1 

149 

INTEGER 

SIMPLE 

45 

INTEGER 

SIMPLE 

46 

INTEGER 

SIMPLE 

47 

INTEGER 

ARRAY 

208 

INTEGER 

ARRAY 

48 

INTEGER 

SIMPLE 

49 

33! 

INTEGER 

SIMPLE 

5 1 

INTEGER 

SIMPLE 

52 

INTEGER 

Slfv'^LE 

53 

integer 

SIMPLE 

54 

INTEGER 

SIMPLE 

55 

INTEGER 

SIMPLE 

“*6 

INTEGER 

SIMPLE 

56 

INTEGER 

SIMPLE 

57 

INTEGER 

SIMPLE 

3 1 

INTEGER 

SIMPLE 

58 

INTEGER 

SIMPLE 

59 

INTEGER 

SIMPLE 

60 

306/W 

INTEGER 

SIMPLE 

62 

INTEGER 

SIMPLE 

209 

INTEGER 

SIMPLE 

6 1 

INTEGER 

SIMPLE 

50 

INTEGER 

SIMPLE 

63 

INTEGER 

SIMPLE 

64 

INTEGER 

SIMPLE 

65 

INTEGER 

SIMPLE 

75 

INTEGER 

SIMPLE 

66 

INTEGER 

SIMPLE 

67 

INTEGER 

SIMPLE 

69 

INTEGER 

SIMPLE 

71 

306/W 

INTEGER 

SIMPLE 

73 

INTEGER 

SIMPLE 

2 1 0 

INTEGER 

SIMPLE 

72 

INTEGER 

SIMPLE 

74 

REAL 

SIMPLE 

172 

REAL 

ARRAY 

265 

278 

REAL 

ARRAY 

270 

2B3 

REAL 

ARRAY 

258 

271 

REAL 

SIMPLE 

173 

*01  102 


155 

99 

213 

299 

306/W 

1 1 1 
136 
123 


297 

296/S 


100 

308 

314/W 

1 12 
124 

298 

297/S 


317 

317/S 

1 13 
125 


301 


325/W 

1 14 
137 

303 


314/W  325/W 


314/W  325/W 


103 


1 15 


306/W 


104 


1 16 


307 


10S 


1 17 


327 


106  107 


M8  119 
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PI  180 

RCNTRL 

REAL 

SIMPLE 

174 

P 1 2 

RCNTRL 

REAL 

SIMPLE 

175 

PIMEAN 

RCNTRL 

REAL 

SIMPLE 

177 

PKSTD 

ROPARM 

REAL 

SIMPLE 

238 

PKTOP 

RDPARM 

REAL 

SIMPLE 

239 

PLEVS 

RCNTRL 

REAL 

ARRAY 

191 

PSMAX 

RCNTRL 

REAL 

SIMPLE 

178 

P5MIN 

RCNTRL 

REAL 

SIMPLE 

179 

PSTD 

RCNTRL 

REAL 

SIMPLE 

176 

P TOP 

RCNTRL 

REAL 

SIMPLE 

1 BO 

PZERO 

RCNTRL 

REAL 

SIMPLE 

197 

QALT 

LCNTRL 

LOGICAL 

SIMPLE 

98 

126 

QANDQT 

REAL 

UNKNOWN 

257 

284 

287 

QBEG 

LCNTRL 

LOGICAL 

SIMPLE 

99 

127 

QDAY 

LCNTRL 

LOGICAL 

SIMPLE 

100 

128 

QEND 

LCNTRL 

LOGICAL 

SIMPLE 

101 

129 

QQUT 

LCNTRL 

LOGICAL 

SIMPLE 

102 

130 

308/S 

309 

QPHY 

LCNTRL 

LOGICAL 

SIMPLE 

103 

131 

OPROG 

QANDOT 

REAL 

ARRAY 

257 

271 

272 

273 

274 

275 

276 

277 

278 

281 

282 

283 

QRSH 

LCNTRL 

LOGICAL 

SIMPLE 

107 

135 

315 

QRSW 

LCNTRL 

LOGICAL 

SIMPLE 

106 

134 

293 /S 

294 

326 

QSDIAG 

QANDOT 

REAL 

ARRAY 

284 

286 

QSHF 

LCNTRL 

LOGICAL 

SIMPLE 

104 

132 

QUDIAG 

QANDQT 

REAL 

ARRAY 

287 

PADS 

RCNTRL 

REAL 

SIMPLE 

181 

RC 

RCNTRL 

REAL 

ARRAY 

198 

199 

RCO 

RCNTRL 

REAL 

SIMPLE 

156 

198 

199 

RCNTRL 

REAL 

UNKNOWN 

156 

157 

158 

159 

160 

161 

162 

163 

164 

167 

168 

169 

170 

17  1 

172 

173 

174 

175 

178 

179 

180 

181 

1 82 

183 

184 

185 

186 

189 

190 

19! 

192 

193 

194 

195 

196 

197 

RDPARM 

REAL 

UNKNOWN 

217 

218 

219 

220 

221 

222 

223 

224 

225 

228 

229 

230 

23  1 

232 

233 

234 

235 

236 

239 

240 

24  1 

242 

243 

244 

245 

246 

247 

250 

251 

252 

RGAS 

RCNTRL 

REAL 

SIMPLE 

182 

RLAT 

RDPARM 

REAL 

ARRAY 

240 

RLATD 

RDPARSV3 

REAL 

ARRAY 

241 

ROCP 

RCNTRL 

REAL 

SIMPLE 

183 

ROCPDT 

ROPARM 

REAL 

SIMPLE 

242 

ROCPP1 

RDPARM 

REAL 

SIMPLE 

243 

RSOIST 

RCNTRL 

REAL 

SIMPLE 

184 

SDAY 

RCNTRL 

REAL 

SIMPLE 

185 

SEASON 

RCNTRL 

REAL 

SIMPLE 

186 

SGNP 

RDPARM 

REAL 

ARRAY 

244 

SH 

QANDQT 

REAL 

ARRAY 

269 

282 

SHS 

QANDQT 

REAL 

ARRAY 

264 

277 

SIG 

RDPARM 

REAL 

ARRAY 

251 

SIGE 

RCNTRL 

REAL 

ARRAY 

187 

SIND 

RCNTRL 

REAL 

SIMPLE 

188 

SINL 

RDPARM 

REAL 

ARRAY 

245 

SINLON 

RDPARM 

REAL 

ARRAY 

246 

SMTH 

QANDOT 

REAL 

ARRAY 

259 

272 

SN2FLG 

LCNTRL 

LOGICAL 

SIMPLE 

105 

133 

SOLS 

RCNTRL 

REAL 

SIMPLE 

189 

START 

LDPARM 

LOGICAL 

SIMPLE 

213 

216 

T 

QANDQT 

REAL 

ARRAY 

268 

2S  1 

THSTD 

RDPARM 

REAL 

SIMPLE 

247 

YHSTD2 

RDPARM 

REAL 

SIMPLE 

248 

TS 

QANDQT 

REAL 

ARRAY 

263 

276 

TSTD 

RCNTRL 

REAL 

SIMPLE 

190 
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QANDQT 

REAL 

ARRAY 
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279 

V 

QANDQT 

REAL 

ARRAY 
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280 
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CCNTRL 
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SIMPLE 

10 

23 

WSAVE 

RDPARM 

REAL 

ARRAY 
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XLA8EL 

CCNTRL 

CHAR-8 

ARRAY 
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XORDS 

CORDER 

CHAR-8 

ARRAY 

253 
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CORDER 

CHAR-8 

ARRAY 
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c 

C SUBROUTINE  VERT 
C 

C PURPOSE 

C COMPUTES  OMEGA  = VERTICAL  VELOCITY 

C 

C USAGE 

C CALLED  FROM  GWSGCM 

C 

C INPUT/OUTPUT  FILES  USED 
C NONE 

C 

C DESCRIPTION  OF  PARAMETERS 
C NONE 

C 

C SUBPROGRAMS  NEEDED 
C NONE 

C 

C RECORD  OF  MODIFICATIONS 

C 7DATE?  7 PROGRAMMER?  7DESCRIPTION  OF  MODIFICATIONS'7 

C 22JUL83  dIM-PF  ADDED  DOCUMENTATION  * VARIABLE  LOCATION 

C FOR  OMEGA 

C 

C REMARKS: 

C < 1)  RAMESH  B.  IS  THE  EXPERT  (AUTHOR)  FOR  THIS  ROUTINE 

C 

C*  M/A-COM  SIGMA  DATA  INC.  NASA  - GSFC 
c **»  + **»»»*****  + *»  + »„»», »*»*  + + + * *♦♦♦♦♦♦♦♦.♦♦♦***♦♦****♦****♦«..,.* 

c 

00001  SUBROUTINE  VERT 

C 

C~ *+»*»♦* »»»**~+»**»*» 

c 

c 


C 

c 

♦ „ + „ 

c 

OMEGA  CALCULATION 

c 

* *>  * * 

FOLLOWING  COMP  1 

r\ 

w 

* ♦ ♦ 

AND  COMP 2 

c 

C 

c 

» * «-  * 

c 

c 

c 

CHARACTER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

c 

00002 

COMMON  /CCNTRL/ 

CCO 

00003 

COMMON  /CCNTRL/ 

ADATE 

00004 

COMMON  /CCNTRL/ 

ATIME 

00005 

COMMON  /CCNTRL/ 

JIC 

00006 

COMMON  /CCNTRL/ 

JOB 

00007 

COMMON  /CCNTRL/ 

CCSP06 

OOOOB 

COMMON  /CCNTRL/ 

CCSP07 

00009 

COMMON  /CCNTRL/ 

CCSP08 

00010 

COMMON  /CCNTRL/ 

VER 

00011 

COMMON  /CCNTRL/ 

XLABEL  (10) 

00012 

COMMON  /CCNTRL/ 

CQS  (30) 

00013 

COMMON  /CCNTRL/ 

CQU  (10) 

00014 

u 

EQUIVALENCE 

(CCO.CCM  ) ) 

00015 

CHARACTER'S 

CCO.  CC ( 200 ) 

00016 

CHARACTERS 

ADATE 

00017 

CHARACTER'S 

ATIME 

00018 

CHARACTERS 

dIC 

00019 

characters 

JOB 

00020 

CHARACTERS 

CCSP06 

00021 

characters 

CCSP07 

00022 

CHARACTERS 

CCSP08 

00023 

CHARACTERS 

VER 

* *WERT 

2 

WERT 

3 

WERT 

4 

WERT 

5 

WERT 

G 

WERT 

7 

WERT 

S 

WERT 

9 

WERT 

10 

WERT 

1 1 

WERT 

12 

WERT 

13 

WERT 

14 

WERT 

15 

WERT 

16 

WERT 

17 

WERT 

18 

WERT 

19 

WERT 

20 

WERT 

21 

WERT 

22 

WERT 

23 

WERT 

24 

WERT 

25 

WERT 

26 

WERT 

27 

WERT 

28 

* *VVERT 

29 

•WERT 

30 

* -WERT 

31 

WERT 

32 

WERT 

33 

WERT 

34 

♦SVERT 

35 

WERT 

36 

WERT 

37 

WERT 

38 

WERT 

39 

WERT 

40 

WERT 

41 

WERT 

42 

WERT 

43 

WERT 

44 

WERT 

45 

WERT 

46 

VCNTRL 

2 

VCNTRL 

3 

VCNTRL 

4 

VCNTRL 

S 

VCNTRL 

6 

VCNTRL 

7 

VCNTRL 

B 

VCNTRL 

9 

VCNTRL 

10 

VCNTRL 

1 1 

VCNTRL 

12 

VCNTRL 

13 

VCNTRL 

14 

VCNTRL 

15 

VCNTRL 

16 

VCNTRL 

17 

VCNTRL 

18 

VCNTRL 

19 

VCNTRL 

20 

VCNTRL 

21 

VCNTRL 

22 

VCNTRL 

23 

VCNTRL 

24 

VCNTRL 

25 

VCNTRL 

26 

VCNTRL 

27 

ORIGINAL  PASS  53 
OF  POOR  QUALITY 


00024 

00025 

00026 

C 

C 

C 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 
00061 
00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

00073 

00074 

00075 

00076 

00077 

00078 

C 

00079 

00080 
00081 
00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 


CHARACTER'S  XLABEL 

CHARACTERS  COS 

CHARACTERS  CQU 

INTEGER  MODEL  PARAMETERS  SAVED  ON  HISTORY  RECORD 

COMMON  / 1 CNTRL  / ICO ~ ~ ~ ' “ 

COMMON  /ICNTRL/  IM 

COMMON  /ICNTRL/  IMD2 

COMMON  /ICNTRL/  IMD2P1 

COMMON  /ICNTRL/  NDRSW 

COMMON  /ICNTRL/  JM 

COMMON  /ICNTRL/  JMD2 

COMMON  /ICNTRL/  JMT2 

COMMON  /ICNTRL/  JNP 

COMMON  /ICNTRL/  J04 

COMMON  /ICNTRL/  J08 

COMMON  /ICNTRL/  JSP 

COMMON  /ICNTRL/  KLIALB 

COMMON  /ICNTRL/  KLIGW 

COMMON  /ICNTRL/  KL2SST 

COMMON  /ICNTRL/  KS 

COMMON  /ICNTRL/  KU 

COMMON  /ICNTRL/  L0G8R 

COMMON  /ICNTRL/  MATIN 

COMMON  /ICNTRL/  MATSNX 

COMMON  /ICNTRL/  MATSUN 

COMMON  /ICNTRL/  WILF  (12) 

COMMON  /ICNTRL/  MROD 
COMMON  /ICNTRL/  NKRSH 
COMMON  /ICNTRL/  MSM 
COMMON  /ICNTRL/  NB 
COMMON  /ICNTRL/  ND 
COMMON  /ICNTRL/  NDALT 
COMMON  /ICNTRL/  NDAY 
COMMON  /ICNTRL/  NDOUT 
COMMON  /ICNTRL/  NDPHY 
COMMON  /ICNTRL/  NDSHF 
COMMON  /ICNTRL/  NDT 
COMMON  /ICNTRL/  NHMS 
COMMON  /ICNTRL/  NHMSE 
COMMON  /ICNTRL/  NHMSO 
COMMON  /ICNTRL/  NLA Y 
COMMON  /ICNTRL/  NLAYM1 
COMMON  /ICNTRL/  NLA YP 1 
COMMON  /ICNTRL/  NSDAY 
COMMON  /ICNTRL/  NSEQ 
COMMON  /ICNTRL/  ICSP53 
COMMON  /ICNTRL/  NSTEP 
COMMON  /ICNTRL/  5BLKSIZ 
COMMON  /ICNTRL/  NYMD 
COMMON  /ICNTRL/  NYMDE 
COMMON /ICNTRL/  NYMDO 
COMMON  /ICNTRL/  NZINIT 
COMMON  /ICNTRL/  NMLEV 
COMMON  /ICNTRL/  NDWOG 
COMMON  /ICNTRL/  IQS  (30) 

COMMON  /ICNTRL/  IQU  (10) 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(ITMIN  t IQS ( I)) 
(ITMAX  , I QS ( 2)> 
(IPREACC  , I QS(  3)) 
(IPRECON  « I QS{  4)) 
( INFLUX  t IQ5(  5) ) 
(IEFLUX  . IQSC  6)) 
( I FUSION  * I QS ( 7)) 
(IRADSWG  * I QS ( 8)) 
(IRAOLWG  , IQS(  9)) 
(II CLOUD  . I QS ( 10 ) ) 
(IUFLUX  f IQS  < 11)) 
(IVFLUX  9 I QS (12)) 
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28 

VCNTRL 

29 

VCNTRL 

30 

VCNTRL 

31 

VCNTRL 

32 

VCNTRL 

33 

VCNTRL 

34 

VCNTRL 

35 

VCNTRL 

36 

VCNTRL 

37 

VCNTRL 

38 

VCNTRL 

39 

VCNTRL 

40 

VCNTRL 

41 

VCNTRL 

42 

VCNTRL 

43 

VCNTRL 

44 

VCNTRL 

45 

VCNTRL 

46 

VCNTRL 

47 

VCNTRL 

48 

VCNTRL 

49 

VCNTRL 

50 

VCNTRL 

51 

VCNTRL 

52 

VCNTRL 

53 

VCNTRL 

54 

VCNTRL 

55 

VCNTRL 

56 

VCNTRL 

57 

VCNTRL 

58 

VCNTRL 

S9 

VCNTRL 

60 

VCNTRL 

61 

VCNTRL 

62 

VCNTRL 

63 

VCNTRL 

64 

VCNTRL 

65 

VCNTRL 

66 

VCNTRL 

67 

VCNTRL 

68 

VCNTRL 

69 

VCNTRL 

70 

VCNTRL 

71 

VCNTRL 

72 

VCNTRL 

73 

VCNTRL 

74 

VCNTRL 

75 

VCNTRL 

76 

VCNTRL 

77 

VCNTRL 

78 

VCNTRL 

79 

VCNTRL 

80 

VCNTRL 

81 

VCNTRL 

82 

VCNTRL 

82 

VCNTRL 

84 

VCNTRL 

85 

VCNTRL 

86 

VCNTRL 

87 

VCNTRL 

88 

VCNTRL 

89 

VCNTRL 

90 

VCNTRL 

91 

VCNTRL 

92 

VCNTRL 

93 

VCNTRL 

94 

VCNTRL 

95 

VCNTRL 

96 

VCNTRL 

97 

VCNTRL 

98 

c 


00091 

00092 

00093 

00094 

00095 

00096 

C 

C 

c 

00097 

00098 

00099 
00  100 
00101 
00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

C 

00110 
00111 
00112 
001  13 

00114 

001 15 
001  16 
00117 
001  18 

00119 

00120 
00121 

C 

00122 

00123 

00124 
00  125 

C 

00126 
□ 0127 
00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

C 

00136 

00137 

00138 

00139 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

C 

00150 

00151 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


< IOMEGA  . I QU  ( 
< IDIABAT  ,IQU( 
{ IRADSW  , I QU 1 
fIRADLW  , I QU ( 


U> 

21) 

3)  ) 

4)  ) 


EQUIVALENCE 

INTEGER 


C ICO, ICC  1 I ) 
ICO,  10(200) 
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COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 
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/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 

/LCNTRL/ 


LCO 
QALT 
Q8EG 
QDAY 
QEND 
QOUT 
QPHY 
QSHF 
SN2FLG 
QRSW 
QRSH 
LQS ( 30 ) 
LQU< 10) 
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GO  TO  1070 
3 CONTINUE 

CONV ( I t L , K ) = CONV ( I , L , K ) 

& - 8 . *PV ( I , L , K } 

* - fe.*ipui  < i ) -pu i ( t s i ) ) - iPU2i  n-PU2US2>  > > 

t CONTINUE 

> CONTINUE 

CONV (I , L , K ) = CONV( I . L , K > +DSXG1 L ) 


Z 52  - IS1 
IS1  = I 
I = IP1 
IP1  = IP2 


, K ) *DSI G < L > 


P I T ( I , K ) 


CONTINUE 

CONTINUE 

IF  (d.EQ . 1 ) GO  TO  1 130 
OO  1120  1=1, IM 
- CONV ( I , NLA  Y , K ) 

DO  1100  L= 1 , NLA YM1 

= P IT ( I t K ) + CONVd.L.K) 

CONTINUE 

DO  1110  L = 1 , NLA YM1 
= SD2  * CONV ( I tL,K ) 


C *■*  + * # , 

c ****  OMEGA  { SI GDOT^P I ) * 1 , E6 

3 ................ .. 

c 

QUDIAGU  ,L.  IOMEGA, d>  = SD2/DX  YP  ( J ) • 1 . EG 
1110  CONTINUE 

1120  CONTINUE 

IF  (d.LT.dM)  GOTO  3000 
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83 

WERT 

84 

WERT 

85 
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87 
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WERT 

89 

WERT 

90 

WERT 
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WERT 

92 
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93 
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94 
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95 

WERT 

96 

WERT 

97 

WERT 

98 

WERT 
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WERT 
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WERT 
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VVERT 
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VVERT 
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WERT 
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VVERT 
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WERT 
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WERT 

108 

WERT 

109 

WERT 

110 

WERT 
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WERT 

112 

WERT 

1 13 

VVERT 

114 

WERT 

1 15 

WERT 

t 16 

WERT 

1 17 

WERT 

118 

WERT 

1 19 

WERT 

120 

VVERT 

121 

WERT 

122 

VVERT 
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WERT 

124 

WERT 
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WERT 
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VVERT 
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VVERT 
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VVERT 
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WERT 
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VVERT 
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WERT 
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WERT 
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WERT 
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WERT 
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WERT 
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WERT 
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00369 

00370 
0037  1 

00372 

00373 

00374 

00375 

00376 

00377 

00378 

00379 

00380 
0038  1 
00382 
003S3 

00384 

00385 

00386 

00387 

00388 

00389 

00390 

00391 


J ^ CONTINUE 

IVI  5 1 

IP  ftJ.EO.JMJ  W = 2 
K = JCfJF(M) } 

UP!  * JP(  1 ) 

JP2  = JP<2,M> 
i ..j-j  . DO  1150  L-  1 , NLA  V 

W?sW  NLAVNB 

PV2S  =■  o! 

pv'sVpi  S§Bi % * ?"wb . i . jp , , 

J^*V  ‘ 1 ’ LNB  . 1 , dP2, 

CONTINUE 

* L ’CONTINUE**  (M>  * (C0N1  *PV1S  + CON2*PV2S)  *DSIGf  I 
502  “ 0 . 

SD2  °?  IX*°  l“1.NLAVM1 
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00392 

00393 

00394 

00395 

00396 

00397 

00398 

00399 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00408 

00409 

00410 
004  1 1 

00412 

00413 

00414 

00415 

00416 

00417 

00418 


3000  CONTINUE 

US2  = J - 2 

dS2  ■ 

JS 1 = j - j 

UP  1 = J + t 

JP2  = J + 2 

IF  fJ.EQ.dM)  JP2 

_ K = dCfd) 

C * * * 


DO  50  L=1 , NLA Y 
L * NLAYND 
*-  + NLAYNB 
LNB  * 1 

TP  ! 4 * I?  * MLA V > LWE  = LNB 
IM  - 3 EO  n GO  TO  20 
IM  - 2 


IXP  sr  J 
IF  (U.EQ.dM) 


DO  10  I P2= 1 * IM 


INDEX ( I ) 


IP  td.EQ.2)  IXS  - INDEX  f T 1 

Pxi  = pIl^'Sl'*!}  - 

PV1  ‘ PIT  ■ F ( I S2 , NB  , d ) 

pV2  . PUiK2I  P,|{K^!dS2, 
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WERT  138 
WERT  139 
WERT  140 
WEPT  141 
WERT  142 
WERT  143 
WERT  144 
WERT  145 
WERT  146 
WERT  147 
WERT  148 
WERT  149 
WERT  150 
WERT  151 
WERT  152 
WERT  153 
WERT  154 
WERT  155 
WERT  156 
WERT  157 
WERT  158 
WERT  159 
WERT  ISO 
WERT  161 
WERT  162 
WERT  163 
WERT  164 
WERT  165 
WERT  1 66 
WERT  167 
WERT  168 
WERT  169 
WERT  170 
WERT  171 
WERT  172 
WERT  173 
WERT  174 
WERT  175 
WERT  176 
WERT  177 
WERT  178 
WERT  179 
WERT  180 
WERT  181 
WERT  182 
WERT  183 
WERT  184 
WERT  185 
WERT  1Q6 
WERT  187 
WERT  188 
WERT  189 
WERT  190 
WERT  191 
WERT  192 
WERT  193 
WERT  194 
WERT  195 
WERT  196 
WERT  197 
WERT  198 
WERT  199 
WERT  200 
WERT  201 
WERT  202 
WERT  203 
WERT  204 
WERT  205 
WERT  206 
WERT  207 
VVERT  208 
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00419 


PDOT 


00420 

00421 

00422 

00423 

00424 

00425 

00426 

00427 

00428 

00429 

00430 
0043  1 

00432 

00433 

00434 

00435 


00436 


00437 


00438 

00439 

00440 

00441 

00442 

00443 

00444 


= .5* 

* f DVP  f d ) * f U ( I 

* + DXP<J)»(VU 
QUO  I AG ( I f L , IOMEGA ,J) 


2000  CONTINUE 
IS2 
IS1 
I = 

IP1 


U < I , LWE  , 1 t <J ) ) * ( 8 . *P  X 1 - 
LNB.1,d)  * VCI,LWE,1  d>>M8  *pyi  - 
= QUDI  AG(  I,  L.  IOMEGA',  d> 

* SIGEIL+ 1 ) *PDOT/DXYP< d > *1 . EG 


PX2) 
PY2  J 


10 

20 


C 

C 

C 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


tS 

<3 

a 

30 


» IS1 
= I 
IP1 
= IP2 

CONTINUE 
IF  ( d . L T 
CONTINUE 

M = 1 

IF  (J.EQ.dM) 
dEND  =■  dE(M) 

KE  = dC(UEND) 

= 0 . 

DO 
PVDS 
< SGNP ( M > 


UM>  GO  TO  50 


PVDS 
PVDS  = 


M = 2 


30  1 = 1 . IM 


( UP ( LNB . 1 ,M) 
/es  t VP  1 LNB  , 1 * M) 

( S . *P { I , NB , JP ( 1 , M ) ) - 

CONTINUE 


+ UP (LWE . 1 .M>  ) * 

* VP  < LWE , 1 ,M> ) * 

P< I , NB , dP ( 2 , M > > > 


COSLON ( I ) 
SI NLON ( I > 


0.5 


OMEGA  AT  POLES  f SI G *P I DOT > ♦ 1 , E6 


sOUOIAG( t.t, IOMEGA, JEND)  = QUO I AG(1 , L . IOMEGA , JEND ) 

* SIGE<L*‘-1)*'C0N5*PVDS*1  .E8 


UNIFORM  OMEGA  AT  POLES 


DO  40  1 = 1,  IM 
QUDIAGU.L.  IOMEGA  , dEND  > 
CONTINUE 
, 50  CONTINUE 

1000  CONTINUE 

RETURN 

END 


OUD I AG C 1 , L . IOMEGA , dEND ) 
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347 
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348 

344 
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354 

324 
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355 

3 10 

1 100 

3G1 

359 

1 1 10 
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1 120 

367 

357 

1 130 

369 

356 

1 140 

384 
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375 
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388 
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VVERT 

232 

WERT 

233 
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WERT  236 
WERT  237 
WERT  238 
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30 

436 

434 

3000 

392 

368 

40 

440 

438 

50 

44  f 

400 

427 

VARIABLE  MAP 


-NAME 

BLOCK 

TYPE 

CLASS- - 

ADATE 

CCNTRL 

CHAR'S 

SIMPLE 

ADLDP 

RDPARM 

REAL 

SIMPLE 

ALBEDO 

QANDQT 

REAL 

ARRAY 

APHEL 

RCNTRL 

REAL 

SIMPLE 

AT  I ME 

CCNTRL 

CHAR  *8 

SIMPLE 

BETA 

RCNTRL 

REAL 

SIMPLE 

CALTOJ 

RCNTRL 

REAL 

SIMPLE 

CC 

CCNTRL 

CHARTS 

ARRAY 

CCO 

CCNTRL 

CHAR  *8 

SIMPLE 

CCNTRL 

REAL 

UNKNOWN 

CCSP06 

CCNTRL 

CHAR'S 

SIMPLE 

CCSP07 

CCNTRL 

CHAR'S 

SIMPLE 

CCSPOS 

CCNTRL 

CHAR  *8 

SIMPLE 

CONI 

RDPARM 

REAL 

SIMPLE 

CON IDT 

RDPARM 

REAL 

SIMPLE 

CON  2 

RDPARM 

REAL 

SIMPLE 

C0N2DT 

HOP ARM 

REAL 

SIMPLE 

CON3 

RDPARM 

REAL 

SIMPLE 

C0N3DT 

RDPARM 

REAL 

SIMPLE 

CON4 

RDPARM 

REAL 

SIMPLE 

CON40T 

RDPARM 

REAL 

SIMPLE 

CONS 

RDPARM 

REAL 

SIMPLE 

CONV 

QMSAVE 

REAL 

ARRAY 

COSD 

RCNTRL 

REAL 

SIMPLE 

COSL 

RDPARM 

REAL 

ARRAY 

REFERENCES  A sARGL I ST , C=CTRL  CP  DO, 

3 1 6 

217 

256  269 

157 

4 17 

158 
196 

14  IS 

2 14  15 

2 3 4 5 6 

13 

7 20 

8 21 

9 22 

218  385 

219 

220  385 

221 
222 

223 

224 

225 

226  437 

298  332/S  333/S  341 /S  342/S 

349  358  360  364  385 /S 

227 


I = D A T A INI  T , R -READ  , S^STORE  . W=V/RITE 


7 8 9 10  11 


342  343/S  343  346/S  346 

389 


12 


349 


COSLOU 

RDPARM 

CP 

RCNTRL 

CPQ2 

RDPARM 

CQS 

CCNTRL 

CQU 

CCNTRL 

DAYSPY 

RCNTRL 

DEC 

RCNTRL 

DECMAX 

RCNTRL 

DIST 

RCNTRL 

DLAT 

RCNTRL 

OLON 

RCNTRL 

DSIG 

RDPARM 

DSIGINV 

RDPARM 

DT 

RCNTRL 

D'  P 

RDPARM 

D <YP 

RDPARM 

UYP 

RDPARM 

ECCN 

RCNTRL 

EPS 

RCNTRL 

EPSFAC 

RCNTRL 

F 1 DT 

RDPARM 

F2DT 

RDPARM 

FCORLS 

RDPARM 

FILTER 

LDPARM 

GNU1 

RCNTRL 

GNU2 

RCNTRL 

GRAV 

RCNTRL 

GT 

QANDQT 

GW 

QANDQT 

H1DT 

RDPARM 

H2DT 

RDPARM 

HEATI 

RCNTRL 

HEATW 

I 

RCNTRL 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

CHAR'8 

ARRAY 

CHAR'S 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

Rt*  AL 

ARRAY 

LOGICAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

SIMPLE 

INTEGER 

SIMPLE 

228 

160 

229 
12 
13 

161 

162 

163 

184 

165 

166 
250 
252 

167 

230 

231 

232 

168 

194 

195 

234 

235 

233 
21  1 

169 

170 

171 

257 

258 

236 

237 
193 
192 
315/S 
333 


435 

25 

26 


349 


334 

365 

317 


214 


270 

271 


319 

334 


385 


335 

420 

318 


319 

334 


337 

319 


3 19 
334 


4 19 
320 


32  1 
335 


326 


322 

335 


419 


327  327 

335  337 


323 

337 


328 

337 


332 

338 
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IBLKSIZ 

ICNTRL 

xc 

ICNTRL 

ICO 

ICNTRL 

ICNTRL 

ICSP53 

ICNTRL 

IDIABAT 

ICNTRL 

IDPARM 

IDSP02 

IDPARM 

1EFLUX 

ICNTRL 

IFUSION 

ICNTRL 

INFLUX 

ICNTRL 

I I CLOUD 

ICNTRL 

I JUMP 

IDPARM 

IM 

ICNTRL 

XMD2 

ICNTRL 

IMD2P1 

ICNTRL 

INDEX 

IDPARM 

IOMEGA 

ICNTRL 

rpi 

IP2 

IPREACC 

ICNTRL 

I PRECON 

ICNTRL 

I OS 

ICNTRL 

IOSDIAG 

QANDQT 

IQU 

ICNTRL 

IRADLW 

ICNTRL 

I RADLWG 

ICNTRL 

IRADSW 

ICNTRL 

I RADSV/G 

ICNTRL 

I ROD 

IDPARM 

IS1 

IS2 

ITAPE 

LDPARM 

ITMAX 

ICNTRL 

ITMIN 

ICNTRL 

IUFLUX 

ICNTRL 

IVFLUK 

ICNTRL 

IXP 

IXS 

J 

JC 

IDPARM 

JE 

IDPARM 

UEND 

dIC 

CCNTRL 

JM 

ICNTRL 

JMD2 

ICNTRL 

JMT2 

ICNTRL 

dNP 

ICNTRL 

JD4 

ICNTRL 

doa 

ICNTRL 

JOB 

CCNTRL 

INTEGER 

SIMPLE 

INTEGER 

ARRAY 

INTEGER 

SIMPLE 

INTEGER 

UNKNOWN 

INTEGER 

SIMPLE 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

SIMPLE 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

integer 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

ARRAY 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

ARRAY 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

ARRAY 

INTEGER 

ARRAY 

INTEGER 

ARRAY 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

StMPLE 

LOGICAL 

SIMPLE 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

UNKNOWN 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

ARRAY 

INTEGER 

ARRAY 

INTEGER 

SIMPLE 

CHARTS 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

INTEGER 

SIMPLE 

CHAR  *8 

SIMPLE 

338 

346 

360 

411 

420 

70 
95 
27 

27 
38 
49 
60 

71 
68 
92 

200 

201 

84 

05 

83 

88 

200 

28 
409 

29 

30 
202 

91 

316/S 

425/S 

324/C 

81 

82 

77 
89 

281 

78 
94 
87 
93 
86 

203 
314/S 
351/S 
313/S 
422/S 
212 

ao 

79 

89 

90 

41  T/S 

413/S 

304/C 

319 

334 

396 

416 

430 

204 

205 
431/S 

5 

32 

33 

34 

35 

36 

37 

6 


339 

346 

360 

412 

423 

96 

95 

28 

39 

50 

61 

72 


201 


313 

410 


412 

365 

320 

326 


79 

90 
282 

91 


318 

407/S 

317 


339 

341 

342 

342 

346 

346 

349 

349 

360 

364 

365 

379/C 

413 

414 

417 

417 

424/S 

434/C 

435 

435 

96 

29 

30 

31 

32 

40 

4 1 

42 

43 

5 1 

52 

53 

54 

62 

63 

64 

65 

73 

74 

75 

76 

202 

203 

204 

205 

314 

434 

315 

438 

316 

324 

414 

390 

320 

420 

320 

420 

323 

437 

327 

326 

326 

328 

353 

80 

a i 

82 

83 

92 

93 

94 

318 

318 

322 

322 

415 

422 

4 23/S 

SI  7 

31  7 

321 

321 

343 

351 

380 

419 

435 

343 

352/S 

380 

419 

435 

343 

357/C 

382 

419 

438/C 

343 

358 

382 

419 

439 

33 

44 

55 

66 

77 

34 

45 

56 

67 

78 

35 

46 

57 

68 

36 

47 

58 

69 

206 

207 

208 

209 

357 

379 

406 

407 

437 

352 

439 

353/S 

439 

409/S 

415 

410/C 

416 

425 

84 

85 

85 

87 

323 

323 

343 

346 

343 

346 

350/S 

406/S 

346 

358 

408 

420 


37 

4S 

59 

70 


210 


408 

424 

S8 

350 

416 


215 


412/S 

418 

414/S 

418 

305 

306 

307 

319 

320 

320 

334 

356 

365 

397 

398 

398 

4 19 

419 

4 19 

307 

308 

309 

372 

390 

431 

432 

437 

437 

18 

304 

329 

368 

317 

317 

317 

320 

325 

326 

365 

368 

371 

399 

405 

412 

4 19 

419 

419 

372 

399 

432 

439 

439 

371 

398 

412 

318 

318 

318 

o o 

^ S3 

si 

o g 

319  7U  SS 

326 

326 

329 

334  * 

393 

394 

394 

395  «©  -g 

4,6  C S 
427  £ © 

4 1 4 

415 

415 

420 

420 

420 

427 

4 30 

<[  & 

19 
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*; 
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. •* 


dP 
tiP  1 
dP2 
dS? 

JS2 

JSP 

K 

KH 

KLIALB 
K L I GW 
KLISST 
KPt 


I DP  ARM 


ICNTRL 


ICNTRL 

ICNTRL 

ICNTRL 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


ARRAY 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 


206 

305/S 

306/S 

395/S 

393/S 

36 

307/S 

349 

432/S 

39 

40 
4 1 

SOS/  s 


373 

308 

309 
4 17 

374 

335 

337 

435 

335 

337 

435 

335 

337 

373/S 

374/S 

380 

382 

380 

382 

396 /S 
397/S 

417 

398/S 

418 

394/S 

418 

333 

358 

334 

358 

338 

360 

339 

360 

34  3 
360 

343 

364 

346 

372/S 

346 

385 

346 

389 

349 

399 

332 


335 


338 


342 


S 


to 


342 


KP2 

KS 

KSTEP 

KU 

L 


LC 

LCO 

LCNTRL 

LDIA8AT 

LDPARM 

LEFLUX 

LFUS2  ON 

LHFLUX 

LI CLOUD 

LNB 

LND 

LOGSR 

LOMEGA 

LPREACC 

LPRECON 

LOS 

LQU 

LRADLW 

LRADLWG 

LRADSW 

LRADSWG 

LTMAX 

LTMIN 

LUFLUX 

LVFLUX 

LWE 

M 

MATIN 

MATSNX 

MATSUN 

Md 

MLF 

MROD 

MSM 

NB 

ND 

NDALT 

NDAY 

NOHOG 

NDOUT 

NDPHY 

NDRSW 

NDSHF 


ICNTRL 

IOPARM 

ICNTRL 


LCNTRL 

ICNTRL 


LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


ICNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 

LCNTRL 


ICNTRL 

ICNTRL 

ICNTRL 

IDPARM 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 

ICNTRL 
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COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 
COMMON  /SPACE/ 


CONT (72,37) 

GAP ( 72 , 37 ,10) 
CAPPSI ( 72 , 37 ,10) 
TRAD { 72 ♦ 21 ) 

TRAD  1 <72  > 

X X < 72 , 2 1 ) 

VY  < 72 ,21) 

08(72,21 ,11) 

SS (72.21 ,11) 
881(72.10) 

SSI (72. 10) 

BG<  72 . 10) 

CM( 72 , 19) 

R(72. 19, 19, 1 1 y 
Q 1 (72) 

Q2 ( 72 ) 

VAR (72, 19) 

PM (72 > 

CGC72) 

CAPT (72) 

CAP2f 72) 

TERM{ 72) 

TERM* (72) 

TERM2 ( 72 ) 

CMK72) 

CM I t (72) 

PH ( 72 ) 

PHI  1(72,19) 

AVI (72, 19) 

AV2 (72, 19) 
TINF(72, 19, 10) 
WTRINF ( 72 , 19. TO) 
RCBPM ( 72 , 19) 

RCBAV < 72 . 19) 

RCBPD ( 72 , 19) 

RCBCG ( 72 , 19) 

TEMP 2 ( 72 , 38 ) 

S ( 72 , 10,10) 

SUM (72) 

SURFL ( 72 ) 

SURFU ( 72 ) 

AG<72) 

TRB ( 72 ) 

SS8 ( 72) 

TRD ( 72 ) 

SSD ( 72 ) 

JV(72) 


COMMON  /WUDATA/  T01 < 19 . 5 > , T02 ( 1 9 , 5 ) 
COMMON  /WUDATA/  CTINF  <19,2), CTRAN5 ( 


* TR03 ( 19, 19,5) 

19, 19,2) ,CTIN( 19,2) 


DIMENSION  T03 ( 19, 19) , Tit (19)  , TI2(19) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


G<2> 

cno) 

APRI (5) 
CNUCUBt 10) 
W ( 37  ) 


BPRI (5 ) 
DELNU1 10) 


X ( 10) 


DATA  APRI 
DATA  BPRI 
DATA  G 
DATA  C 
S 

DATA  X 
S 

DATA  CNUCUB 
S 

OATA  DELNU 
S 


21 .235/ 
-74.340/ 


/O.,  9.08.  15. t,  13.469, 

/O. , -38,10.  -54.1,  -120.000. 

/27.15  . 21.76/ 
f • IB. 46318,  1,49369,  .086965, 

1.8675,  51.31344,  350.0512,  26.79471/ 
474 -771,  633.028,  834.446,  1050.25, 

2014.18,  2301.92,  2733.53/ 

1 344 . 47 , 3186.9,7299.53. 

374Jl2* .J7542.8, J0265B. , 153240. ,256609. 
/280 . , 100.,  120..  160.,  140.,  400..  150 

100.,  300.,  300./  ’ 


VSPACE  24 
VSPACE  25 
VSPACE  26 
VSPACE  27 
VSPACE  28 
VSPACE  29 
VSPACE  30 
VSPACE  31 
VSPACE  32 
VSPACE  33 
VSPACE  34 
VSPACE  35 
VSPACE  36 
VSPACE  37 
VSPACE  38 
VSPACE  39 
VSPACE  40 
VSPACE  41 
VSPACE  42 
VSPACE  43 
VSPACE  44 
VSPACE  45 
VSPACE  46 
VSPACE  47 
VSPACE  48 
VSPACE  49 
VSPACE  50 
VSPACE  51 
VSPACE  52 
VSPACE  53 
VSPACE  54 
VSPACE  55 
VSPACE  56 
VSPACE  57 
VSPACE  58 
VSPACE  59 
VSPACE  60 
VSPACE  61 
VSPACE  62 
VSPACE  63 
VSPACE  64 
VSPACE  65 
VSPACE  66 
VSPACE  67 
VSPACE  68 
VSPACE  69 
VSPACE  70 
VSPACE  71 
VVLINKH  7 
VVLINKH  8 
VVLINKH  9 
VVLINKH  10 
VVLINKH  11 
VVLINKH  12 
VVLINKH  13 
VVLINKH  14 
VVLINKH  IS 
VVLINKH  16 
VVLINKH  17 
VVLINKH  18 
VVLINKH  19 
VVLINKH  20 
VVLINKH  21 
VVLINKH  22 
VVLINKH  23 
VVLINKH  24 
VVLINKH  25 
VVLINKH  26 
VVLINKH  27 
WutNKH  28 
VVLINKH  29 


o 

•*: 

2?  i 


w 

a? 


By 

2r-  (?■) 

C sit 


VLINKHO  2 


DA?2  kSr?P/^'P2’)<V-NFF  '’-°«3E6.1.E3.5.E3.5.BSS27.10/ 

iw  = JMBAND  / NNVLH 

TT  = 0.0 

TTT ( t ; IM)  s 0.0 
D0-."?9_IB  «JMTMBAND.IM 


AGRNDP 
A3980 
A2940 
A 1 960 
A6 


1 . /GRNDP 
1 . /<3,*9B0. ) 
I . /294  0 . 

1 . / 1360. 

I . /6  . 


LAV 

NF 

NFLW 

NFL 

LA 

LLLAV 

NLEV 

NLE 

L2 

LL 

L3 

IML3 
I ML  2 
IML2L2 
IML2T2 
IMNFLW 
IMNF 
1MT2 
I M2  1 


LLA V- 1 
5 

NFF 

NFLW+1 

LAY-1 

LLAY* 1 

LLAY-4+1 

NLEV-2 

LLAY*2M 

L2*  1 

LL*  1 

I M * L 3 

IM-L2 

IML2  »L2 

IML2*2 

IM*NFLW 

IM*NF 

IM*2 

IM*2 1 


DO  50  L = 1 t LLAY 

plb!ib:1:Ii"}  : PLpfel!g:l:ja!:j;S 

contInu! * * ***  ’ IhlubIItIim”  ?;g.B 

PLE (IB, LLLAV; JM>  = PLE < IB , LLLAY; IM> . I . E3 

WHERE  I BITUlflSI  ) SHQ  ( IS  j IM  I *1°'  i!e-8 

KVM  ; 1M>  = O 

DO  2555  I = t .LLAY 

WHERE,  IITJJtMISJ  ) -Gr  °° 

continue™*  = KVn’IM’  -r 

DPI < 1 ?1M)  3 P2  - PI 

0P2 ( 1 : IM)  = PLE ( X8 « 1 ; IM)  - P2 


Q 

C * • • < 

C ♦ * » 4 

C 


CALL  ZEITBEG<BHSTRATM  ) 

CALL  ZEIll^  ST™™,T,.T2.IDAY.LATD> 


DO  2324  J=i  LLAY 

dd=2*d 

Id=4*J 

DP  < 1 % dd-  1 ; I'M)  = - 


( PLE ( IB , d : IM) - PL ( IB , J ; IM) 


VVLINKH  30 
VVLINKH  31 
VVLINKH  32 
VVLINKH  33 
VVLINKH  34 
VVLINKH  35 
VVLINKH  36 
VVLINKH  37 
VVLINKH  38 
VVLINKH  39 
VVLINKH  40 
VVLINKH  41 
VVLINKH  42 
VVLINKH  43 
VVLINKH  44 
VVLINKH  45 
VVLINKH  46 
VVLINKH  47 
VVLINKH  48 
VVLINKH  49 
VVLINKH  SO 
VVLINKH  51 
VVLINKH  52 
VVLINKH  S3 
VVLINKH  54 
VVLINKH  55 
VVLINKH  56 
VVLINKH  57 
VVLINKH  58 
VVLINKH  59 
VVLINKH  60 
VVLINKH  61 
VVLINKH  62 
VVLINKH  63 
VVLINKH  64 
VVLINKH  65 
VVLINKH  66 
VVLINKH  67 
VVLINKH  68 
VVLINKH  69 
VVLINKH  70 
VVLINKH  71 
VVLINKH  72 
VVLINKH  73 
VVLINKH  74 
VVLINKH  75 
VVLINKH  76 
VVLINKH  77 
VVLINKH  78 
VVLINKH  79 
VVLINKH  SO 
VVLINKH  81 
VVLINKH  82 
VVLINKH  83 
VVLINKH  84 
VVLINKH  85 
VVLINKH  86 
VVLINKH  87 
VVLINKH  88 
VVLINKH  89 
VVLINKH  90 
VVLINKH  91 
VVLINKH  92 
VVLINKH  93 
VVLINKH  94 
VVLINKH  95 
VVLINKH  96 
VVLINKH  97 
VVLINKH  98 
VVLINKH  99 
VVLINKH100 


o o 
-n  2 
•a  5 

o 2 

O ■& 

so  p 

«0  "53 

c JSS 
> © 
r~  r-3 


VLINKHO  3 


0017S 

00  179 
00  180 
00181 
00TS2 

00183 

00184 

00185 

00186 

00187 

00188 
00189 


00190 

00191 

00192 


00193 

00194 

00195 

00196 

00197 

00198 

00199 

00200 
00201 
00202 

00203 

00204 

00205 

00206 

00207 

00208 

00209 

00210 

0021  1 
00212 

00213 

00214 

00215 

00216 

00217 

00218 
00219 
00220 
00221 
00222 

00223 

00224 

00225 

00226 


00227 


C DPM,|JJ  ;IM)  ~ " °'S  * ( PL(  IB,  J;  IM>-PLE<  IB,  d+1  ; IM>  I 

P( 1 , IJ-3; IM1  = PLE ( I B * J ; IM> 

p tii-jifliSi  = pK!«sS:SjSSi  + 0P<1’dd-l5IM) 

c P<1-IJ  ?1M>  * PL < 1 8 1 J ; IM I * DPI1.JJ 

J c Ptt.IJ-1  JIM)»AGRWDP 

PMTri'T^^fS!  = P{  1 IMMAGRNDP 

awr  1 ! 9 JK  = Pp  * IJ-3;  IMMAGRNDP 

PHI C 1 ♦ I J ; IM)  “ P 1 . IU  * AGRNDP 

2324  CONTINUE  ' ' * AL,KNDP 

C 

pmim’SHMS!  = PLE  ( IB , LLLAV ; IM) 

c PHI ( 1 iNLEVjIM)  = Pit, NLEV ; IM)  * AGRNDP 

CALL  ZEI  TBEG(8H03INT  ) 

CALL  ZEITENDINT<  701 ’ T°Z ' TR03’ TI » • TI2 . T03 . JALB ) 

C 

CONT  t=EXP(  1745./T1-XY) 

CONT2=EXP( 1745./T2-XV) 

c 

TS(1;IM)  = TLE ( IB  f LLLAV ; IM > 

DO  5354  1=1 t 3 
T ( 1 . I ; I'M ) - TL<IB,1;IM) 

5354  CONTINUE 
C 

DO  11  1=1, LAV 

C 

OTHERWISE 

ENOWHERE1  = SHL(IB’I;IM>  ' SHL 1 IB , I + 1 ; IM) 

C 

PDT(1;IM>  = TL ( I B , I * 1 s IM) - TL { I fi  T • rMi 

3 : lEi  = VAL0Gt  POP  < « ; IM)  ; POP(t'lM)  > 
c PD(1:IM>  = PDT {1 ; IM)  / PDP(t;JM) 

i t ro-t i j / i a „ » » 


L _c  (2-n^MLA-n 


IF 

<L 

* LE  , 

► 0) 

M = 

2 

GO 

TO 

12 

I F 

(I 

.EQ, 

. 1 > 

M = 

3 

DO 

13 

K=1, 

I F 

( I 

-EQ, 

1 ) 

GO 

TO 

14 

iiJ  = NLE  K 

c 

Si!!:i;iS!  ; r!!:S.iJSI  flJ-SRiiS! 

PDGt U IM) ; ™JImpz<  YtV??M) TEMPZ‘ ’ ’ 1 5 ™TZ  > ' : TEMPZ ' 1 • 1 • IMT2 

AV(t;IM)  = TEMPZ< 1 . 2; IM) 

c 

t»do'!;I"!  : t£?!!:!S!  ' 

„ ffTUiiSJ ; 1 Si!iisrrMiliHTiir’.'  * TE"R"i”" 

° MTift?ii“i-aHo!iI;f»!  Te°  12I% 


VVLINKH101 
VVLINKH102 
VVLINKH103 
VVLINKH104 
VVL  I fJKH  1 OS 
VVLINKH106 
VVLINKH107 
VVL I NKH 108 
VVLINKHT09 
VVLINKH1 1 0 
WLINKH1 1 1 
VVLINKH1 12 
VVLINKH1 13 
VVLINKH 1 14 
VVLINKH1 15 
VVLINKH!  16 
VVLINKH 1 17 
VVLINKH 118 
VVLINKH 119 
VVLINKH 1 20 
VVLINKH121 
VVLINKH122 
VVLINKH 1 23 
VVLINKH 1 24 
VVLINKH125 
VVLINKH126 
VVLINKH127 
VVLINKH128 
VVLINKH 1 29 
VVLINKH130 
VVLINKH131 
VVLINKH132 
VVLINKH 133 
VVLINKH 1 34 
VVLINKH13S 
VVL1NKH136 
VVLINKH137 
VVL1NKH138 
VVLINKH 139 
VVL INKH140 
VVL INKH141 
VVLINKH  142 
VVLINKH  143 
VVLINKH144 
VVLINKH 145 
VVLINKH 146 
VVLINKH 1 47 
VVLINKH 140 
VVLINKH149 
VVLINKH1 50 
VVLINKH15 1 
VVL INKH152 
VVL INKH153 
VVLINKH 154 
VVL INKH155 
VVLINKH 156 
VVLINKH157 
WLI  NKH  158 
VVL I NKH 159 
VVLINKH160 
VVLINKH1 61 
VVLINKHI62 
VVLINKH163 
VVL I NKH 164 
VVL I NKH 165 
VVL I NKH 166 
VVLINKH 167 
VVL I NKH 168 
VVL I NKH169 
VVLINKH170 
VVLINKH1 7 1 


lO 

c $ 

to 

Cra 


VLINKHO  4 


00228 

00229 

00230 

00231 

00232 

00233 

00234 

00235 

00236 


00237 

00238 

00239 

00240 

00241 

00242 

00243 


00244 

00245 

00246 

00247 

00248 

00249 

00250 

00251 


00252 

00253 

00254 


00255 


00256 

00257 

00258 

00259 

00260 
00261 
00262 


00263 

00264 

00265 

00266 

00267 

00268 

00269 

00270 
0027  1 

00272 

00273 

00274 

00275 

00276 

00277 


IBIT  = 08SCNT(  BITldilM)  ) 

IF!  IBIT  . E Q . XM  ) GO  TO  1256 

TEMP(JMM)  = I SHL  (IB«LLAY;ItVO  / SHGlIBjIM)  ) * * POG  I 1 : IM) 
^E^(1^NOT'  BITIMjIM)  ) QM.dJjIM)  = SHG(IBjIM)  * TEMP  I t ; JM ) 


C 

C 


14  Jd=4-K 
POG i 1 ;IM> 
PDGI 1 ;IM) 
PDGC 1 ; IM) 


PH  , J J ; IM)  / PLflB.IMjIM) 
VALOGI  PDGI  t ; IM ) j PDGM  ; IM)  ) 
PDG< 1 i IM)  / POP ( 1 ; I M ) 


1F<  SHL< IBB , I > , LE * 1 .E-8  ) GOTO  1256 
BIT1 (1 : IM)  s SHLCI8,I;IM)  , LE . I.E-8 

IBIT  - Q85CNT ( BITIMjIM)  ) 

IF<  IBIT  .EQ.  IM  ) GO  TO  1256 

TEMPI 1;IM)  = PDO  M j IM) * *PDG  < 1 ; IM ) 

WHERE!  .NOT.  BITIMjIM)  ) 

S QM.dJjIM)  * SHL< IB . I*M  : IM)  * TEMPCIrIM) 

BIT3I1;IM)  = SHLUB  .LE.  I.E-8 

WHERE  I .NOT.  BITIMjIM)  .AND.  BJT3M;IM)  I 
$ QM.dJjIM)  = SHL (18,1  ;IM) 

15  CONTINUE 

WHERE  I .NOT.  BITIMjIM)  ) 

TT ( 1 ; IM)  = I TM  ,dd ; IM) -260 . 0 ) • 1.E-3 
TTT ( I ; I M ) = TT  I 1 ; I M ) ♦ TT  M ; IM ) 

TEMP  I 1 ; IM)  * 1745. 0/T<1  , JdjIM)  - KY 
ENDWHERE 

TEMPI  1;XM)  = VEXPI  TEMPI 1:IM)  ; TEMP  I 1 ; IM)  > 


C 

C 


WHERE!  .NOT . BITKIjIM)  ) 


CONTM.  JdjIM)  = TEMP ( 1 ; IM) 


1F<  O(JJ)  .LE.  .000011  GOTO 
BIT2I1;IM)  = QM.dJjIM)  . LE . . 


1256 

00001 


nr>r. , BIT3(1;IM>  = BIT1 ( 1 ;IM)  .OR.  BIT2<1;IM) 

vmEREI  .NOT.  B1T3(1;XM>  ) 

S CONTM, JdjIM)  = CONTM.JdjIM)  - Q(1fJJ;IM> 

S * PHI(1fJJ;IM)  ♦ QM,JJ:IM) 

GO  TO  1257 

BITIMjIM)  = BITIMjIM)  .OR. 

S f B I T2 ( 1 J IM ) .AND.  .NOT.  BITIMjIM)  > 


1256  CONTINUE 
WHERE!  BITIMjIM) 

CONTI  1 .JdjIM)  = 0 

q ( 1 , J J ; 2 M ) = 0 
ENDWHERE 

DO  1333  N = 1 t NF LW 
1333  WHERE  I BITIMjIM) 

C GO  TO  18 

C 

1257  CONTINUE 
C 

DO  5819  N=M  tNF 
TEMPZ  M , N j IM)  =: 

5819  CONTINUE 

TEMP2M  , 7 ; IMNF  ) = 

DO  19  N=1 ,NFLW 
V/HERE  < .NOT.  BITIMjIM)  ) 
IFlN  .GT.  NF)  GO  TO  5859 


) CAP  < 1 . JJ.Nj IM)  ~ 0.0 


) 


V/HERE  I .NOT 

5859 

CONTINUE 

V/HERE  I .NOT 

S CAP  M , Jdf  N 

19 

CONTINUE 

18 

CONTINUE 

13 

CONTINUE 

12 

KJ=4* 1-1 

APRI IN) *TT<1 ; IM)  * SPRI (N)*TTT(f;XM) 

VEXPI  TEMPZ I 1*1; IMNF ) ; TEMPZ M .1 ; IMNF ) 

CAP PS I ( 1 . J J . N ; I M)  = 1.0 
CAPPSIM.  Jd.NjIM)  = TEMPZ  I 1 , N ; IM  > 


BITIMjIM)  ) 

IM)  = QM,Jd;IM)  * CAPPSI ( 1 tdd,N; IM)  * PHIM.JJjIM) 


VVL t NKH 172 
VVLINKH173 
VVL I NKH 174 
VVL I NKH 1 75 
VVL I NKH 1 76 
VVL I NKH 177 
VVL I NKH 1 78 
VVLINKH179 
VVL1NKH180 
VVLINKH1 8 1 
VVLINKH182 
VVL INKHf 83 
VVL I NKH 184 
VVL 1 NKH 185 
VVL I NKH 186 
VVL I NKH 187 
VVL I NKH 188 
VVL I NKH 1 89 
VVL I NKH 1 90 
VVLINKH191 
VVL INKH1 92 
VVL I NKH 1 93 
VVL INKH194 
VVLINKH 195 
VVL I NKH 196 
VVL I NKH 197 
VVL I NKH 1 98 
VVL I NKH 199 
VVL I NKH200 
VVL I NKH20 1 
VVL I NKH202 
VVL I NKH203 
VVL I NKH204 
VVL I NKH205 
VVL I NKH206 
VVL I NKH207 
VVL I NKH 2 08 
VVL I NKH209 
Wt- 1 NKH2  1 0 
VVLINKH2I 1 
VVLINKH212 
VVLINKH213 
VVLINKH214 
VVLINKH2 IS 
VVLINKH216 
VVLINKH217 
VVLINKH218 
VVL INKH2 19 
VVL I NKH220 
VVL I NKH22 1 
VVL I NKH222 
VVL I NKH223 
VVL I NKH224 
VVL I NKH225 
VVLINKH226 
VVLINKH227 
VVLINKH228 
VVLINKH229 
VVLINKH230 
VVLINKH231 
VVL I NKH232 
VVL I NKH233 
VVL I NKH234 
VVL INKH235 
VVL I NKH236 
VVL I NKH 237 
VVL INKH238 
VVL I NKH239 
VVL  2 NKH240 
VVLINKH241 
VVL I NKH242 


o o 

ti  sj 

5 

02 
O > 
73  p 

iO  "O 

c > 

SS 

r fl 


m 


VLINKHO  5 


0027a 

00279 

00280 
0028  1 
00282 


00283 

00284 

00285 

00286 

00287 

00288 

00289 

00290 

00291 

00292 

00293 

00294 

00295 

00296 

00297 

00298 

00299 

00300 


0030! 

00302 

00303 

00304 

00305 

00306 

00307 
C0308 

00309 

00310 
0031  1 

00312 

00313 

00314 

00315 

00316 

00317 

00318 

00319 

00320 

00321 

00322 

00323 

00324 

00325 


C 

C 


C 

C 

C 

C 

C 

C 


00 

JJ 


It  K = 1 .4 
= KJ*K 


” P(1.dtl?XM>  / PL!  IB.  1 ♦ 1 : IM) 

= VAt*OG<  PDG(1;IM>  ; PDGMjIM)  ) 

T 1 1 , Jt| ; IM  ) = TL! IB. I* 1 ; IM)  - PDGt 1 ; XM> »PD M ; IM) 

J ! -H:  ■ 1 AN  D.  SHL  ( IBB  * I * 1 > . LE.  1 .E- 

• LE . 1 . E -8 . AND  . K . EQ  . 1) 

IF!SHL(IBB, 1+1 > .LE. 1 .E-8.AND.  K ,GT.  2) 

I F ( SHU ! IBB , I * 1 > . LE . 1 . E-8 . AND . K .LE.  2) 

BIT1 ( 1 ;IM) 

B I T2  ! 1 ; IM) 

BIT3( 1 ; IM) 


3) 


GO  TO  4300 
GO  TO  4300 
GO  TO  4300 
GO  TO  4302 


IFUC.EO.  1 > 


= SHL  { 

IB,  I 

; IM)  . 

LE.  I 

. OE  -8 

- SHL  ( 

IB. 1*1 

: I M > . 

LE.  1 

. OE  ~8 

- BIT1 

<1  ; IM) 

.AND. 

BIT2 

( 1 : 1 M > 

BIT4  = 

B ' 0 ' 

BIT4  = 

8'  1 ' 

BIT4( 1 

; IM)  - 

B I T4  < 

1 ; IM) 

-AND. 

8IT5  = 

B'  0' 

BITS  = 

B'  !' 

BIT5!  1 ; 

; IM)  * 

BITS! 

1 ; IM) 

.AND. 

BITS  - 

B ' 0 ' 

BITS  = 

B'  1 • 

BITS! 1 j 

r IM)  - 

BITS! 

1 ;IM) 

• AND. 

: IM) 


BTT2M  ; IM) 


; IM) 


IM)  .OR.  BIT5M; 


C 

C 


BIT3  ( f ; IM)  = BIT3(1;IM)  .OR.  BIT4U 
I B X T ± Q85CNT  < BIT3<1;IM>  ) 

IF(  IBIT  .EQ.  IM  ) 

ij407  • B I T3  ( 1 ; I M ) .AND.  .NOT.  BIT6!l:IM>  ) 
S pf>G{  1 ; JK  J ~ PDG  f 1 ; IM)  / PDPMjIM) 

“ PDQ!  1 ; IM)  ♦»POG(  1 ; IM) 

WHERE ! .NOT.  BIT3(1;IM)  .AND.  .NOT 

GO  TO  430.  * SHLItB.IM 


IM) 

GO  TO  4300 


BITS!  T ; IM)  ) 

: IM)  - TEMP ( 1 ; IM) 


4302  CONTINUE 

WHERE ! B I T 6 { 1 ; IM) 


> Q(1»Jd;IM)  = QM.JJ-1;IM) 
. OR . .NOT, 


4301  CONTINUE 

BXT1  M ; IM)  = BIT6M  ; IM) 

WHERE!  BXTICfslM)  ) 

TTCIjIM)  = ( T< t , JJ; IM)-260.  ) * 

TT  * 77^;iw) 

EMdS';IM>  “ * 745 . /T  ( , , JJ  j IM  > - 

wK!5l?iu,Y!^<>TEMP,,;IM’  ; TEMPtl^«' 

CONT ( • . JJ ; I M)  = TEMPI 1;JM) 

_CONT ( 1 , J J; IM)  = CONTI  I , J J; IM)  • Q(1,dU;IM) 
^ENO WHERE  * PHI  11  , tld ; till.  • 0(,,dd;IM) 


BIT3C 1 ; IM) 
1 . E -3 
XV 

) 


APRI (N) *TT ( 1 ; IM)  + 


8PRI f N)*TTT< 1;IM> 

TEMPZI 1,1; IMNF i 
O 


) 


DO  5821  N“1 .NF 
TEMPZI 1 ,N;IM) 

5821  CONTINUE 

I ;JMNF)  “ VEXP{  TEMPZ!  1,1;  IMNF  ) 

DO  2 1 N“  1 , NFLW 

yef?.E(^BIT1  (t  : JM)  > CAPPSI  ( 1 , JJ.N;  IM)  - 1 
I F < N . GT.  NF)  GO  TO  5858 

5858  MN?iNuirT1fl!lM’  ’ CAPPSI  M.JU.MilM)  = TEMPZ < I . N ; IM > 

WHERE ( B I T 1 < 1 ; IM)  ) 

21$C0NTINUEJ,N:IM)  5 * CAPPSI  < 1 .JJ.N;  IM)  * PHIM.JJjIM) 

C GO  TQ  1 1 

C 


VVLINKH243 
VVL INKH244 
VVL I NKH245 
VVL INKH246 
VVL I NKH247 
VVLINKH24B 
VVL I NKH24S 
VVL I NKH250 
VVL INKH25 1 
VVL I NKH252 
VVL I NKH253 
VVL I NKH254 
VVLINKH255 
VVL I NKH256 
VVLINKH257 
VVLINKH258 
VVL I NKH259 
VVL I NKH260 
VVL INKH261 
VVL I NKH262 
VVL I NKH263 
WLINKH264 
VVL INKH265 
VVL I NKH266 
VVL I NKH267 
VVL I NKH2G8 
VVL I NKH269 
VVL INKH270 
VVL INKH27 1 
VVLINKH272 
VVL I NKH273 
VVL I NKH274 
VVLINKH275 
VVLINKH276 
VVL I NKH277 
VVL INKH278 
VVL I NKH279 
VVL I NKH280 
VVL I NKH28  1 
VVL I NKH282 
VVL I NKH283 
VVL INHH284 
VVL I NKH285 
VVL I NHH286 
VVL I NKH287 
VVL I NKH283 
VVLINKH289 
VVL INKH290 
VVLINKH291 
VVL I NKH292 
VVL I NKH293 
VVL I NKH294 
VVL INKH295 
VVL I NKH296 
VVL I NKH297 
VVL I NKH298 
VVLINKH299 
VVLINKH300 
WLINKH301 
VVL I NKH302 
VVL INKH303 
VVL INKH304 
VVL I NKH305 
VVL I NKH306 
VVL I NKH307 
VVL I NKH308 
VVL I NKH309 
VVL 1NKH310 
VVLINKH31 1 
WLINKH3  !2 
VVLINKH313 


VLINKHO  6 ORIGINAL  PAGE  19 

OH  POOR  QUALITY 


00326 

00327 

00328 

00329 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 

00340 

00341 

00342 

00343 

00344 

00345 

00346 

00347 

00348 

00349 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00358 

00359 

00360 

00361 

00362 

00363 

00364 

00365 


00366 

00367 

00368 

00369 

00370 

00371 


00372 

00373 

00374 

00375 

00376 

00377 

00378 

00379 

00380 

00381 

00382 


CAP  < 1 , ddtN;IM>  “ 0.0 


4300  CONTINUE 

WHERE < BIT3 { 1 ; IM)  ) 

Q ( 1 , dd ; IM)  = 0.0 
CONTM  = 0.0 

ENOWHERE 

DO  2333  N=1,NFLW 
2333  WHERE t BIT3<1;IM>  } 

11  CONTINUE 
C 

TRAD1 < J ;IM)  = Ti 
TRAD  < 1 , 1 ; IM)  = T2 
c TRAD (1,2; IM } = T<1,!;IM> 

DO  30  I =3 , NLEV , 2 
K = < I+i )/2  + 1 

30  TRAD ( 1 , K ; IM)  = T<  f , I ; IM) 
c TRAD { 1 , L3 ; IM)  = TS(1;IM)*2.0  - TL ( IB , LLAY; IM) 

DO  1000  N=1 , NFLW 

-XXC1. 1;IML3>  “ X(N>  / TRAD (1,1; I MLS ) 

VvIi’IItm!'*!  = VEXP<  5*5  » - ■•  * IMI.3>  i YY(1.1;IML3>  I 
YY(1,T;IML3)  * VY(1,1;IML3>  - 1.0 

BB(1,1tN;IF^L3)  = CNUCUBCN)  / YY<1,1;IML3) 

SS{ 1 , 1 ,N; IML3)  - BB ( 1 , 1 , N ; IML3 ) * XX(1,1;IML3) 

1000  CONTINUE*’  VV 1 ' • » 5 ™L3>  * ’ • >/<  VY (1  , 1 ; IML3 ) *TBAD(  1 , 1 ; IML3 ) ) 
D 

DO  1001  N = 1 , NFLW 

TEMPZf 1 tN; IM)  = X < N > / TG ( I B ; IM ) 

1001  CONTINUE 

„ TEMPZ1 1 f 1 ; IMNFLW)  s VEXP(  TEMPZ < 1,1; IMNFLW) 

DO  1002  N= 1 t NFLW 

BG<1fN;IM>  = CNUCUB  <N ) / ( TEMPZ ( 1 . N : IM)  - 
XX  1,1;IM)  = X(N)/TRADIM;IH?  ’ f 
YY< 1 » 1 ; IM)  = VEXP<  XX 1 1 • 1 ; IM)  ; 

YY{I.1;2M>  = YY ( 1 » 1 ; IM ) - 

BB  1 ( 1 , N ) IM ) = CNUCUB  < N ) / YYH 
SSI(1,N;IM) .a  BB 1 ( 1 , N; IM)  * 

1002  CONTINUE  * . * + 1 

1 

CM( 1 f 1 ; IM)  = O. 

DO  108  d=2 , L2 
L = d/2 
dd=2*d- 1 
TEMP ( 1 ; IM  > = 

CM ( 1 , d ; IM ) = 


TEMPZ { 1,1; IMNFLW) 


1.0  > 

YY (1,1; IM)  ) 

1.0 

. 1 ;IM) 

XX< 1 , T ; IM) 

)/(  YY( 1 , 1 j IM) *TRAD1 { 1 ; IM)  ) 


CONT ( 1 , dd ; IM) 
CM ff,d-1;IM) 
{ TEMP ( 1 : IM) 
DP< 1 , d- I ; IM) 


C 

C 


108  CONTINUE 

01 1 1 ; IM)  = Q( f . 1 ;IM) 

Q2f 1 ; IM)  = Q { 1 , 1 : IM) 

DO  301  N=  1 , NFLW 
R 1 1 , 1 t 1 , N ; IML2L2 ) = 1.0 
301  CONTINUE 


+ 4. O^CONTC 1 ,dd-1 ; IM) 

+ CONT ( 1 , dd-2 ; IM)  ) 
* A39B0 


DO  100  N=1 , NFLW 
NN  = N-4 
NK  * N-3 


IF<  N.E0.5  .OR.  N.EQ.6  ) 


C 

DO  101  1=1, L2 
RCBCG ( 1 , I ; IM) 
101  CONTINUE 
C 

DO  200  d=2,L2 
L = d/2 


CGC 1 ; IM) 


CG( 1 ; IM) 

CG  < 1 ; IM) 
VAR ( 1 , 1 ; IM) 


0.0 

G(NN) 

0.0 


VVLINKH314 
VVLINKH3 15 
VVL INKH3 1 6 
VVHNKH317 
VVLINKH31B 
VVLINKH319 
VVL I NKH320 
VVL INKH32 1 
VVL I NKH322 
VVL INKH323 
VVL INKH324 
VVL INKH325 
VVLINKH326 
VVLINKH327 
VVL I NKH328 
VVL I NKH329 
VVLINKH330 
VVL I NKH33 1 
VVL I NKH332 
VVL I NKM333 
VVLINKH334 
VVLI NKH335 
VVLINHH336 
VVL I NKH337 
VVL INKH338 
VVLINKH339 
VVLI NKH340 
VVLINKH34 1 
VVLINKH342 
VVL INKH343 
VVL I NKH344 
VVL I NKH345 
VVLINKH346 
VVLI NKH347 
VVLINKH348 
VVL I NKH349 
VVLINKH350 
VVLINKH351 
VVL INKH352 
VVLI NKH353 
VVLINKH354 
VVLI NKH355 
VVL INKH356 
VVL I NKH357 
VVLINKH358 
VVLI NKH359 
VVLINKH360 
VVLINKH361 
VVLINKH362 
VVL INKH363 
VVLINKH364 
VVLINKH365 
VVL I NKH366 
VVL I NKH367 
VVLINKH36B 
VVLINKH369 
VVL INKH370 
VVL I NKH37 1 
VVL I NKH372 
VVL I NKH373 
VVL I NKH374 
VVL I NKH375 
VVL INKH376 
VVL INKH377 
VVL I NKH378 
VVLI NKH379 
VVL2NKH380 
VVL I NKH38 1 
VVLINKH3B2 
VVL INKH383 
VVL INKH384 


<S 

M 


O 

"nJ 


ORIGINAL  PAGS  US 
OF  POOR  QUALITY 


00383 

00384 


00385 

00386 

00387 
0038& 

00389 

00390 

00391 

00392 

00393 

00394 

00395 

00396 

00397 

00398 

00399 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00408 

00409 

00410 

00411 

00412 

00413 

00414 

00415 

00416 

00417 

00418 

00419 


00420 

00421 

00422 


00423 

00424 

00425 

00426 

00427 

00428 

00429 

00430 

00431 

00432 

00433 

00434 


dd  * 2*d- 1 

VARM,djIM)  = VA  R{  t r d - 1 ; J |y| ) 

| * 4.-CAPM  ,dd-1  ,N;IM) 

SJM1  „ * DP(1.U-,:IM, 


< C A PC 1 ,dd,N;XM) 
CAP ( 1 „dd-2,N; IM ) 
A2940 


I CM  s 0 

00  300  I =2, dMI 

IF(°M<!eQ2,of'GOTO,!o§>*2'I>  + <(J/2,’2‘,,,M<d/2,'a"J) 
ICM  = ICM+1 

= VAR ( 1 , d ; IM ) - VAR <1,1; JM) 

= CMC 1 , d ; IM)  - CMC  1,1; IM) 


RCBPMC 1,ICM;IM) 
RCBAV (1,1 CM ; IM) 
300  CONTINUE 


IMICM  = IM* I CM 
IFC  ICM.EQ.O  ) 


TEMPZC 1,1; 
TEMPZC 1 t 1 ; 
RCBPO  C 1.1; 

s 

TEMPZC 1,1; 
TEMPZC 1 . 1 j 
BITZC1 , 1 ; 


IMICFA) 
IMICM) 
I M I CM ) 

IMICM) 

IMICM) 

IMICM) 


GOTO  303 

imicm> 

VSORTJ  TEMPZC 1.1; IMICM) 
RCBCGC 1,1; IMICM) *RC9AV< 1 
TEMPZC 1 , 1 ; IMICM) 

-RCBPO  C 1 , 1 ; IMICM) 

5£2£I,TEMP2(t* IJIMICM)  ; 
RCBPDC 1.1; IMICM)  . LE . 90 


TEMPZC  1 , 
1 ; IMICM ) 


1 , IMICM)  } 


TEMPZC 1,1; I MI CM  > ) 


ICM  = 0 

DO  302  I *2 r dMI 
ICM  = ICM+1 

WHERE  f BITZM.ICMsIM)  ) 
OTHERWISE  * * ^ = TEMPZC 1, ICM; IM) 

RC 1 t I , d . N ; I M ) = 0.0 

ENDWHERE 


IFC  N.EQ.4  .OR.  N.E0.5 
IFC  N . EQ . 6 ) 


> 


GOTO  295 
GOTO  296 
GOTO  299 


295  CONTINUE 
WHEREC  BI TZ  C T , ICM ; IM)  ) 

S RC  1 , X , d , N;  IM)  = RC  1 
GOTO  299 

296  CONTINUE 
WHEREC  BI TZ  f 1 , ICM ; IM)  ) 

S R < 1 , I , J , N ; IM)  = R<1, 

IS!  o™Ti»ii"iI"’  ’ 

303  CONTINUE 


I * d , N ; IM)  ♦ CTRANSC I ,J, NK> 


I « d , N ; IM ) * TQ3 (I, J) 


PMC  1 ; IM) 
AVC 1 ; IM) 
TEMP ( 1 ; IM) 
TEMP  C 1 ; IM) 
PD  C 1 ; IM ) = 

BIT1 C 1 ; IM) 
TEMPC 1 ; IM) 
TEMP  C 1 ; IM) 


VAR{ 1 ,d; IM) 

CMC  1 ,d- IM) 

CCN)  * PMC  1 ; IM) 
VSQRTC  TEMPC 1;IM) 
CGC 1 ; IM)*AV( 1 ; IM) 

PD  C 1 ; IM)  .LE.  9.0 
-PD ( 1 ;IM) 

VEXPC  TEMP  C 1 ; IM)  ; 


TEMPC 1 : IM) 
TEMP  f 1 ; IM) 


TEMPC 1;IM)  ) 


WHEREC  BITHIjIM)  ) 

OTHERWISE ' = TEMP,1;IM' 
RC1, 1 ,d,N;IM)  =0.0 


VVL INKH385 
VVL I NKH386 
VVLINKH3S7 
VVLINKH388 
VVL INKH389 
VVL I NKH390 
VVL I NKH39 1 
VVLINKH392 
VVLINKH393 
VVLINKH394 
VVL INKH395 
VVL INKH396 
VVLINKH397 
VVLINKH398 
VVL INKH399 
VVL I NKH400 
VVL I NKH40 1 
VVL I NKH402 
VVLINKH403 
VVLINKH404 
VVLINKH405 
VVL I NKH406 
VVLINKH407 
VVLINKH408 
VVLINKH409 
VVLINKH410 
VVLINKH41 1 
VVLINKH4 1 2 
VVLINKH4 13 
VVLINKH414 
VVL INKH4  f 5 
VVLINKH416 
VVLINKH417 
VVLINKH418 
VVL  I»<JKH4 1 9 
VVLINKH420 
VVLINKH421 
VVL I NKH422 
VVLINKH423 
VVLINKH424 
VVL INKH425 
VVL I NKH426 
VVL I NKH427 
VVL I NKH428 
VVLINKH429 
VVLINKH430 
VVL INKH43 1 
VVL I NKH432 
VVL  2 NKH433 
VVLINKH434 
VVL  £ NKH435 
VVLINKH436 
VVL INKH437 
VVL I NKH433 
VVLINKH439 
VVL INKH440 
VVLINKH441 
VVL INKH442 
VVL  XNKH443 
VVL I NKH444 
VVL I NKH445 
VVLINKH446 
VVL INKH447 
VVL I NKH448 
VVL I NKH449 
VVLINKH450 
VVLINKH451 
VVLINKH452 
VVL INKH453 
VVL INKH454 
VVL I NKH455 


CO 


ORIGINAL  P&Q&  B§ 
OF  FOOe  QUALITY 


g ••••  4-t  - ••  • .1  L ....  v...j — - 


00435 

0043S 

00437 

00438 

00439 

00440 

00441 

00442 

00443 


00444 

00445 

00446 

00447 

00448 

00449 

00450 

00451 

00452 

00453 

00454 

00455 

00456 

00457 

00458 

00459 

00460 
00451 

00462 

00463 

00464 


00465 

00466 

00467 
00466 

00469 

00470 

00471 

00472 

00473 

00474 

00475 

00476 

00477 

00478 


00479 

00480 
004S1 

00482 

00483 

00484 


ENDWHERE 


IFC 
IF  { 


N.EQ.4  .OR. 
N.  EQ  .6  .) 


N.EQ.5  ) 


GOTO 

GOTO 

GOTO 


195 

196 
199 


195  CONTINUE 

WHERE { B I T ! ( 1 ; I M ) 
S R< 1 , 1 ,d.N; Xffl) 

GOTO  199 

196  CONTINUE 

WHERE  < BIT1(1;IM) 
S R t 1 , I ,d ,N; IM) 


i RM,1,J,N;!M)  * CTRANSC  1 f J,NK> 


R(  1 . 1 , d.N;  IM)  * T03 M * d ) 


199 

200 


Of  1 ,J,  1 , N ; IM ) 
CONTINUE 


= RI1,1, d ,N; IM) 


1 F t N .GT . NF  ) GOTO 


TT  ( 1 
TTT  i 1 
TEMP ( 1 
TEMPZC  1 * 
TT  { 1 
TTTM 
TEMP  < 1 
TEMPZ  ( 1 
TEMPZC 1 
CAP  1 < 1 
CAP 2 < 1 
GOTO  112 


IM  1 
IM) 

IM) 

: im) 

IM) 

IM) 

IM) 

2;  IM) 

1 ; IMT2) 
IM) 

IM) 


1 1 1 

CT1-260. > 
TT ( 1 ; IM) 


; IM) 
; IM) 


1 . E - 3 
TT ( 1 ; IM) 

APRI CN>*  TT ( 1 ; 

TEMP ( 1 ; IM ) * BPR I ( N > 4 TTT  < 1 ; 

( T2-260 , > * 1.E-3 
TTC  1 : IM)  * TT  ( T ; IM> 

APRICN)*  TTC 1 ; IM) 
TEMP  I 1 ; IM)  * 8PRI <N)*TTT< 1 ;IM) 
VEXPC  TEMPZ (1,1; IMT2 I ; TEMPZ 1 1 < 
TEMPZC 1 , 1 ; IM) 

TEMPZ ( t , 2 : IM) 


t ; IMT2 ) I 


1 1 1 
112 


CAP  1 ( 1 ; IM)  = 1.0 

CAP2  C 1 ; IM)  = 1.0  , _ 

TERM  1(1;  IM)  = ( CAP2M;IMt*0at1:IM>.  P2  • AGRNOP 

3 * CAP < 1 , 1 , N : IM ) ) • DP2 ( 1 ; I M ) * A1960 

TERM  < 1 ; IM)  = TERMKljIM)  * C CAP  1 ( 1 ; IM ) *Q  1C  1 ; IM)  *P  1 

5 * CAP21 1 ; IM) *Q2C 1 ; IM) *P2> *DP 1 < 1 ; IM)  * A1960*AGRNDP 

CMIHIjIM)  = C C0NT2*Q2(  1 : IM)  *P2*DP2<  1 ; IM)  *Q2<  1 ; IM)  * AGRNOP 


S 

S 


CMI ( 1 : IM) 


CONTI  1 , 1 ; IM) 
CM I 1 < 1 ; I M ) * ( 

A 1 960  » AGRNDP 


*PP2( 1 ;IM) ) * A 1960 

CONTI »Q1 ( 1 ; IM) *P 1 *DP 1 ( I ; IM) *01 < 1 ; IM) 
C0NT2*Q2C 1 ; IM) *P2*DP1 < 1 ; IM ) *02  < 1 ; IM) 


C 

c 


95 


DO  95  I - 1 « L2 

PHI I (1,1; IM)  = TERM (1 ; IM)  * VAR(1.I;IM> 
PHI  1 ; IM)  = TERM1(l;IM)  * VARn.IjIM) 
AVKI.IitM)  = CMI  IMjIM)  * CM(1.I;IM> 
AV2(1,XSXM)  = CMI (1 ; IM  > * CMC1(I;IM) 
TEMPZC 1 , I : IM)  « C ( N > ♦ PHI  1 ; IM) 

CONTINUE 


TEMPZC 1 , L2+ 1 ; I ML 2)  = CCN)  1 
TEMP 2 C 1,1: IML2T2)  = VSQRT1 


RCBPDC 1 
BITZC 1 


, 1 ; I ML 2 ) 
, 1 ; IML2 ) 


= RCBCG ( 1 , 
= RCBPDM, 


PHiin 
TEMPZC 1 

; I ML 2 ) 

; IML2 ) 


, 1 ;IML2) 

, 1 ; IML2T2) 

► AV 1(1,1 ;IML2) 
.LE.  9.0 


TEMPZC 1.1: IML2T2 ) 

* TEMPZ  (1.1:1  PAL 2 > 


TEMPZC 1.1: IML2) 


- RCBCG ( 1,1: IML2) *AV2< 1,1; IML2) 


S 


TEMPZC 1 ,L2 
TEMPZC 1 . 1 


* 1 ; IML2 ) = 

; I ML2T2 ) = 


TEMPZC 1 , L2* 1 ; IML2) 


WHERE  < BITZC 1,1; IML2) 
T I NFC  1 , 1 ,.M;  IML2) 
WTRINF  < 1 , 1 , N; I ML 2 ) 
OTHERWISE 

TINF (1,1 , N; IML2) 
V/TRINFC  1 , 1 ,N;  IML2) 


-RCBPDC 1 t 1 
VEXPC  TEMPZC 1 
; TEMPZC 1 

> 


IML2) 
1 
.1 


; IML2T2 ) 
; IML2T2) 


TEMPZC 1.1  ; IML? ) 

TEMPZ ( 1 ,L2* 1 ; IML2) 

0.0 

0.0 


VVLINKH456 
VVLINKH457 
VVLINKH458 
VVLINKH459 
VVLINKH460 
VVLINKH4G1 
VVLINKH462 
VVLINKH463 
VVL I NKH464 
VVL I NKH465 
VVLINKH466 
VVL I NKH467 
VVLINKH468 
VVLINKH469 
VVLINKH470 
VVL INKH47 1 
VVLINKH472 
VVLINKH473 
VVL  INK-  i474 
VVL I NKH475 
VVL I NKH476 
VVL I NKH477 
VVL I NKH478 
VVLINKH479 
VVL INKH480 
VVL I NKH4B 1 
VVL I NKH482 
VVL I NKH483 
VVL I NKH4B4 
VVL INKH485 
VVL INKH486 
VVL INKH487 
VVL  Z NKH488 
VVL I NKH489 
VVL I NKH490 
VVL I NKH49 1 
VVL I NKH492 
VVL I NKH493 
VVL I NKH494 
VVL INKH495 
VVLINKH49G 
) VVLINKH497 
VVLINKH498 
VVLINKH499 
VVLINKH500 
VVLINKH501 
VVLI NKH502 
VVLINKH503 
VVL I NKH504 
VVL I NKH505 
VVL I NKH506 
VVL I NKH507 
VVL INKH508 
VVLINKH509 
) VVLINKH5 10 
VVLINKH51 1 
VVLINKH512 
VVLINKH5 13 
VVLINKH5 1 4 
VVLINKH5 15 
VVLINKH516 
VVLINKH517 
VVLINKH518 
VVLINKH519 
VVL I NKH520 
VVL I NKH52 1 
VVLINKH522 
VVL INKH523 
VVLINKH524 
VVLINKH525 
VVLINKH526 


VLINKHO  9 


06*85 


E NOWHERE 


00*86 

00487 

00488 

00489 

00490 
0043  1 

00492 

00493 

00494 

00495 

00496 

00497 

00498 

00499 

00500 
0050  1 

00502 

00503 

00504 


00505 

00506 

00507 

00508 

00509 

00510 

00511 
005  ! 2 

00513 

00514 

00515 
005  16 
00517 


00518 

00519 

00520 
0052  1 

00522 

00523 

00524 


00525 

00526 

00527 

00528 

00529 

00530 

00531 

00532 

00533 


HI  W'EO.4  .OR.  N.E0.5  ) 
IF<  N.E0.6  ) 


GOTO  96 
GOTO  97 
GOTO  100 


96  CONTINUE 

DO  98  I = 1 , L2 

WHERE  { 9ITZM.1.IM)  > 

1 ! • ? = TINF  1 1 , 1 tN;  Mill  * CTINFU.NK) 


E NOWHERE  ' 1 ,N:  " WTRiNPM.’i.’NllM'J 

98  CONTINUE 
GOTO  TOO 

97  CONTINUE 

DO  99  1=1 ,L2 
WHERE ( 81 TZ ( 1 , I ; IM) 

T I NF  C 1 , I , N ; I M J = 

WTRINFM  ,I,N;IM)  « 

E NOWHERE 

99  CONTINUE 

100  CONTINUE 


TINFf 1 , I ,N; IM) 
V/TR I NF  < 1 ,1  ,N;IM) 


CTIN(  I.NfO 


TI 1 ( I ) 
TI  2 < I ) 


SS ( 1 t 2 , N ; I ML 2 ) * DELNU < N > 


SSI1,  1 , NFL  ; IM2 1 ) = 0.0 
DO  507  N = 1 , NFLW 

SSM.t,NFL:IM2l>  = SS(  1 f 1 . NF  L ; IM2  T ) 

507  CONTINUE  + SS(1,t,N  ;IW21)  * DELNU (N > 

RM  . 1 , 1 .NFL  ; IML2L2)  = 0.0 
C 

DO  605  N = I . NFLW 
DO  508  J= 1 , L2 

S * B-M:i:j;!|FLjl5L|{  - 

508  CONTINUE  ' ^ 

605  CONTINUE 

DO  506  U= 1 t L2 

50S  CONTINUENFL: IML2>  = nn • 1 -J.NFL:IML2)  / SS ( I , 2 , NFL ; IML2 ) 
c 
c 

c ***.-*♦♦ 

Q * ♦ ^ * * * 

£ *****  DO  QUADRATURE  ♦ 

c ***** 

c *** 

DO  2000  1=1. LLLAY 
III-2M 
1 1 = 111-1 

SUM  C 1 ; T M ) = 0.0 
SURFL ( 1 ; IM ) = 0.0 
SURFU1 1 ; IM)  = 0.0 
KV ( 1 ; IM)  =■  x 
C 
C 


r 1 ' 


3365 


I F ( I . EO . 1 ) 
IF<  I. NE. LLLAY 


IFf  IQJT.EQ.O 
CONTINUE 


BITS  = B' . 

B I T 1 = B'  1 
GOTQ,  3366 
GOTO  3365 

BITM1  ;ITA)  , 

iglT  = 08SCNT ( B J T 1 ( 1 ; i M j " ) 

GOTO  2115 

BIT2(1;IM>  = IUP( 1 f |-1 ; IM)  .LT.  I 


*U£{ t, 1-1 ; IM)  . NE . LLAY 


VVLINKH527 
VVL INKH528 
VVL I NKH529 
VVLJNKH530 
VVLINKH531 
VVLINKH532 
VVL INKH533 
VVL I NKH534 
VVLINKH535 
VVL INKH536 
VVL I NKH537 
VVL I NKH538 
VVL I NKH539 
VVLINKH540 
VVL INKH54  1 
VVL I NKH542 
VVLINKH543 
VVLINKH544 
VVL INKH545 
VVL I NKH546 
VVL I NKH547 
VVLINKH548 
VVL I NKH549 
VVLINKHS50 
VVLINKH55 I 
VVL INKH552 
VVL I NKH553 
VVLINKH5S4 
VVLINKH555 
VVL I NKH556 
VVLI NKHB57 
VVL I NKH558 
VVL I NKH559 
VVLINKH560 
VVLINKHS61 
VVL INKH562 
VVL I NKH563 
VVL I NKH564 
VVL I NKH565 
VVLINKH56G 
VVLI NKH567 
VVL INKH568 
VVL I NKH569 
VVL INKH570 
VVL INKH57 1 
VVL INKH572 
VVL INKH573 
VVL INKH574 
VVL INKH575 
VVL I NKH576 
VVL I NKH577 
VVL I NKH578 
VVL INKH579 
VVLIMKH580 
VVLI NKH58 1 
VVL INKH582 
VVL I NKH583 
VVL I NKH584 
VVLINKH585 
VVLINKH586 
VVLINKH587 
VVLINKH588 
VVLI NKH589 
VVL I NKH590 
VVL INKH591 
VVLINKH592 
VVLINKH593 
VVLI NKHS94 
VVL I NKH595 
VVLINKH5SG 
VVLINKHS97 


§g 

%jp 

§1 

|s 

^ «? 


VLINKHQ  10 


00534 


00535 

00536 

00537 

00536 

00539 

00540 

00541 

00542 

00543 

00544 


00545 

00546 

00547 

00548 

00549 

00550 

00551 

00552 

00553 

00554 

00555 


00556 

00557 

00558 

00559 

00560 


00561 

00562 

00563 

00564 

00565 

00566 


00567 

00568 

00569 

00570 

00571 


00572 

00573 


WHERE  < BI T 1 (1  ; IM)  .AND.  BIT2(1;IM)  ) 

S KV(1;XM)  = I UP  <1,I-1;IM>  + 1 

^3366  CONTINUE 

KVMIN  = Q8SMXN!  KV ( 1 ; IM > , BIT1 { 1 ; IM)  ) 
DO  2100  J=KVMIN , LLAY 


C 

C 


C 

C 


BIT2M  ; IM>  = B I T 1 ( 1 ; IM) 

) 


.AND.  KVM;I«).LE.J  .AND.  BIT6(1;IM) 


WHERE!  B I T2  ( 1 : 
JV  C 1 ; X M ) * 
5 ( 1 , I , d ; IM)  = 
ENDWHERE 

ddd  = 2 * d 
dd  » Jdd-1 


BITS! 1 ; IM) 
BITS! 1 ; IM) 
BIT2( 1 ; IM) 


IM) 

d 

0.0 


d . NE . IUP  ( 1 , d : IM) 
BI  T6 (1 ; JM)  .AND. 
BIT2 II; IM)  .AND. 


(BITS!  1 ; IM)  .OR.  . NOT  , B I T2  f T ; IM)  > 
BITS! 1 ; IM) 


C 

C 


IBIT  = Q85CNT < 0IT2!1;IM)  ) 

IF!  IBIT.EQ.O  ) GOTO  2115 
C 

IJTEST  * ( I-d)  M2M  I-d) -3) 

IFUJTEST)  2081  , 2082,  2083 
C 

2081  CONTINUE 

DO  2210  N=1,NFLW 

BI T3 ! 1 ; IM)  “ R( 1 , XI-1 « XI ,N;1M)  .GE.  0.98 
WHERE!  BIT2!t;IM>  .AND.  BIT3M;XM)  ) 

S AGM;XM)  = ( <BBC  1 ,I1M  .N;  IM)-BB(  1 , III  ,N;  IM)  > 

S * f'XI-t.XE.MsIMJ  > + <BB< 1,!lX-2,N;Xtt) 

S * BBM.m-t  , N ; IM ) ) 

S ♦ (R< 1 . 1 1 ~ 1 ,11 , N ; I M > -*•  R ! 1 , II-2.II,N;IM> ) > * 0.5 

3 GO  TO  3054 

>> 

"*3053  CONTINUE 

WHERE ! B I T 2 { 1 ; I M > .AND.  . NOT  . B I T3 ( 1 ; IM > ) 

TRB M : IM ) = 0.125  * < 6.*  R ! 1 , dd+ 1 « 1 1 , N ; IM) 

S + 3 . * RI1,dd  , 1 1 . N ; I M > - R(  1 #dd*2, 1 1 ,N  ; IM)  > 

5SB  ( 1 ; I M ) = 0.125  * ( 6.*SStI,ddd  ,N;IM) 

5^  + 3 . *SSM  , ddd+t  ,N;  IM)  - SS(  1 , Jdd-  1 . N ; IM  > } 

TERM2  ! 1 ; IM)  - < TRAD ( 1 , Jdd ; IM)  - TRAD  f 1 , dud4*  1 j IM)  ) 

$ * ( SS<  1 ,ddd,N;  IM>  1 ,dd  , 1 1 , N ; IM ) 

S + 4. *SSB(f ;XM)*TRBf 1 ;XM) 

S + SSC1tddd*1.NiIM.)»RM,dd*1  ,U,N;IM>  ) * A6 

ENDWHERE 

BI T4 ( 1 ; IM)  = R ! 1 , 1 1 - 1 , 1 1 , N ; IM)  . LT . 0.7 

WHERE!  BI T2 ( 1 ; IM)  .AND.  . NOT . BI T3 M ; IM)  .AND.  BIT4!1;IM)  ) 

TERM1 ( 1 ; IM)  = ( A6  + R < 1 f 1 1 - 1 , 1 1 , N; IM) ) 

S * { BB !1 ,111-1 , N; IM ) -BB! 1 , I I I , N ; IM)  ) 

AG! 1 J IM) ■ s TERM1 ! 1 : IM ) + TERM2 ( 1 ; IM) 

ENDWHERE 
GO  TO  3054 

1515  CONTINUE 

WHERE!  0 1 T 2 < ! ; X M ) .AND.  . NOT . BI T3 ! 1 ; IM ) .AND.  . NOT . BI T4 <1  ; IM ) ) 

TRD  ! 1 ; IM ) = 0.125  * < 6.»  R < 1 . dd+1 , X X « N; XM) 

$ _ , + 3.*  R!  1 ,dd  + 2f II ,N;IM)-R!  1 v dd  f I X , M;  IN!)  ) 

SSD(1;IM)  = 0.125  * ( 6 . »SS< 1 , Jdd +2 , N; IM) 

S + 3.-SS!  1 ,JJdM  ,N;IM)-SS!  1 t Jdd*3.N:IM)  > 

AG!  I ; I M ) * TERM2M  ; IM) 

S + ! TRAD!  1 , ddd*  1 ; IM)  - TRAD!  1 , ddd-^2  ; IM)  > 

S * ( S5C 1 ,ddd+1 • N ; IM) *R  { 1 , JJ+ 1 , 1 1 tN ; IM ) 

S + 4 . *SSD ( 1 ; IM) ♦ TRD ! 1 ; IM ) 

$ + SS!  1 , Jdd4' 2 ,N; IM)  »R  ( 1 1dd*2,XI  .N; IM)  ) ♦ A6 

ENDWHERE 

** 

"3054  CONTINUE 


VVLINKH59B 

VVLINKH599 

VVL  I NKH600 

VVLINKHG01 

VVLINKH602 

WLI NKH603 

VVLINKH604 

VVLINKH605 

VVLINKHG06 

VVLINKHG07 

VVLINKH6O8 

VVLINKH609 

VVLINKH610 

WL I NKH6  1 1 

VVLINKH512 

VVLINKH613 

VVLINKH614 

VVLINKH615 

VVLI NKH6 16 

VVLI NKH6 1 7 

VVLINKH6T8 

WLINKH6  19 

VVLI NKH620 

VVL I NHH62 1 

WL  I NKH622 

VVL I NKH623 

VVLINKH624 

VVLINKH625 

VVL XNKH626 

VVLINKH627 

VVLINKH62S 

VVLINKH629 

VVLINKH630 

VVLINKH631 

VVL I NKH632 

VVLINKH633 

WLINKH634 

VVLINKH635 

VVLI NKH636 

VVL INKHG37 

VVL I NKH638 

VVL INKH639 

VVL INKH640 

VVLINKH64 1 

VVLTNKH642 

VVL I NHH643 

VVL INKH644 

VVLINKH645 

VVLINKH646 

VVLINKH647 

VVL INKH64B 

VVLINKH649 

VVLINKH650 

VVLINKH65 1 

VVLINKH652 

VVL INKH653 

VVLINKH654 

VVLINKH655 

VVL INKH65G 

VVL I NKH657 

VVL I NKH658 

VVL I NKH659 

VVL INKH660 

VVLINKH661 

VVLINKH662 

VVLINKH663 

VVLINKH664 

VVL INKH665 

VVL INKH666 

VVL INKH667 

VVLINKHB68 


sg 

II 


tO  *0 

C 3» 

> a 

C P5 


Vt,INKHO  11 


00574 

00575 

00576 

00577 

00578 

00579 

00580 


00581 

00582 

00583 

00584 

00585 


00586 

00587 

00588 

00589 

00590 

00591 


00592 

00593 

00594 

00595 

00596 


00597 

00598 

00599 

00600 
00601 
00602 

00603 

00604 

00605 

00606 

00607 

00608 
00609 


00610 


0.98 


) 


2082  CONTINUE 

DO  2220  N=1tNFLW 

BIT3C1;IM)  = R<  1 , I 1 + 1 , II ,N; IM)  . GE  . 

WHERE  < B1T2M:IM>  .AND.  BIT3M;IM)  , 

S AG( 1 ; IM)  = { (BBC  1 f III ,N; IM)-BBC 1 , II 1 + 1 ,N; IM) ) 

S * ( 1 .--R<1  f 11  + 1 . II.NjIMn  + ( QB  (1  filial,  N;IM) 

3 , - BBC  1,111+2,  N;IMM 

„ 3 * <RC1 ♦ II+1 . II ,N; IM)+R< 1 . 11+2,11 .N; IM) ) > * 0.5 

3 GO  TO  3064 

"3063  CONTINUE 

WHERE  l B I T 2 C 1 ; IM)  .AND.  . NOT . BIT3<  1 ; IRIS}  > 

TRD ( 1 ; I M ) “ 0.125  * ( 6.*  R ( 1 , dd  + ! , 1 1 t N ; I M ) 

* 3.*  R<1 f dd+2,II .N;IM)-R< 1 , Jd , II ,N:IM)> 


SSDCIjIM)  = 0.125  + < 6 . + 5SC 1 *ddd+2,N;IM) 


3 . * SS ( 1 ,ddd  + 1 ,N; IM) -SSC 1 , dd d + 3 f N ; IM) > 


TERM2  C 1 ; IM > = { TRAD < 1 . ddd* 1 ; I M ) -TRAD ( I , ddd  + 2 ; IM > > 


C 

C 


) SCt,I,d;IM)  - SC1,I.d;IM>  * AGC  1 ; IM)  ♦DELNUCN)  VVL I NKH669 
2210  CONTINUE  VVL I NKH670 
. GO  TO  2400  VVLINKH671 

VVLINKH672 
VVL I NKH673 
VVLINKH674 
VVL INKH675 
VVL 1 NKH676 
VVL I NKH677 
VVL I NKH678 
VVL I NKHS79 
VVLINKH680 
VVLINKH68 1 
VVLINKH682 
VVLINKH683 
VVL INKH684 
VVLINKH685 
VVLINKH686 
VVL I NKH687 
VVLINKH68Q 
VVL I NKH689 
VVL I NKH690 
VVLINKH691 
VVLINKH692 
VVLINKH693 
VVLINKH694 
VVLI NKH695 
VVL INKH696 
VVLINKH697 
VVL I NKHG98 
VVL I NKH699 
VVLINKH700 
VVLINKH70 1 
VVLINKH702 
VVLINKH703 
VVLINKH704 
VVLINKH70S 
VVL INKH706 
VVLINKH707 
VVL I NKH708 
VVL I NKH709 
VVLINKH710 
VVLINKH71 1 
VVL I NKH7 1 2 
VVLINKH713 
VVLINKH714 
VVLI NKH715 


ENDWHERE 


+ (SS ( 1 » ddd  + 2 , N;  IM)  *R(  1 ,dd+2.  II  ,N;  IM) 

+ 4 . *SSD  f ) ; IM) * TRD  { 1 ; IM) 

+ SS( 1 , ddd+ 1 ,N; IM) +R( 1 , dd+ 1 , I I ,N; IM)  ) 


AG 


BIT4(  = Rll  ,n  + l f II  ,N;IM)  , LT . 0.7 

WHERE  < BIT2t1:im  .AND.  . NOT . B I T3 (1 ; IM) 

TERM1  < 1 ; IM)  = l A8  ♦ R ( 1 . 1 1 * 1 . 1 1 , N ; IM ) ) 

3 * < BBC  1 , 1 1 1 , N ; IM I -BB (1,111  + 1, N; IM) 

AGC 1 ; IM)  - TERM 141 ; IM ) + TERM2(1:IM> 

ENDWHERE 
GO  TO  3064 


AND.  BIT4M;IM)  ) 


) 


TRBC  t ; IM) 

SSB < t ; IM)  = 0. 


.N0T.BIT4C 1 : IM)  ) 


1616  CONTINUE 

Y/HEREC  51 T2  ( 1 ; IM)  .AND.  . NOT . B I T3  ( 1 ; IM ) .AND. 

* “ *"125  * C 6.+  R<  1 tJd+1  .II  (N;IM> 

+ 3.*  R(1lddaXIvN;IM)'-R(1f  dd  ’2. II  , N i IM)  ) 

125  + \ 6 . *SS( !,JdJ|N;lM) 

^ . * 3 * *SS  C 1 , ddd+  1 , N J IM ) -SS  ( 1 , ddd-  1 * N ; IM)  ) 

AGC 1 ; IM)  = ( TRAD  C 1 , ddd ; IM ) -TRAD < 1 (ddd+1 : IM) ) 

S + CSSC  1 ,ddd.N;IM)*R(  l,dd,II,N;IM) 

S + 4.*SSBM;IM)*TRBC1;IM> 

5 * SSC 1 tddd+1 • N ; IM) *R ( 1 , dd+  1 , 1 1 , N; IM) 

AGC 1 ; IM)  = AGC1;IM)  + TERM2(1;IM) 

E NOWHERE 


S 


> 


AG 


3064  CONTINUE 

Y/HEREC  BIT2M;IM) 
2220  CONTINUE 

GO  TO  2400 


2083  N=NFL 

WHEREC  BIT2  f 1 ; 
TRBC 1 ; IM)  = 0. 


IM) 

125 


) 


TERM2C 1 ; IM) 


SCI, 


^ VVLINKH7 16 
S ( 1 , I , d ; IM ) = S ( 1 , I , d ; IM ) * AGC 1 ; IM) *OELNU  C N ) VVLINKH7 17 

VVLINKH718 
VVL INKH7 1 9 
VVL 1 NKH720 
VVL INKH72 1 
VVLINKH722 
VVLINKH723 
VVLINKH724 
VVLINKH725 
VVLINKH726 
VVL INKH727 
VVL INKH728 
VVLINKH729 
VVL INKH730 
VVL INKH73 1 
VVL I NKH732 
VVLINKH733 
VVLI NKH734 
VVLINKH735 
VVLtNKH736 
VVLINKH737 
VVLINKH738 
VVL INKH739 


C 6. * R ( 1 ,dd+ 1,11 ,N; IM) 

* ,3'*  RC 1 » dd, II .N; IMJ-RC 1 ,dd+2, II ,N; IM) ) 
SSBdsIM)  s 0.125  ♦ ( 6.*SS( 1 ,ddd,N;IM) 

* 3 . ^SS<  1 t Jdd+  1 , N ; IM)  - SSC  1 , ddd*  1 , N;  IM ) ) 
TRD ( 1 ; IM ) * 0.125  * ( 6.*  R < 1 , dd+ 1 , 1 1 , N; IM) 

SSD < 1 ; IM ) = 0.125  * C 6 . +SS < 1 , ddd+2 , N ; IM) 

+ 3 . ^SSC 1 tddd+1 ,N; IM) -SS ( 1 , JJJ+3 , N; IM) ) 

= CTRADC 1 .ddd;IM)-TRADC 1, Jdd+ 1 : IM) ) 

- <SS{ t ,ddd,N;IM)*RC 1,dd, II ,N;IM) 

+ 4 . *SSB ( 1 ;IM)*TRB( 1 ; IM) 

+ SSC 1 ,ddd+ 1 ,N; IM) *RC 1 , dd+1 , II ,N: IM)  ) 

+ CTRADC 1 ,ddd+1 ; IM) -TRADC 1 , ddd+2; IM) ) 

* CSS  Cl ,ddd+1 ,N;IM) *R( 1 ,dd+1 . II (N;IM) 

+ 4 . +SSDC 1 ;IM)*TRD< 1;IM) 

+ SSC 1 , ddd+2, N; IM) *R( 1 ,dd+2, II ,N; IM)  ) 

I,d;IM)  ^ SC1,I,d;IM)  + TERM2 ( 1 ; IM ) 


A6 


* AS 


20 

3J 

^1 

Q 

gg 

«© 

£ 

> © 

iz  pa 


• -<&***'* 


VLINKHO  12 


0061  1 


ENDWHERE 


00612 
006  13 

00614 

00615 

00616 


00617 

00618 

00619 

00620 

00621 


00622 

00623 

00624 

00625 

00626 

00627 

00628 


00629 

00630 
0063  1 

00632 

00633 

00634 

00635 

00636 

00637 

00638 


00639 

00640 

00641 

00642 

00643 


00644 

00645 

00646 

00647 

00648 

00649 

00650 

00651 

00652 

00653 


2400  CONTINUE 

WHERE  < BIT2(1;IM) 
2100  CONTINUE 

WHERE  1 BIT2M;tM> 

"2115  CONTINUE 


> = SUM  < 1 ; I M ) ♦ S<t,I.d;IM» 

) JV( 1 : IM)  » J 


S < 1 « I , LLLAY ; I Ml 
IF<  I. NE. LLLAY  ) 
BIT1 { 1 : IM) 
WHERE { BIT1 <1 ; IM) 

8 CONTINUE 


= 0.0 

GOTO  8 

s 1 UP  ( 1 , I - 1 ; IM ) .EQ- 
) JV  ( 1 ; IM  > = LLLAY 


LLAY 


DO  812  I BB= 1 , IM 
KVUSB)  = IUP<  IBB.  JV1IBBM 
812  CONTINUE 

BITKIjIM)  = JV ( 1 ; IM)  .EQ.  LLLAY 
BIT2C1;IM)  = dVM:IM)  .EQ.  KVffjIM) 

DO  2500  N-t.NFLW 

WHERE ( BIT1 ( 1 :IM>  .OR.  . NOT . B I T2 C 1 ; IM > ) 

S SURFL ( 1 ; IM ) = SURFL  < I ; IM)  + < BG( 1 tN;IM)-BB( 1 . LL , N ; IM ) > 

S * R t 1 , L2 . X X , N ; IM) ♦DELNU(N) 

2500  CONTINUE 


IF  < I . EQ . 1 ) 


8*7  1 = B ' 1 ' 

GOTO  2556 

BIT1<1;IM>  = I UP  M,!-1;IM)  .EO.  0 
IBIT  = QSSCNT  ( BIT1M;IM>  ) 

IF t IBIT.EQ.O  ) GOTO  2510 
2556  CONTINUE 

DO  2501  N”  1 , NFLW 
WHERE*  BIT1  ( 1 ; IW)  ) 

S 1 1 » X • LLLAY ; IM)  = S{  1 , 1 , LLLAY ; IM) 

$ +■  (TXNFf 1 , II ,N;IM)*SS1( 1 aN;IM> 

S ■»  4 . *WTR I NF  < 1 , I I , N ; I M ) * SS  (1 , t * N ; I M > 

S * R< 1 . 1 ,XI ,N;IM)+SSC 1 .2,N;XM> > 

S * < T1 -T  f t . 1 : 2 W) ) * A6  * DELNU(N) 

SURFUM;IM)  “ SURFU  ( 1 ; IM  ) * BB  1 ( 1 , N * IM>  *TINF  ( 1 . 1 1 . N ; I M > ♦DELNU  t N ) 

ENDWHERE 
2501  CONTINUE 
2510  CONTINUE 

RE<IB,I:IM) 


S 
S 
S 

RE (IB, X ; IM) 
2000  CONTINUE 


* SURFL  < 1 ; IM) 

SURFU ( 1 ; IM) 

SUM ( 1 ; IM) 

S<  1 , I .LLLAY; IM) 

= R€fI8,I;XM)+. 2064E-2 


DO  62  L = 1 f LLAY 
PL (10, L; IM)  = PL( IB.L; IM) * I .6-3 
PLE ( IB , L : I M)  = PLE (IB,L;IM)*1 . E-3 
62  CONTINUE 

PLEdB.  LLLAY;  IM)  * PLE ( I B , LLLAY ; IM ) * 1 . E-3 

^9993  CONTINUE 
1 

RETURN 

END 


VVLINKH740 
VVLINKH741 
VVLINKH742 
VVLINKH743 
VVLINKH744 
VVL I NKH745 
VVLINKH746 
VVLI NKH747 
VVL I NKH748 
VVLINKH749 
VVL I NKH750 
VVL I NKH75 1 
VVL INKH752 
VVL  2 NKH753 
VVLINKH7S4 
VVLINXH755 
VVLINKH756 
VVLINKH757 
VVLINKH758 
VVLINKH759 
VVL INKH760 
VVL INKH76 1 
VVL INKH762 
VVL INKH763 
VVLINKH764 
VVL INKH765 
VVLINKH766 
VVL INKH767 
VVL I NKH768 
VVL I NKH769 
VVL I NKH770 
VVL I NKH77 1 
VVL I NKH772 
VVL INKH773 
VVL I NKH774 
VVLINKH775 
VVLINKH776 
VVL INKH777 
VVL INKH778 
VVL INKH779 
VVLINKH780 
VVL I NKH78 1 
VVLINKH782 
VVL I NKH7B3 
VVL INKH784 
VVL2NKH785 
VVL I NKH786 
VVL I NHH787 
VVL I NKH78S 
VVL I NKH789 
VVL I NKH790 
VVLINKH791 
VVL I NKH792 
VVL I NKH793 
VVL I NKH794 
VVL I NKH795 
VVL INKH796 
VVLINKH797 
VVL I NKH798 
VVL INKH799 
VVL INKH800 
VVL INKH80 1 
VVL INKH802 
VVL INKH803 
VVLINKH804 


STATEMENT  LABEL  MAP 

--LABEL DEFINED REFERENCES 


100 

1000 


504 

347 


372 

341 


488 


496 


ORIGINAL  PAGE  SSI 
OF  POOR  QUALITY 


100  V 

OoO 

348 

1002 

359 

352 

101 

380 

378 

108 

366 

361 

1 1 

333 

199 

278 

1 1 1 

459 

446 

112 

461 

458 

12 

277 

212 

1256 

256 

229 

239 

1257 

253 

13 

276 

215 

1333 

262 

261 

14 

233 

216 

15 

244 

232 

ISIS 

S67 

1616 

592 

18 

275 

19 

274 

26S 

1 95 

439 

436 

196 

442 

437 

199 

444 

438 

441 

200 

445 

381 

2000 

645 

518 

2081 

552 

551 

2082 

577 

551 

2083 

6Q3 

551 

21 

325 

319 

2100 

614 

537 

21  15 

616 

531 

549 

2210 

575 

553 

2220 

60  1 

578 

2324 

187 

174 

2333 

332 

331 
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30 
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421 
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581 
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3365 

532 

528 

3366 

535 

527 

4300 

326 

297 

430  1 

303 

4302 

301 

50 

159 

154 

506 

5 17 

515 

507 

508 

506 

508 

513 

511 

5354 

198 

196 

5819 

266 

264 

5821 

317 

315 

5858 

323 

321 

5859 

272 

270 

605 

514 

510 

62 

649 

646 

8 

621 

618 

812 

6?4 

622 

95 

47s 

465 

< 

H 

Z 

5*5 


P3 


O 


H* 

4> 
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N 


Kxaa 


96 

489 

486 

; : 

97 

497 

4B7 

98 

495 

430 

99 

503 

498 

| . 

9999 

651 

129 

k i 

i i 

K , 

J ’ 

i 

k 

] 

j 

t 


& 


VARIABLE  MAP 


-NAME 

BLOCK 

TYPE-- 

CLASS- 

A 1 960 

REAL 

SIMPLE 

A2940 

REAL 

SIMPLE 

A 3980 

REAL 

SIMPLE 

AS 

REAL 

SIMPLE 

AG 

SPACE 

REAL 

ARRAY 

AGRNDP 

REAL 

SIMPLE 

AL 

RADCOM 

REAL 

ARRAY 

APRI 

REAL 

ARRAY 

AS 

RADCOM 

REAL 

ARRAY 

AV 

SPACE 

REAL 

ARRAY 

AVI 

SPACE 

REAL 

ARRAY 

AV2 

SPACE 

REAL 

ARRAY 

BB 

SPACE 

REAL 

ARRAY 

BB  1 

SPACE 

REAL 

ARRAY 

BG 

SPACE 

REAL 

ARRAY 

BIT1 

BIT 

ARRAY 

BIT2 

BIT 

ARRAY 

BIT3 

BIT 

ARRAY 

BIT4 

BIT 

ARRAY 

BITS 

BIT 

ARRAY 

B ITS 

BIT 

ARRAY 

B1TR 

BIT 

ARRAY 

BITZ 

BIT 

ARRAY 

BPHI 

REAL 

ARRAY 

c 

REAL 

ARRAY 

CAP 

SPACE 

REAL 

ARRAY 

CAP  1 

SPACE 

REAL 

ARRAY 

CAP2 

SPACE 

REAL 

ARRAY 

CAPPSI 

SPACE 

REAL 

ARRAY 

CDATE 

RADCOM 

REAL 

ARRAY 

CG 

SPACE 

REAL 

ARRAY 

CLOUD 

RADCOM 

REAL 

ARRAY 

CM 

SPACE 

REAL 

ARRAY 

CMI 

SPACE 

REAL 

ARRAY 

CM  1 1 

SPACE 

REAL 

ARRAY 

CNUCUB 

REAL 

ARRAY 

C0N7 

SPACE 

REAL 

ARRAY 

CONTI 

REAL 

SIMPLE 

C0NT2 

REAL 

SIMPLE 

COSH 

RADCOM 

REAL 

ARRAY 

CTIN 

WUDATA 

REAL 

ARRAY 

CTINF 

V/UDATA 

REAL 

ARRAY 

CTRANS 

WUDATA 

REAL 

ARRAY 

CVQ 

RADCOM 

REAL 

*RRAY 

CVT 

RADCOM 

REAL 

ARRAY 

CXDE 

RADCOM 

REAL 

ARRAY 

CXL 

RADCOM 

REAL 

SIMPLE 

CZH 

RADCOM 

REAL 

ARRAY 

DELNU 

REAL 

ARRAY 

REFERENCES  A=ARGL1ST.  C=CTRl  OF  00,  I=DATA  INIT,  REREAD . S= STORE , W^WRITE 


133/S 

461 

462 

463 

464 

132/S 

384 

131/S 

365 

134/S 

560 

564 

57  1 

585 

589 

596 

609 

609 

103 

555/S 

565/S 

57  1 . S 

574 

580/S 

590/S 

596/S 

597 /S 

1 30/S 
1 7 

183 

184 

185 

186 

189 

461 

462 

463 

1 14 

2 

117/1 

265 

316 

449 

453 

57 

222/S 

223 

414/S 

427 

90 

468/S 

474 

91 

469/S 

476 

69 

345/S 

346 

555 

555 

555 

555 

564 

564 

580 

580 

589 

589 

628 

71 

357/S 

758 

639 

73 

353/S 

628 

35 

161/S 

162 

165/S 

«GG 

200/S 

202 

227/S 

228 

238 

24  1 

243 

245 

251 

253 

255/S 

255 

255 

269 

27  1 

273 

283/S 

285 

288 

304/S 

305 

311 

324 

428/S 

431 

440 

443 

526/S 

529/S 

530 

534 

619/S 

620 

625/S 

628 

630/S 

632/S 

833 

637 

36 

201/S 

202 

252/S 

253 

255 

284/S 

285 

291 

534 

538/S 

539 

546 

547/S 

547 

548 

555 

557 

574 

580 

582 

588 

593 

GOO 

604 

613 

615 

37 

242/S 

243 

253/S 

254 

285/S 

295/S 

295 

296 

304 

327 

332 

554/S 

555 

557 

563 

568 

579/S 

588 

593 

38 

593 

286/S 

287 /S 

288  /S 

288 

295 

562  '3 

563 

568 

39 

289/S 

290/S 

291/S 

291 

295 

545 /S 

546 

40 

292/S 

293/S 

294 /S 

294 

299 

300 

302 

304 

546 /S 

546 

547 

34 

157/S 

158 

41 

401/S 

407 

416 

419 

475/S 

479 

491 

499 

1 14 

1 18/J 

265 

316 

450 

454 

1 13 

120/r 

396 

425 

470 

472 

63 

262/S 

273/S 

324/S 

332/S 

384 

384 

384 

461 

81 

456/S 

459/S 

«62 

82 

457/S 

460/S 

46  1 

462 

64 

26 

269/S 

271/S 

273 

320/S 

322/S 

324 

80 

375/S 

376/S 

379 

427 

8 

165 

74 

360/S 

365/S 

365 

392 

392 

424 

468 

469 

86 

464/S 

469 

87 

463/S 

464 

468 

1 15 

122/1 

345 

353 

357 

62 

365 

25t/S 

463 

254/S 

254 

258/S 

312/S 

313/S 

313 

329/S 

193/S 

464 

194/S 

463 

464 

28 

110 

493 

1 10 

492 

110 

416 

440 

14 

14 

IS 

28 

27 

115 

123/1 

507 

512 

574 

600 

628 

638 

639 

638 

597 

464 


580 


231 

257 

320 

536 


234 
563 
626  /S 
298 
580 


587 /S 


525/S 


364 


600 


580 


237 

262 

322 

538 

533 
5 SB 
628 
300 
582 

588 


538 


364 
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DP 

SPACE 

REAL 

ARRAY 

47 

177/3 

178/S 

180 

182 

365 

3B4 

DPI 

SPACE 

REAL 

ARRAY 

45 

169/S 

462 

464 

464 

DP2 

SPACE 

REAL 

ARRAY 

46 

170/S 

46  1 

463 

463 

EVAP 

R ACCOM 

REAL 

SIMPLE 

27 

FK 

RAOCOM 

REAL 

ARRAY 

23 

FROST 

RADCOM 

LOGICAL 

ARRAY 

32 

33 

G 

REAL 

ARRAY 

1 12 

119/1 

376 

GAM 

RADCOM 

REAL 

ARRAY 

9 

GRNDP 

REAL 

SIMPLE 

124/1 

130 

HH 

R A DCOM 

REAL 

ARRAY 

12 

HHE 

RADCOM 

REAL 

ARRAY 

12 

HHS 

RADCOM 

REAL 

ARRAY 

13 

I 

INTEGER 

SIMPLE 

164/C 

165 

166 

167 

196/C 

197 

199/C 

200 

201 

205 

205 

207 

207 

208 

208 

2 1 1 

211 

214 

216 

234 

237 

241 

242 

243 

277 

280 

282 

283 

284 

300 

337  C 

338 

339 

378/C 

379 

387/C 

388 

388 

388 

388 

391 

392 

403/C 

404 

404 

404 

404 

408 

4 10 

416 

416 

416 

419 

419 

419 

420 

420 

465 /C 

466 

466 

467 

468 

468 

469 

469 

470 

490/C 

491 

492 

492 

492 

493 

493 

493 

493  /C 

499 

500 

500 

500 

50  1 

50  l 

50  1 

518/C 

519 

527 

528 

529 

533 

533 

534 

541 

550 

550 

574 

574 

600 

600 

610 

610 

613 

617 

618 

619 

631 

632 

638 

638 

643 

643 

644 

644 

16 

INTEGER 

SIMPLE 

1 29/C 

155 

155 

156 

156 

157 

158 

160 

160 

16 1 

162 

1 65 

170 

177 

177 

178 

178 

179 

180 

181 

182 

188 

195 

197 

200 

20  1 

205 

205 

207 

207 

208 

206 

225 

227 

230 

230 

23  1 

234 

237 

241 

242 

243 

280 

282 

283 

284 

300 

340 

349 

643 

644 

644 

647 

647 

648 

648 

650 

650 

IBB 

INTEGER 

SIMPLE 

622/C 

623 

623 

623 

IBIT 

INTEGER 

SIMPLE 

228/S 

229 

238/S 

239 

296/S 

297 

530/S 

531 

548.'  S 

549 

633 

634 

ICE 

RAOCOM 

LOGICAL 

ARRAY 

31 

33 

I CM 

INTEGER 

SIMPLE 

386  /S 

390/S 

390 

391 

392 

394 

395 

4 02  fS 

406  /S 

406 

407 

408 

416 

4 19 

IDAV 

INTEGER 

SIMPLE 

1 

172 

I I 

INTEGER 

SIMPLE 

520/S 

554 

554 

555 

555 

555 

555 

555 

555 

558 

558 

558 

560 

560 

562 

562 

564 

564 

569 

569 

569 

571 

571 

579 

579 

580 

580 

580 

580 

580 

580 

583 

583 

583 

585 

585 

587 

587 

589 

589 

594 

594 

594 

596 

596 

605 

605 

605 

607 

607 

607 

609 

609 

S09 

609 

628 

638 

638 

638 

639 

III 

INTEGER 

SIMPLE 

519/S 

520 

555 

555 

555 

555 

564 

564 

580 

580 

580 

580 

589 

589 

I J 

INTEGER 

SIMPLE 

176/S 

179 

180 

181 

182 

183 

183 

184 

184 

185 

185 

186 

186 

I JTEST 

INTEGER 

SIMPLE 

550/S 

55  1 

IM 

INTEGER 

SIMPLE 

126/S 

127 

128 

129 

146 

147 

150 

151 

152 

153 

155 

1 65 

156 

156 

157 

157 

158 

158 

160 

160 

161 

161 

162 

162 

163 

165 

165 

166 

166 

167 

167 

169 

170 

170 

1 77 

177 

177 

178 

178 

178 

179 

179 

180 

180 

180 

181 

18» 

182 

182 

182 

183 

183 

184 

184 

185 

185 

186 

186 

188 

188 

189 

189 

195 

195 

197 

197 

200 

200 

201 

201 

202 

202 

203 

205 

205 

205 

207 

207 

207 

208 

208 

203 

209 

209 

209 

2 10 

210 

210 

218 

218 

218 

219 

219 

219 

221 

221 

222 

222 

223 

223 

223 

224 

224 

225 

225 

225 

225 

225 

226 

226 

227 

227 

228 

229 

230 

230 

230 

230 

231 

231 

231 

23  1 

234 

234 

234 

235 

235 

235 

236 

236 

236 

237 

237 

238 

239 

240 

240 

240 

241 

241 

24  1 

241 

242 

242 

243 

243 

243 

243 

245 

246 

246 

247 

247 

247 

248 

248 

250 

250 

250 

251 

25  1 

251 

252 

252 

253 

253 

253 

254 

254 

254 

254 

254 

254 

255 

255 

255 

255 

257 

258 

259 

262 

262 

265 

265 

265 

269 

269 

27  1 

27  1 

271 

273 

273 

273 

273 

273 

280 

280 

280 

281 

28  1 

281 

282 

282 

282 

282 

283 

223 

284 

234 

285 

285 

285 

288 

288 

288 

291 

291 

291 

294 

294 

294 

295 

295 

295 

295 

296 

297 

298 

298 

298 

2SB 

298 

299 

299 

299 

300 

300 

300 

300 

300 

302 

302 

302 

304 

304 

304 

305 

306 

306 

307 

307 

307 

308 

VLINKHO  16 


I M2  1 
IMBAND 
I MI  CM 

I ML  2 


IML2L2 
IML2T2 
I ML  3 

IMNF 

IMNFLW 

IMT2 

IUP 

J 


JALB 

JJ 


30B 

310 

3 1 0 

310 

31  1 

312 

312 

313 

3 13 

313 

31  i 

313 

3 16 

316 

316 

320 

320 

322 

322 

322 

324 

32* 

32  A 

324 

324 

327 

328 

329 

332 

332 

334 

335 

33* 

336 

339 

339 

340 

340 

340 

349 

349 

353 

353 

354 

334 

355 

355 

355 

356 

356 

357 

357 

358 

358 

358 

358 

358 

358 

360 

364 

364 

364 

365 

365 

365 

365 

365 

367 

367 

368 

368 

375 

376 

377 

379 

379 

384 

384 

384 

384 

384 

384 

391 

391 

391 

392 

392 

392 

394 

407 

408 

408 

410 

416 

416 

416 

419 

419 

419 

420 

420 

423 

423 

424 

424 

425 

425 

426 

426 

426 

427 

427 

427 

427 

4 28 

428 

429 

429 

430 

430 

430 

43  1 

432 

432 

434 

440 

440 

440 

443 

443 

443 

444 

444 

447 

448 

448 

448 

449 

449 

450 

450 

450 

451 

452 

452 

452 

453 

453 

454 

454 

454 

456 

456 

457 

457 

459 

460 

461 

46  1 

461 

461 

461 

462 

462 

462 

462 

462 

462 

462 

463 

463 

463 

463 

463 

463 

464 

464 

464 

464 

464 

464 

464 

46  4 

466 

466 

466 

467 

467 

467 

460 

468 

468 

469 

469 

469 

470 

470 

491 

o o 
■n  to 

492 

492 

493 

493 

499 

500 

500 

501 

50  1 

521 

522 

523 

524 

529 

529 

530 

533 

533 

534 

534 

534 

534 

31 

536 

536 

538 

538 

538 

538 

539 

540 

541 

545 

545 

546 

546 

546 

546 

547 

547 

547 

548 

554 

554 

655 

O g 

50  r- 

555 

555 

555 

555 

555 

555 

555 

555 

555 

557 

557 

558 

558 

558 

558 

559 

559 

559 

559 

560 

560 

560 

560 

560 

560 

560 

560 

560 

562 

562 

563 

563 

563 

cO  -D 

564 

564 

564 

564 

565 

565 

565 

568 

568 

56B 

569 

569 

569 

569 

570 

570 

570 

570 

57  1 

57! 

571 

571 

£ £ 

571 

57  1 

57  1 

571 

571 

571 

574 

574 

574 

574 

579 

> C5 

579 

580 

580 

580 

580 

580 

580 

580 

580 

580 

580 

J-  1*1 

582 

5B2 

583 

583 

583 

583 

584 

584 

584 

584 

585 

3a 

585 

588 

585 

588 

585 

589 

585 

589 

585 

589 

585 

589 

585 

590 

5S5 

590 

587 

590 

587 

593 

588 

593 

593 

594 

594 

594 

594 

595 

595 

595 

595 

596 

596 

596 

596 

596 

596 

596 

596 

596 

597 

597 

597 

600 

600 

600 

600 

604 

60S 

605 

605 

605 

606 

606 

606 

606 

607 

607 

607 

607 

608 

608 

608 

608 

609 

609 

609 

609 

609 

609 

609 

609 

609 

609 

609 

609 

609 

609 

609 

609 

609 

610 

610 

610 

613 

613 

613 

613 

615 

615 

617 

619 

619 

620 

620 

622 

625 

625 

626 

626 

626 

628 

628 

628 

628 

628 

628 

628 

632 

632 

633 

637 

638 

638 

638 

638 

638 

638 

638 

638 

638 

639 

639 

639 

639 

643 

643 

643 

643 

643 

644 

644 

647 

647 

648 

648 

65  0 

650 

INTEGER  SIMPLE 

153/S 

505 

507 

507 

507 

INTEGER  SIMPLE 

1 

126 

129 

398 

398 

399 

INTEGER  SIMPLE 

394/S 

396 

396 

397 

397 

397 

398 

398 

399 

400 

400 

400 

401 

401 

475 

INTEGER  SIMPLE 

147/S 

14Q 

149 

472 

472 

474 

474 

474 

474 

475 

476 

476 

476 

476 

477 

477 

479 

4S0 

480 

481 

481 

483 

484 

512 

512 

5 12 

512 

516 

516 

516 

INTEGER  SIMPLE 

148/S 

370 

509 

478 

INTEGER  SIMPLE 

149/S 

473 

473 

473 

47B 

478 

345 

346 

INTEGER  SIMPLE 

146/S 

342 

342 

343 

343 

343 

344 

344 

345 

346 

346 

346 

346 

346 

INTEGER  SIMPLE 

15  1/S 

267 

267 

267 

318 

318 

318 

INTEGER  SIMPLE 

150/S 

351 

351 

35  1 

INTEGER  SIMPLE 

152/S 

220 

220 

220 

455 

455 

455 

623 

632 

SPACE 

INTEGER  ARRAY 

44 

167/S 

529 

533 

534 

545 

619 

181 

182 

INTEGER  SIMPLE 

174/C 

175 

176 

177 

177 

178 

178 

179 

180 

361  /C 

362 

363 

365 

365 

365 

381/C 

332 

383 

384 

384 

384 

385 

388 

388 

388 

388 

391 

392 

404 

404 

404 

404 

408 

410 

416 

416 

416 

419 

419 

419 

420 

420 

423 

424 

432 

434 

440 

440 

440 

443 

443 

443 

444 

444 

511/C 

512 

512 

512 

515/C 

516 

516 

537/C 

538 

540 

541 

543 

545 

545 

550 

550 

574 

574 

600 

600 

610 

610 

613 

615 

R ACCOM 

INTEGER  SIMPLE 

30 

191 

233/S 

234 

INTEGER  SIMPLE 

175/S 

177 

178 

180 

182 

217/S 

218 

226 

231 

241 

243 

246 

248 

251 

252 

254 

254 

254 

254 

254 

258 

259 

262 

269 

271 

273 

273 

273 

273 

279/S 

280 

VLINKHO  17 


< 

IT* 

H 


JJd 


JM1 

JV 

K 

Kd 

KURT 
K V 

KVMIN 

L 

L2 

L3 

LA 

LAND 

LATD 

LAV 

LL 

LLAY 

LLLAV 

M 

Mrxv/i 

N 


NF 

NFF 

NFK 

NFL 

NFLW 

NK 

NLAYOZ 

NLE 

NLEV 

NN 

NNVLH 

NOZ 

OCEAN 

OCM22 

0CM30 


SPACE 


SPACE 


RADCOM 


RADCOM 


RADCOM 


RADCOM 


RADCOM 

RADCOM 

RADCOM 

RADCOM 


282 

300 

302 

302 

313 

320 

322 

□ 24 

364 

364 

365 

383  iS 

560 

560 

569 

569 

585 

594 

594 

594 

607 

609 

609 

609 

INTEGER 

SIMPLE 

543/S 

544 

559 

559 

570 

571 

571 

57  1 

585 

595 

595 

595 

608 

608 

608 

609 

INTEGER 

SIMPLE 

385/S 

387 

403 

INTEGER 

ARRAY 

108 

540/S 

615/S 

620/S 

INTEGER 

SIMPLE 

215/C 

217 

233 

278/C 

INTEGER 

SIMPLE 

277/S 

279 

INTEGER 

SIMPLE 

125/1 

1 67 

INTEGER 

ARRAY 

43 

163/S 

166/S 

INTEGER 

SIMPLE 

536/S 

537 

155 

156 

INTEGER 

SIMPLE 

154/C 

155 

646/C 

647 

647 

648 

INTEGER 

SIMPLE 

143/S 

144 

147 

148 

481 

490 

498 

511 

INTEGER 

SIMPLE 

145/S 

146 

340 

INTEGER 

SIMPLE 

139/S 

211 

LOGICAL 

ARRAY 

31 

33 

INTEGER 

SIMPLE 

1 

172 

INTEGER 

SIMPLE 

135/S 

139 

199 

INTEGER 

SIMPLE 

144/S 

145 

628 

14  1 

INTEGER 

SIMPLE 

1 

135 

140 

5 29 

537 

619 

640 

INTEGER 

SIMPLE 

140/S 

160 

160 

IBB 

638 

638 

643 

650 

INTEGER 

SIMPLE 

213/S 

214/S 

215 

338  /S 

LOGICAL 

ARRAY 

32 

33 

264/C 

INTEGER 

SIMPLE 

261/C 

262 

265 

273 

273 

315/C 

316 

324 

324 

331/C 

332 

349 

349' 

352/C 

353 

369/C 

370 

372/C 

373 

408 

410 

412 

412 

425 

432 

434 

436 

444 

44  G 

449 

450 

483 

484 

486 

486 

50  1 

501 

506/C 

507 

555 

555 

555 

555 

559 

559 

560 

560 

569 

569 

570 

570 

579 

580 

5B0 

580 

584 

584 

5B4 

585 

594 

594 

594 

595 

603/S 

605 

605 

605 

608 

608 

609 

609 

628 

628 

628 

628 

638 

639 

639 

633 

INTEGER 

SIMPLE 

136/S 

151 

264 

270 

INTEGER 

SIMPLE 

124/1 

137 

INTEGER 

SIMPLE 

23 

INTEGER 

SIMPLE 

138/S 

505 

507 

507 

INTEGER 

SIMPLE 

1 

137/S 

138 

150 

269 

372 

506 

510 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 

REAL 

REAL 


SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

SIMPLE 

ARRAY 

ARRAY 

ARRAY 


374/S 

22 

142/S 

141/5 

373/S 

42/1 

26 

31 

25 

25 


416 

217 

142 

376 

126 

33 


440 


219 
1 88 


492 


1 89 


306 

32<* 

384 

569 

596 

609 

559 

571 

596 

609 

623 

279 


524/S 

156 

648 

361 

515 


143 

195 

650 

389 

265 

316 

34  1 /C 

353 

374 

413 

436 

453 

487 

507 

555 

560 

570 

580 

5S5 

595 

606 

609 

636/C 

315 


509 

261 

553 

493 


189 


308 

324 

384 

571 

596 

560 

584 

596 

609 

625 

287 


534/S 

157 

378 

628 


312 

324 

384 

571 

605 

560 

584 

595 

609 

626 

290 


536 

158 

381 


313 

328 

544/S 

583 
60S 

560 

584 
596 

609 


293 

538 
21  1/S 
465 


313 

329 

558 

sea 

605 

560 

585 

606 

609 


338 /S 

623/S 

212 

472 


313 

332 

558 

583 

607 

570 

585 

606 

609 


339 

626 

362/S 

476 


313  § 
363  w 

558  m 

585  00 
607 

570 

585 

606 

609 


382 

477 


154 

164 

174 

225 

230 

340 

518 

528 

617 

618 

620 

625 

404/S 

405 

265 

268/C 

269 

270 

271 

271 

2 1 6 

319/C 

320 

321 

322 

322 

3*2 

345 

345 

346 

346 

348 

353 

354 

357 

357 

358 

358 

376 

376 

384 

384 

384 

396 

416 

416 

419 

419 

420 

420 

437 

440 

440 

443 

443 

444 

454 

461 

470 

472 

480 

481 

492 

492 

493 

493 

500 

500 

510/C 

512 

512 

512 

553/C 

554 

555 

555 

558 

558 

558 

559 

560 

562 

564 

564 

564 

569 

571 

571 

571 

571 

574 

578 

580 

580 

580 

583 

583 

583 

585 

585 

587 

589 

589 

589 

595 

596 

596 

595 

596 

600 

606 

606 

607 

607 

607 

608 

609 

609 

609 

609 

609 

627 

638 

638 

638 

638 

638 

638 

321 

446 

512 

512 

516 

516 

516 

603 

263 

319 

331 

34  1 

348 

352 

578 

627 

636 

218 

219 

337 

ORIGINAL  PAGE  SS 
OF  POOR  QUALITY 


OCM38 

RADCOM 

REAL 

ARRAY 

25 

OCM46 

RADCOM 

REAL 

ARRAY 

25 

OCMXX 

RADCOM 

REAL 

ARRAY 

26 

OLAPR 

RADCOM 

REAL 

ARRAY 

24 

OL  JAN 

RADCOM 

REAL 

ARRAY 

24 

OLJUL 

RADCOM 

REAL 

ARRAY 

24 

OLOCT 

RADCOM 

REAL 

ARRAY 

24 

OZALE 

RADCOM 

REAL 

ARRAY 

18 

P 

SPACE 

REAL 

ARRAY 

49 

179/S 

180/S 

218 

218 

219 

P 1 

REAL 

SIMPLE 

124/1 

169 

482 

P2 

REAL 

SIMPLE 

124/1 

169 

170 

PD 

SPACE 

REAL 

ARRAY 

55 

210/S 

282 

POG 

SPACE 

REAL 

ARRAY 

56 

221/S 

223 

240 

280/S 

2BI  /S 

PDP 

SPACE 

REAL 

ARRAY 

54 

208/S 

209/S 

PDQ 

SPACE 

REAL 

ARRAY 

52 

203/S 

205/S 

POT 

SPACE 

REAL 

ARRAY 

53 

207/S 

210 

PH 

SPACE 

REAL 

ARRAY 

88 

467/S 

470 

PHI 

SPACE 

REAL 

ARRAY 

40 

183/  S 

184/S 

PHI  I 

SPACE 

REAL 

ARRAY 

89 

466/S 

472 

PL 

RADCOM 

REAL 

ARRAY 

3 

155/S 

155 

647/S 

647 

PLE 

RADCOM 

REAL 

ARRAY 

3 

156/S 

156 

648/S 

648 

650/S 

PLK 

RADCOM 

REAL 

ARRAY 

4 

PLKE 

RADCOM 

REAL 

ARRAY 

4 

PM 

SPACE 

REAL 

ARRAY 

79 

423/S 

4 25 

PREP 

RADCOM 

REAL 

ARRAY 

27 

PROCM 

RADCOM 

REAL 

ARRAY 

26 

Q 

SPACE 

REAL 

ARRAY 

58 

231/S 

241/S 

302 

313 

313 

Q 1 

SPACE 

REAL 

ARRAY 

76 

367/S 

462 

Q2 

SPACE 

REAL 

ARRAY 

77 

368/S 

461 

R 

SPACE 

REAL 

ARRAY 

75 

370/S 

408/S 

434/S 

440/S 

440 

516/S 

516 

554 

562 

564 

569 

583 

583 

583 

596 

605 

605 

628 

638 

RADCOM 

REAL 

UNKNOWN 

2 

3 

4 

13 

14 

15 

24 

25 

26 

RADTRM 

RADCOM 

REAL 

ARRAY 

28 

RCBAV 

SPACE 

REAL 

ARRAY 

95 

392/S 

398 

RCBCG 

SPACE 

REAL 

ARRAY 

97 

379/S 

398 

RCBPD 

SPACE 

REAL 

ARRAY 

96 

398/S 

399 

RCBPM 

SPACE 

REAL 

ARRAY 

94 

391  /S 

396 

RCLOUD 

RADCOM 

REAL 

ARRAY 

30 

RE 

RADCOM 

REAL 

ARRAY 

2 

643/S 

644/S 

RH 

RADCOM 

REAL 

ARRAY 

10 

RN 

RADCOM 

REAL 

ARRAY 

20 

RSURF 

RADCOM 

REAL 

ARRAY 

30 

S 

SPACE 

REAL 

ARRAY 

99 

54  1/S 

574/S 

638 

643 

SO 

RADCOM 

REAL 

SIMPLE 

28 

SG 

RADCOM 

REAL 

ARRAY 

29 

SHG 

RADCOM 

REAL 

ARRAY 

B 

161 

162/S 

SHL 

RADCOM 

REAL 

ARRAY 

7 

157 

158/S 

243 

283 

284 

SHLE 

RADCOM 

REAL 

ARRAY 

7 

SHSAT 

RADCOM 

REAL 

ARRAY 

9 

SNOW 

RADCOM 

LOGICAL 

ARRAY 

32 

33 

SP 

RADCOM 

REAL 

ARRAY 

29 

SPACE 

REAL 

UNKNOWN 

43 

44 

45 

54 

55 

56 

65 

66 

67 

76 

77 

78 

87 

88 

89 

j. 


181  /S 

182/S 

183 

184 

185 

186 

188/S 

183 

219 

234 

280 

464 

461 

462 

463 

464 

f/ 

427/S 

428 

429 

i 

224/S 

230 

234/S 

235/S 

235 

235 

236/S 

236 

i “ 

28  1 

28  1 

282 

298 /S 

298 

299 

209 

209 

210 

236 

298 

240 

299 

185/S 

186/S 

1B9/S 

254 

273 

3 13 

324 

177 

178 

181 

182 

208 

208 

234 

280 

160/S 

650 

160 

170 

177 

178 

1 79 

180 

isa 

243/S 

252 

254 

254 

259/S 

273 

300/S 

302 

324 

328/S 

367 

368 

464  464 

462  453  463  464  464 


4 1 0 / S 

416/S 

416 

419/S 

419 

420  S 

420 

432 

443/S 

443 

444/S 

444 

509/S 

5 1 2 / S 

512 

512 

555 

555 

555 

558 

558 

558 

560 

560 

5G9 

559 

571 

571 

579 

580 

580 

580 

585 

585 

587 

589 

594 

594 

594 

596 

605 

607 

607 

607 

609 

609 

609 

609 

5 

6 

7 

8 

9 

1 0 

1 1 

12 

16 

17 

18 

19 

20 

21 

22 

23 

27 

28 

29 

30 

31 

32 

474 

476 

40  1 

474  /S 

475 

477 

644 

574 

600/S 

600 

610/S 

610 

613 

617/S 

638 

227 

230 

231 

200 

300 

20  t 

205 

205 

230 

237 

241 

242 

46 

47 

48 

49 

50 

51 

52 

53 

57 

58 

59 

60 

61 

62 

63 

64 

68 

69 

70 

71 

72 

73 

74 

75 

79 

80 

31 

82 

83 

84 

85 

86 

DO 

91 

92 

93 

94 

95 

96 

97< 

tr4 

hH 


§ 


VD 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


i 


SRS 

RADCOM 

REAL 

ARRAY 

ss 

SPACE 

REAL 

ARRAY 

SSI 

SPACE 

REAL 

ARRAY 

SSB 

SPACE 

REAL 

ARRAY 

SSD 

SPACE 

REAL 

ARRAY 

5SS 

RADCOM 

REAL 

ARRAY 

SS5E 

RADCOM 

REAL 

ARRAY 

5TN 

RADCOM 

REAL 

ARRAY 

SUM 

SPACE 

REAL 

ARRAY 

SURFL 

SPACE 

REAL 

ARRAY 

SURFU 

SPACE 

REAL 

ARRAY 

SWALE 

RADCOM 

REAL 

ARRAY 

SWIL 

RADCOM 

REAL 

ARRAY 

T 

SPACE 

REAL 

ARRAY 

T 1 

REAL 

SIMPLE 

T2 

REAL 

SIMPLE 

TAUL 

RADCOM 

REAL 

ARRAY 

TCOWD 

RADCOM 

REAL 

ARRAY 

TEMP 

SPACE 

REAL 

ARRAY 

tempz 

SPACE 

TERM 

SPACE 

TERM1 

SPACE 

TERM2 

SPACE 

TG 

RADCOM 

TH 

RADCOM 

Til 

T 1 2 

tXNF 

SPACE 

TL 

RADCOM 

TLE 

RADCOM 

TLOWL 

RADCOM 

TMIDL 

RADCOM 

TN 

RADCOM 

TOI 

WUDATA 

T02 

wudata 

T03 

TOPABS 

RADCOM 

TOTOZ 

RADCOM 

TPENE 

RADCOM 

TRAD 

SPACE 

TRAD1 

SPACE 

TRB 

SPACE 

TRD 

SPACE 

TRC3 

WUDATA 

TS 

SPACE 

TT 

SPACE 

TTT 

SPACE 

VAR 

SPACE 

VLINKHO 

W 

WET 

RADCOM 

WI 

RADCOM 

WTRINF 

SPACE 

WUDATA 

X 

XK 

RADCOM 

XX 

SPACE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

SIMPLE 

REAL 

SIMPLE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

SUBROUTINE 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

UNKNOWN 

REAL 

ARRAY 

REAL 

ARRAY 

REAL 

ARRAY 

< 


w 

sc 

10? 

102 

103 

104 

105 

106 

107 

1080 

507/S 

507 

507 

512 

516 

559 

559 

S59g 

570 

570 

571 

571 

584 

584 

584 

585 

595 

596 

596 

606 

606 

606 

608 

60S 

609 

609 

638 

638 

595  /S 

596 

606/S 

609 

584/S 

585 

608/S 

609 

613  643 
628  643 
639  643 


246 

24  8 

282/S 

447 
45  \ 

638 

225/S 

225 

226 

251 

299/S 

300 

426/5 

426 

426 

453/S 

454 

220/S 

220 

220 

318/S 

318 

318 

397 

337 

398 

455 

455 

456 

476 

477/S 

478/S 

467 

564/S 

565 

571 

585  /S 

590 

492/S 

492 

SOO/S 

207 

225 

282 

306 

308 

336 

230/S 

231 

240/S 

308/S 

310/S 

310 

427 

429/S 

430/S 

221 

222 

265 /S 

322 

349/S 

351  /S 

399/S 

400/S 

400 

457 

470/S 

472/S 

478 

478 

480 

589/S 

530 

597 

609/5 

610 

500 

63B 

639 

340 


339 


24  t 
310 
430 

267/S 

351 

400 

473/S 

481 


638 


248 

312 

430 

267 

351 

408 

473 


447 


349  354 


346 


354  /S 


355 


358 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


0000  1 
00002 

C 

00003 

00004 

c 

00005 

00006 

C 

00007 


C 

Q0008 


00009 

00010 
0001  1 
00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 
00021 

00022 

C 

00023 

00024 

VARIABLE  MAP 
- -NAME 


FUNCTION  VQ5AT  <T,P,N;*> 

DESCRIPTOR  VOSAT,  T.  P 

dimension  E 1 1 1 §22 ! • 155JI22! 

DIMENSION  TQf 1500) , 11(1500),  12(1500) 

REAL  ESTM39).  ESTH67),  EST2  ( 72 ) 

EQUIVALENCE  < EST  < U * EST1MM.  ( EST  f 6r3  ) * 6ST2  ( 1 ) ) 


^DATA  EST1/  0.3119S6-02.  0.3S13SE-02.  0.A180OE-02. 

, a /1H227E-02  0 5557 1 E -02 . 0.63934E-02,  0.73433E-02, 

1 S:i®iiei-Si:  o.SSSoTE-oa:  o.iioi4E-oi.  o.i2BB2g-oi. 

* 0 1 4353E- 0 1 , 0.16341E-01,  0.18574E-01,  0,21095E-01t 

* 0 . 23926E-0 1 , 0.27096E-01,  0.30G52E-01,  0 * 34629E -O 1 , 

* 0 . 39073E “0 1 , 0 . 4402BE-0 1 , 0.49546E-01,  2*515511^21' 

* 0 . 6250SE-0 1 0.70077E-01 . 0.78700E-01,  0 « 88 1 28E-0 1 „ 

* 0 98477E-01,  0 . 1 0983E-00  , 0.122336*00,  0 . \ 3608E*  00  , 

* 0*  15  121'E*00,  0-167846  + 00,'  0 . TBS 1 5E +00 , 0.20627E+00, 

, 0 * 22837E+00  r 0.252G3E*00.  0.27923E+00,  ° * 32555l t 22 ’ 

* 0 34030E  *00  , O . 37520E  * 00 , 0.41334E+00.  0.45497E*00, 

* O 50037E  + 00 , 0.54984E‘00,  0.603696  + 00,  0 - * 

* 0 72589E+00.  0. 794976+00,  0.86991E+00.  °*95113E  2?’ 

- 0 10391E  + 01,  0.11 343E  *01  , 0.12372E  + 01,  0.1348*6*0  . 

- 0 ! 1 46B4E  + 0 1 , 0 . 1 5979E-0 1 , 0.17375E*01,  0 * trt 1 * 

* O 20499E  + 0 1 , 0 . 2224 1 E *0 1 , 0.24113E+01,  Q.26126E+01, 

* 0 ! 282S6E  + 0 T , 0.30604E  + 01.  0.33091E-01,  0.35755E-01. 

.OATAo!isioaE^01 . 0.41G63E*01.  0.4493QE*01,  0«S423|*01. 

* O 52155E+01  0.56140E*01,  0.60394E+01,  0.G4930E+01, 

* o'G9767E-01,  0.74919E+01,  0.80406E+01.  0.86246E  + 01, 

* O 92457E  *01  0.990S1E-01.  0.10608E+02,  0.11353E*02, 

C o'^ldlhoz.  0 : 1 2983EX02 , O.13B73E*02.  0.  M818E-02. 

* O 15B15E-02  0 . 1 687  2E  *02 , 0.17992E*02,  0.1917GE*02, 

- O 1 20428E  + 02 . 0.21 750E*  02 , 0.23148E*02,  0.24623E*02, 

* 0 . 26  T80E  + 02 , 0.27822E  + 02,  0.29553E*02,  2 * 51^151.*  25  ’ 

* O 33300E+02  0.3532***02  0.37454E*02.  0,396966*02, 

: S:tio8Sl^ol:  o^SSs^o*.  0.47134E+02,  o.***™****- 

~ 0.52741E+02,  0.55754E+02,  0.58916E+02,  0‘§2232E  02 * 

* O G5708E+02.  0 . 6935 1 E+02 , 0 . 73  1 68E*+02  , 0.77164E  02, 

* O 8«348E+02  O 85725E+02.  0.90305E*02„  0.95094E+02. 

* olfooioi^oi:  o]  10533E*03!  0 . 1 1 080E-*  03  . 0.116SOE‘03. 

* 0.12246E+03,  0.12868E-03,  0.13517E-03. 

» 0 i 1 48996+  03  , 0.15634E-03,  0.164006*03.  0.17199E  03, 

+ O 18030E-03  0 188956*03,  0.19796E+03,  0.2Q733E+03, 

1 O : 2 1 708E+03 ! 0 ! 22722E-03 ! 0.2377GE*03,  0.248716*03, 

A 1 622  = 1./1.622  TQ { I ; M ) - T - 198.99999 

WHERE < T.LT. 200.0  ) T0<1;N>  * 1.00001 

WHERE(  T : GT .337 . 9 ) TQ(1;N>  = 138-90001 

I1M;N>  = VINT  ( TQ  ( 1 ; N ) ; IKIsN)  ) 

EH  1 ;N)  = QBVgAtHR ( EST  < 1 ; 1 39 ; £1M;N|  > 
E2(1;N>  - Q8VGATHR ( EST ( 1 ; 1 39 ) , I 2 ( 1 : N ) : E2(1:N)  ) 

VQSAT  - TQ(1;N)  " I1(1;N> 

VQSA-r  = VQSAT  * < E2  <1  ; N ) -E  1 < 1 ; N ) ) 

VQSAT  = VQSAT  + E 1 ( 1 ; N ) 

EI(t;N)  - P ♦ A 1 622 

WHERE ( El ( 1 ;N) -LT, VQSAT  ) 

$ VQSAT  = El ( I ;N> 

VQSAT  = . 622  + VQSAT/ ( P- VQSAT ) 

RETURN 

END 
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oooo  i 

FUNCTION  VOZON ( XD , L ; * ) 

VS0LAR1474 

00002 

DIMENSION  TEMP ( 288 ) 

VS0LAR1475 

00003 

DESCRIPTOR  VOZON, XD, TEMPO 

V50LAR1476 

00004 

ASSIGN  TEMPO . TEMPI  1 ;L> 

VSOLAR 1477 

00005 

*-  VOZON  = 0.042 

+ XD*0 . 000323 

VSOLAR  1 478 

00006 

X VOZON  = 1 . 000 

* XD-VOZON 

VS0LAR1479 

00007 

VOZON  = . 021 130*XD/V0Z0N 

VSOLAR 1 480 

00008 

TEMPO  - 1.0  * 

XD • 138.57 

VSOLAR 148 1 

00009 

TEMPO  = TEMPO* 

*0.805 

VSOLAR 1 482 

000  10 

TEMPO  = 1 .0ai73*XD/TEMPD 

VSOLAR 1483 

0001  1 

VOZON  = VOZON 

♦ TEMPD 

VSOLAR 1 484 

00012 

TEMPO  = 103.63 

*XD 

VSOLAR 1 435 

00013 

TEMPO  = TEMPD* 

TEMPD*TEMPD 

VSOLAR 1486 

00014 

TEMPO  = 1.0  + 

TEMPD 

VSOLAR 1 487 

00015 

TEMPO  = 0 . 06580*  XD/ TEMP D 

VSOLAR 1 488 

00016 

VOZON  = VOZON 

+ TEMPO 

VSOLAR 1 489 

00017 

RETURN 

VSOLAR 1490 

00018 

END 

VSOLAR 1 49 1 

VARIABLE  MAP 

— NAME 

-BLOCK TYPE 

CLASS 

-REFERENCES 

A =ARGL I ST , 

C=CTRL  OF 

DO,  I =DATA  INIT, 

REREAD,  S-STORE  . V/=WRtTE 

L 

INTEGER 

SIMPLE 

1 

4 

TEMP 

REAL 

ARRAY 

2 

4 

TEMPO 

REAL 

DESCRIPTOR 

3 

4 

Q/S 

9/S 

9 10/S 

10  It  12/S  13/S 

13 

13 

13 

14  /S 

14 

15/S  15 

16 

VOZON 

REAL 

DESCRIPTOR 

1 

3 

5/S 

6/S 

6 7/S 

7 1 ! / S It  16/S 

16 

XD 

REAL 

DESCRIPTOR 

1 

3 

5 

6 

7 8 

10  12  15 

< 

o 

IS] 

o 

tsS 


ORIGINAL  PAGE 
OF  POOR  QUALITY 


OOOO  1 

FUNCTION  VWATER  < XD , L ; * > 

VSOLARI4G6 

00002 

DESCRIPTOR  VWATER , XO 

VSOLAR1467 

00003 

VWATER  = 1.0  * 14  1 .51*  XD 

VSOLAR1468 

00004 

VWATER  9 VWATER**0 .635 

VSOLAR 1469 

00005 

VWATER  = VWATER  * 5.925"XD 

VSOLAR 1 470 

00006 

VWATER  = 2 . 9*  KD  / VW ATER 

VS0LART471 

00007 

RETURN 

VSOLAR 1 472 

00008 

END 

VSOLAR 1 473 

VARIABLE  MAP 

--NAME BLOCK TYPE CLASS REFERENCES  A=ARGLIST.  C-CTRL  OF  DO,  I =DATA  IMIT . R=READ,  S=STORE  , V/sWfilTE 


L 

VWATER 

XD 


INTEGER  UNKNOWN  1 
REAL  DESCRIPTOR  1 
REAL  DESCRIPTOR  1 


2 3/S  d/S  4 5/S  5 6/S  6 

2 3 5 6 


ORIGINAL  PASS  Hi  VWATER  1 


